From 3fae175c104c43159ff1c3ac52effd7625f96b29 Mon Sep 17 00:00:00 2001
From: Rob Vermaas <rob.vermaas@gmail.com>
Date: Thu, 11 Mar 2010 13:11:06 +0000
Subject: [PATCH]  * nixos/lib/testing.nix: added runinmachine function to
 build derivation in machine given a nixos configuration

svn path=/nixos/trunk/; revision=20556
---
 lib/testing.nix | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/lib/testing.nix b/lib/testing.nix
index 5e6b20e7514..97de42f6546 100644
--- a/lib/testing.nix
+++ b/lib/testing.nix
@@ -99,6 +99,46 @@ rec {
     report = makeReport test;
   };
 
+  runInMachine = {
+    drv
+  , machine
+  , preBuild ? ""
+  , postBuild ? ""
+  }:
+    let
+      vms =
+        buildVirtualNetwork { nodes = { client = machine; } ; };
+
+      buildrunner = writeText "vm-build" ''
+        source $1
+        ${coreutils}/bin/mkdir -p $TMPDIR
+        exec $origBuilder $origArgs &> /hostfs/$TMPDIR/logzzzz
+      '';
+
+      testscript = ''
+        startAll;
+        ${preBuild}
+        print STDERR $client->mustSucceed("source ${buildrunner} /hostfs".$client->stateDir."/saved-env");
+        ${postBuild}
+      '';
+
+      vmRunCommand = writeText "vm-run" ''
+        ${coreutils}/bin/mkdir -p client
+        export > client/saved-env
+        export PATH=${qemu_kvm}/bin:${coreutils}/bin
+        cp ${./test-driver/Machine.pm} Machine.pm
+        export tests='${testscript}'
+        ${perl}/bin/perl ${./test-driver/test-driver.pl} ${vms}/vms/*/bin/run-*-vm
+      '';
+
+    in
+      lib.overrideDerivation drv (attrs: {
+        builder = "${bash}/bin/sh";
+        args = ["-e" vmRunCommand];
+        origArgs = attrs.args;
+        origBuilder = attrs.builder;
+      });
+   
   simpleTest = as: (apply ({ ... }: as)).test;
 
 }