2009-08-31 15:40:57 +02:00
|
|
|
# This module allows the test driver to connect to the virtual machine
|
|
|
|
# via a root shell attached to port 514.
|
|
|
|
|
|
|
|
{ config, pkgs, ... }:
|
|
|
|
|
|
|
|
with pkgs.lib;
|
|
|
|
|
2010-01-06 19:03:31 +01:00
|
|
|
let
|
|
|
|
|
|
|
|
# Urgh, `socat' sets the SIGCHLD to ignore. This wreaks havoc with
|
|
|
|
# some programs.
|
|
|
|
rootShell = pkgs.writeScript "shell.pl"
|
|
|
|
''
|
|
|
|
#! ${pkgs.perl}/bin/perl
|
|
|
|
$SIG{CHLD} = 'DEFAULT';
|
2010-06-18 21:31:02 +02:00
|
|
|
print "\n";
|
2010-01-06 19:03:31 +01:00
|
|
|
exec "/bin/sh";
|
|
|
|
'';
|
|
|
|
|
|
|
|
in
|
|
|
|
|
2009-08-31 15:40:57 +02:00
|
|
|
{
|
|
|
|
|
|
|
|
config = {
|
|
|
|
|
2009-10-12 20:09:34 +02:00
|
|
|
jobs.backdoor =
|
2010-06-20 17:33:44 +02:00
|
|
|
{ startOn = "ip-up";
|
|
|
|
stopOn = "never";
|
2009-08-31 15:40:57 +02:00
|
|
|
|
2010-01-06 00:59:29 +01:00
|
|
|
script =
|
|
|
|
''
|
2010-01-06 19:03:31 +01:00
|
|
|
export USER=root
|
2010-01-06 00:59:29 +01:00
|
|
|
export HOME=/root
|
|
|
|
export DISPLAY=:0.0
|
|
|
|
export GCOV_PREFIX=/tmp/coverage-data
|
2010-01-06 19:03:31 +01:00
|
|
|
source /etc/profile
|
2010-01-06 00:59:29 +01:00
|
|
|
cd /tmp
|
2010-06-18 21:31:02 +02:00
|
|
|
echo "connecting to host..." > /dev/ttyS0
|
2010-06-20 17:33:44 +02:00
|
|
|
${pkgs.socat}/bin/socat tcp:10.0.2.6:23 exec:${rootShell} 2> /dev/ttyS0 || poweroff -f
|
2010-01-06 00:59:29 +01:00
|
|
|
'';
|
2010-06-20 17:33:44 +02:00
|
|
|
|
|
|
|
respawn = false;
|
2009-08-31 15:40:57 +02:00
|
|
|
};
|
2010-06-20 17:33:44 +02:00
|
|
|
|
2009-08-31 15:40:57 +02:00
|
|
|
boot.postBootCommands =
|
|
|
|
''
|
2010-01-04 10:51:57 +01:00
|
|
|
# Panic on out-of-memory conditions rather than letting the
|
|
|
|
# OOM killer randomly get rid of processes, since this leads
|
|
|
|
# to failures that are hard to diagnose.
|
|
|
|
echo 2 > /proc/sys/vm/panic_on_oom
|
|
|
|
|
|
|
|
# Coverage data is written into /tmp/coverage-data. Symlink
|
|
|
|
# it to the host filesystem so that we don't need to copy it
|
|
|
|
# on shutdown.
|
2009-08-31 15:40:57 +02:00
|
|
|
( eval $(cat /proc/cmdline)
|
|
|
|
mkdir /hostfs/$hostTmpDir/coverage-data
|
|
|
|
ln -s /hostfs/$hostTmpDir/coverage-data /tmp/coverage-data
|
|
|
|
)
|
2010-01-04 14:22:43 +01:00
|
|
|
|
|
|
|
# Mount debugfs to gain access to the kernel coverage data (if
|
|
|
|
# available).
|
|
|
|
mount -t debugfs none /sys/kernel/debug || true
|
2009-08-31 15:40:57 +02:00
|
|
|
'';
|
2009-09-02 00:50:46 +02:00
|
|
|
|
|
|
|
# If the kernel has been built with coverage instrumentation, make
|
|
|
|
# it available under /proc/gcov.
|
|
|
|
boot.kernelModules = [ "gcov-proc" ];
|
2010-01-04 19:04:57 +01:00
|
|
|
|
|
|
|
# Panic if an error occurs in stage 1 (rather than waiting for
|
|
|
|
# user intervention).
|
2010-01-06 22:16:57 +01:00
|
|
|
boot.kernelParams =
|
|
|
|
[ "console=tty1" "console=ttyS0" "panic=1" "stage1panic" ];
|
2010-01-06 00:38:13 +01:00
|
|
|
|
|
|
|
# `xwininfo' is used by the test driver to query open windows.
|
|
|
|
environment.systemPackages = [ pkgs.xorg.xwininfo ];
|
2010-03-09 14:31:20 +01:00
|
|
|
|
2010-06-20 21:22:23 +02:00
|
|
|
# Send all of /var/log/messages to the serial port.
|
|
|
|
services.syslogd.extraConfig = "*.* /dev/ttyS0";
|
2010-03-09 14:31:20 +01:00
|
|
|
|
2010-06-18 15:21:01 +02:00
|
|
|
# Prevent tests from accessing the Internet.
|
2010-07-12 15:42:59 +02:00
|
|
|
networking.defaultGateway = mkOverride 150 {} "";
|
2010-07-12 15:41:22 +02:00
|
|
|
networking.nameservers = mkOverride 150 {} [ ];
|
2010-06-18 15:21:01 +02:00
|
|
|
|
2010-06-20 22:52:42 +02:00
|
|
|
# Apply a patch to the kernel to increase the 15s CIFS timeout.
|
|
|
|
nixpkgs.config.packageOverrides = pkgs: {
|
|
|
|
linux = pkgs.linux.override (orig: {
|
|
|
|
kernelPatches = orig.kernelPatches ++ [ pkgs.kernelPatches.cifs_timeout ];
|
|
|
|
});
|
|
|
|
};
|
|
|
|
|
2009-08-31 15:40:57 +02:00
|
|
|
};
|
|
|
|
|
|
|
|
}
|