anchor.diff:  
       destroyVM_simple;
   
  +    subtest "systemd-detect-virt", sub {
  +      createVM_detectvirt;
  +      vbm("startvm detectvirt");
  +      waitForStartup_detectvirt;
  +      waitForVMBoot_detectvirt;
  +      shutdownVM_detectvirt;
  +      my $result = $machine->succeed("cat '$detectvirt_sharepath/result'");
  +      chomp $result;
  +      die "systemd-detect-virt returned \"$result\" instead of \"oracle\""
  +        if $result ne "oracle";
  +    };
  +
       subtest "net-hostonlyif", sub {
         createVM_test1;
         createVM_test2;
  
positive.code:     echo "$otherIP reachable" | ${pkgs.netcat}/bin/netcat -clp 5678 || :
    '';
  
    vboxVMs = mapAttrs createVM {
      simple = {};
  
      test1.vmFlags = hostonlyVMFlags;
      test1.vmScript = dhcpScript;
  
negative.code:     };
  
      testSubs = ''
        my ${"$" + name}_sharepath = '${sharePath}';
  
        sub checkRunning_${name} {
          my $cmd = 'VBoxManage list runningvms | grep -q "^\"${name}\""';
          my ($status, $out) = $machine->execute(ru $cmd);
  