anchor.diff:        $machine->screenshot("gui_manager_stopped");
       };
   
  -    cleanup;
  -
  -    subtest "virtualbox-cli", sub {
  -      $machine->succeed(ru "VBoxManage startvm test");
  -      waitForStartup;
  +    cleanup_test1;
  +
  +    subtest "simple-cli", sub {
  +      vbm("startvm test1");
  +      waitForStartup_test1;
         $machine->screenshot("cli_started");
  -      waitForVMBoot;
  +      waitForVMBoot_test1;
         $machine->screenshot("cli_booted");
  -      shutdownVM;
  -    };
  +      shutdownVM_test1;
  +    };
  +
  +    cleanup_test1;
   
       $machine->fail("test -e '/root/VirtualBox VMs'");
       $machine->succeed("test -e '/home/alice/VirtualBox VMs'");
  
positive.code: 
      cat > /mnt/grub/grub.cfg <<GRUB
      set root=hd0,1
      linux /linux ${pkgs.lib.concatStringsSep " " cfg.boot.kernelParams}
      initrd /initrd
      boot
      GRUB
      umount /mnt
    '');
  
  in {
    name = "virtualbox";
  
    machine = { pkgs, ... }: {
      imports = [ ./common/user-account.nix ./common/x11.nix ];
      services.virtualboxHost.enable = true;
  
      systemd.sockets.vboxtestlog = {
        description = "VirtualBox Test Machine Log Socket";
        wantedBy = [ "sockets.target" ];
        before = [ "multi-user.target" ];
        socketConfig.ListenStream = "/run/virtualbox-log.sock";
        socketConfig.Accept = true;
      };
  
      systemd.services."vboxtestlog@" = {
        description = "VirtualBox Test Machine Log";
        serviceConfig.StandardInput = "socket";
        serviceConfig.StandardOutput = "syslog";
        serviceConfig.SyslogIdentifier = "testvm";
        serviceConfig.ExecStart = "${pkgs.coreutils}/bin/cat";
      };
    };
  
    testScript = let
      mkFlags = pkgs.lib.concatStringsSep " ";
  
      createFlags = mkFlags [
        "--ostype Linux26"
  
negative.code: 
      vmFlags = mkFlags [
        "--uart1 0x3F8 4"
        "--uartmode1 client /run/virtualbox-log-${name}.sock"
      ];
  
      controllerFlags = mkFlags [
  