anchor.diff:      '';
   
     # The test script boots the CD, installs NixOS on an empty hard
  -  # disk, and then reboot from the hard disk.
  +  # disk, and then reboot from the hard disk.  It's parameterized with
  +  # a test script fragment `createPartitions', which must create
  +  # partitions and filesystems, and a configuration.nix fragment
  +  # `fileSystems'.
     testScriptFun = { createPartitions, fileSystems }:
       ''
         createDisk("harddisk", 4 * 1024);
  
positive.code:       fileSystems = rootFS + bootFS;
      };
    
  }
  
negative.code:       # Perform the installation.
        $machine->mustSucceed("nixos-install >&2");
        
        $machine->mustSucceed("cat /mnt/boot/grub/grub.cfg >&2");
        
        $machine->shutdown;
  
        # Now see if we can boot the installation.
        my $machine = Machine->new({ hda => "harddisk" });
        
        # Did /boot get mounted, if appropriate?
        #$machine->mustSucceed("initctl start filesystems");
        #$machine->mustSucceed("test -e /boot/grub/grub.cfg");
        
        $machine->mustSucceed("nix-env -i coreutils >&2");
        $machine->mustSucceed("type -tP ls") =~ /profiles/
  