2016-03-29 16:16:01 +03:00
|
|
|
{ system, minimal ? false, config ? {} }:
|
2010-01-05 14:18:43 +03:00
|
|
|
|
2016-03-29 16:16:01 +03:00
|
|
|
with import ./build-vms.nix { inherit system minimal config; };
|
2010-01-05 14:18:43 +03:00
|
|
|
with pkgs;
|
|
|
|
|
|
|
|
rec {
|
|
|
|
|
2010-03-09 13:14:45 +03:00
|
|
|
inherit pkgs;
|
|
|
|
|
2010-01-05 14:18:43 +03:00
|
|
|
|
2010-12-16 18:54:15 +03:00
|
|
|
testDriver = stdenv.mkDerivation {
|
|
|
|
name = "nixos-test-driver";
|
2011-01-05 17:04:38 +03:00
|
|
|
|
|
|
|
buildInputs = [ makeWrapper perl ];
|
|
|
|
|
|
|
|
unpackPhase = "true";
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2015-08-26 16:04:27 +03:00
|
|
|
preferLocalBuild = true;
|
|
|
|
|
2011-01-05 17:04:38 +03:00
|
|
|
installPhase =
|
2010-12-16 18:54:15 +03:00
|
|
|
''
|
|
|
|
mkdir -p $out/bin
|
|
|
|
cp ${./test-driver/test-driver.pl} $out/bin/nixos-test-driver
|
|
|
|
chmod u+x $out/bin/nixos-test-driver
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2010-12-16 18:54:15 +03:00
|
|
|
libDir=$out/lib/perl5/site_perl
|
|
|
|
mkdir -p $libDir
|
|
|
|
cp ${./test-driver/Machine.pm} $libDir/Machine.pm
|
2011-01-06 20:28:35 +03:00
|
|
|
cp ${./test-driver/Logger.pm} $libDir/Logger.pm
|
2010-12-16 18:54:15 +03:00
|
|
|
|
2011-01-05 17:04:38 +03:00
|
|
|
wrapProgram $out/bin/nixos-test-driver \
|
2016-08-23 01:13:49 +03:00
|
|
|
--prefix PATH : "${lib.makeBinPath [ qemu_kvm vde2 netpbm coreutils ]}" \
|
2015-08-11 12:52:13 +03:00
|
|
|
--prefix PERL5LIB : "${with perlPackages; lib.makePerlPath [ TermReadLineGnu XMLWriter IOTty FileSlurp ]}:$out/lib/perl5/site_perl"
|
2010-12-16 18:54:15 +03:00
|
|
|
'';
|
|
|
|
};
|
|
|
|
|
|
|
|
|
2010-01-05 14:18:43 +03:00
|
|
|
# Run an automated test suite in the given virtual network.
|
2011-01-12 21:47:23 +03:00
|
|
|
# `driver' is the script that runs the network.
|
|
|
|
runTests = driver:
|
2010-01-05 14:18:43 +03:00
|
|
|
stdenv.mkDerivation {
|
2014-06-25 14:45:52 +04:00
|
|
|
name = "vm-test-run-${driver.testName}";
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2013-09-02 13:17:50 +04:00
|
|
|
requiredSystemFeatures = [ "kvm" "nixos-test" ];
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2014-09-25 01:48:31 +04:00
|
|
|
buildInputs = [ libxslt ];
|
2010-08-30 03:24:54 +04:00
|
|
|
|
2010-01-05 14:18:43 +03:00
|
|
|
buildCommand =
|
|
|
|
''
|
2011-01-10 01:21:22 +03:00
|
|
|
mkdir -p $out/nix-support
|
2010-12-16 18:54:15 +03:00
|
|
|
|
2015-04-10 12:17:29 +03:00
|
|
|
LOGFILE=$out/log.xml tests='eval $ENV{testScript}; die $@ if $@;' ${driver}/bin/nixos-test-driver
|
2010-01-05 14:18:43 +03:00
|
|
|
|
2011-09-14 22:20:50 +04:00
|
|
|
# Generate a pretty-printed log.
|
2011-01-09 20:58:52 +03:00
|
|
|
xsltproc --output $out/log.html ${./test-driver/log2html.xsl} $out/log.xml
|
|
|
|
ln -s ${./test-driver/logfile.css} $out/logfile.css
|
|
|
|
ln -s ${./test-driver/treebits.js} $out/treebits.js
|
2014-09-07 17:37:16 +04:00
|
|
|
ln -s ${jquery}/js/jquery.min.js $out/
|
|
|
|
ln -s ${jquery-ui}/js/jquery-ui.min.js $out/
|
2011-01-09 20:58:52 +03:00
|
|
|
|
2010-01-07 19:50:26 +03:00
|
|
|
touch $out/nix-support/hydra-build-products
|
2011-01-09 21:46:02 +03:00
|
|
|
echo "report testlog $out log.html" >> $out/nix-support/hydra-build-products
|
2011-01-09 21:56:11 +03:00
|
|
|
|
2011-08-09 18:07:44 +04:00
|
|
|
for i in */xchg/coverage-data; do
|
2011-01-10 01:21:22 +03:00
|
|
|
mkdir -p $out/coverage-data
|
2011-08-09 18:07:44 +04:00
|
|
|
mv $i $out/coverage-data/$(dirname $(dirname $i))
|
2011-01-09 21:56:11 +03:00
|
|
|
done
|
2010-01-05 14:18:43 +03:00
|
|
|
''; # */
|
|
|
|
};
|
|
|
|
|
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
makeTest =
|
2015-05-22 08:14:00 +03:00
|
|
|
{ testScript
|
|
|
|
, makeCoverageReport ? false
|
|
|
|
, enableOCR ? false
|
|
|
|
, name ? "unnamed"
|
|
|
|
, ...
|
|
|
|
} @ t:
|
2010-02-17 12:37:22 +03:00
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
let
|
2014-06-25 14:45:52 +04:00
|
|
|
testDriverName = "nixos-test-driver-${name}";
|
2014-03-03 16:39:30 +04:00
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
nodes = buildVirtualNetwork (
|
|
|
|
t.nodes or (if t ? machine then { machine = t.machine; } else { }));
|
2011-01-16 17:21:47 +03:00
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
testScript' =
|
|
|
|
# Call the test script with the computed nodes.
|
|
|
|
if builtins.isFunction testScript
|
|
|
|
then testScript { inherit nodes; }
|
|
|
|
else testScript;
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
vlans = map (m: m.config.virtualisation.vlans) (lib.attrValues nodes);
|
2011-01-16 17:21:47 +03:00
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
vms = map (m: m.config.system.build.vm) (lib.attrValues nodes);
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2015-05-22 09:01:17 +03:00
|
|
|
ocrProg = tesseract.override { enableLanguages = [ "eng" ]; };
|
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
# Generate onvenience wrappers for running the test driver
|
|
|
|
# interactively with the specified network, and for starting the
|
|
|
|
# VMs from the command line.
|
2014-06-25 14:45:52 +04:00
|
|
|
driver = runCommand testDriverName
|
2014-04-14 16:23:38 +04:00
|
|
|
{ buildInputs = [ makeWrapper];
|
|
|
|
testScript = testScript';
|
|
|
|
preferLocalBuild = true;
|
2014-06-25 14:45:52 +04:00
|
|
|
testName = name;
|
2014-04-14 16:23:38 +04:00
|
|
|
}
|
|
|
|
''
|
|
|
|
mkdir -p $out/bin
|
|
|
|
echo "$testScript" > $out/test-script
|
|
|
|
ln -s ${testDriver}/bin/nixos-test-driver $out/bin/
|
|
|
|
vms="$(for i in ${toString vms}; do echo $i/bin/run-*-vm; done)"
|
|
|
|
wrapProgram $out/bin/nixos-test-driver \
|
|
|
|
--add-flags "$vms" \
|
2015-05-22 09:01:17 +03:00
|
|
|
${lib.optionalString enableOCR "--prefix PATH : '${ocrProg}/bin'"} \
|
2014-04-14 16:23:38 +04:00
|
|
|
--run "testScript=\"\$(cat $out/test-script)\"" \
|
2016-06-19 14:38:46 +03:00
|
|
|
--set testScript '$testScript' \
|
|
|
|
--set VLANS '${toString vlans}'
|
2014-04-14 16:23:38 +04:00
|
|
|
ln -s ${testDriver}/bin/nixos-test-driver $out/bin/nixos-run-vms
|
|
|
|
wrapProgram $out/bin/nixos-run-vms \
|
|
|
|
--add-flags "$vms" \
|
2015-05-22 09:01:17 +03:00
|
|
|
${lib.optionalString enableOCR "--prefix PATH : '${ocrProg}/bin'"} \
|
2016-06-19 14:38:46 +03:00
|
|
|
--set tests 'startAll; joinAll;' \
|
|
|
|
--set VLANS '${toString vlans}' \
|
2014-04-14 16:23:38 +04:00
|
|
|
${lib.optionalString (builtins.length vms == 1) "--set USE_SERIAL 1"}
|
|
|
|
''; # "
|
|
|
|
|
2015-07-12 13:09:40 +03:00
|
|
|
passMeta = drv: drv // lib.optionalAttrs (t ? meta) {
|
|
|
|
meta = (drv.meta or {}) // t.meta;
|
|
|
|
};
|
2014-04-14 16:23:38 +04:00
|
|
|
|
2015-07-12 13:09:40 +03:00
|
|
|
test = passMeta (runTests driver);
|
|
|
|
report = passMeta (releaseTools.gcovReport { coverageRuns = [ test ]; });
|
2010-03-11 01:51:53 +03:00
|
|
|
|
2015-07-12 13:09:40 +03:00
|
|
|
in (if makeCoverageReport then report else test) // {
|
|
|
|
inherit nodes driver test;
|
|
|
|
};
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2010-05-21 18:31:05 +04:00
|
|
|
runInMachine =
|
|
|
|
{ drv
|
|
|
|
, machine
|
|
|
|
, preBuild ? ""
|
|
|
|
, postBuild ? ""
|
2011-01-13 13:54:07 +03:00
|
|
|
, ... # ???
|
2010-05-21 18:31:05 +04:00
|
|
|
}:
|
2010-03-11 16:11:06 +03:00
|
|
|
let
|
2011-01-13 13:54:07 +03:00
|
|
|
vm = buildVM { }
|
2011-01-13 14:39:03 +03:00
|
|
|
[ machine
|
2013-10-16 13:36:09 +04:00
|
|
|
{ key = "run-in-machine";
|
|
|
|
networking.hostName = "client";
|
|
|
|
nix.readOnlyStore = false;
|
|
|
|
}
|
2011-01-13 13:54:07 +03:00
|
|
|
];
|
2010-03-11 16:11:06 +03:00
|
|
|
|
|
|
|
buildrunner = writeText "vm-build" ''
|
|
|
|
source $1
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2010-03-11 16:11:06 +03:00
|
|
|
${coreutils}/bin/mkdir -p $TMPDIR
|
2010-07-23 17:59:50 +04:00
|
|
|
cd $TMPDIR
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2016-09-08 16:34:04 +03:00
|
|
|
exec $origBuilder $origArgs
|
2010-03-11 16:11:06 +03:00
|
|
|
'';
|
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
testScript = ''
|
2010-03-11 16:11:06 +03:00
|
|
|
startAll;
|
2013-10-16 13:36:09 +04:00
|
|
|
$client->waitForUnit("multi-user.target");
|
2010-03-11 16:11:06 +03:00
|
|
|
${preBuild}
|
2014-09-25 01:48:31 +04:00
|
|
|
$client->succeed("env -i ${bash}/bin/bash ${buildrunner} /tmp/xchg/saved-env >&2");
|
2010-03-11 16:11:06 +03:00
|
|
|
${postBuild}
|
2013-10-16 13:36:09 +04:00
|
|
|
$client->succeed("sync"); # flush all data before pulling the plug
|
2010-03-11 16:11:06 +03:00
|
|
|
'';
|
|
|
|
|
|
|
|
vmRunCommand = writeText "vm-run" ''
|
2016-09-08 16:34:04 +03:00
|
|
|
xchg=vm-state-client/xchg
|
2011-08-09 18:07:44 +04:00
|
|
|
${coreutils}/bin/mkdir $out
|
2016-09-08 16:34:04 +03:00
|
|
|
${coreutils}/bin/mkdir -p $xchg
|
|
|
|
|
|
|
|
for i in $passAsFile; do
|
|
|
|
i2=''${i}Path
|
|
|
|
_basename=$(${coreutils}/bin/basename ''${!i2})
|
|
|
|
${coreutils}/bin/cp ''${!i2} $xchg/$_basename
|
|
|
|
eval $i2=/tmp/xchg/$_basename
|
|
|
|
${coreutils}/bin/ls -la $xchg
|
|
|
|
done
|
|
|
|
|
2016-09-11 18:27:07 +03:00
|
|
|
unset i i2 _basename
|
|
|
|
export | ${gnugrep}/bin/grep -v '^xchg=' > $xchg/saved-env
|
|
|
|
unset xchg
|
|
|
|
|
2014-04-14 16:23:38 +04:00
|
|
|
export tests='${testScript}'
|
2011-01-13 13:54:07 +03:00
|
|
|
${testDriver}/bin/nixos-test-driver ${vm.config.system.build.vm}/bin/run-*-vm
|
2010-08-30 03:24:54 +04:00
|
|
|
''; # */
|
2010-03-11 16:11:06 +03:00
|
|
|
|
|
|
|
in
|
|
|
|
lib.overrideDerivation drv (attrs: {
|
2010-08-30 03:24:54 +04:00
|
|
|
requiredSystemFeatures = [ "kvm" ];
|
2010-03-11 16:11:06 +03:00
|
|
|
builder = "${bash}/bin/sh";
|
|
|
|
args = ["-e" vmRunCommand];
|
|
|
|
origArgs = attrs.args;
|
2011-09-14 22:20:50 +04:00
|
|
|
origBuilder = attrs.builder;
|
2010-03-11 16:11:06 +03:00
|
|
|
});
|
2010-03-11 18:09:10 +03:00
|
|
|
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2011-01-13 13:54:07 +03:00
|
|
|
runInMachineWithX = { require ? [], ... } @ args:
|
2010-03-11 18:09:10 +03:00
|
|
|
let
|
|
|
|
client =
|
|
|
|
{ config, pkgs, ... }:
|
|
|
|
{
|
2010-04-29 16:45:22 +04:00
|
|
|
inherit require;
|
2010-03-11 18:09:10 +03:00
|
|
|
virtualisation.memorySize = 1024;
|
|
|
|
services.xserver.enable = true;
|
|
|
|
services.xserver.displayManager.slim.enable = false;
|
|
|
|
services.xserver.displayManager.auto.enable = true;
|
|
|
|
services.xserver.windowManager.default = "icewm";
|
|
|
|
services.xserver.windowManager.icewm.enable = true;
|
|
|
|
services.xserver.desktopManager.default = "none";
|
|
|
|
};
|
|
|
|
in
|
|
|
|
runInMachine ({
|
2011-01-13 13:54:07 +03:00
|
|
|
machine = client;
|
|
|
|
preBuild =
|
|
|
|
''
|
|
|
|
$client->waitForX;
|
|
|
|
'';
|
|
|
|
} // args);
|
2010-03-11 18:09:10 +03:00
|
|
|
|
2011-09-14 22:20:50 +04:00
|
|
|
|
2014-04-24 17:46:10 +04:00
|
|
|
simpleTest = as: (makeTest as).test;
|
2010-03-11 01:51:53 +03:00
|
|
|
|
2010-01-05 14:18:43 +03:00
|
|
|
}
|