anchor.diff:      { createPartitions =
           ''
             $machine->succeed(
  -              "parted --script /dev/sda mklabel msdos",
  -              "parted --script /dev/sda -- mkpart primary linux-swap 1M 1024M",
  -              "parted --script /dev/sda -- mkpart primary ext2 1024M -1s",
  +              "parted --script /dev/sda -- mklabel msdos"
  +              . " mkpart primary linux-swap 1M 1024M"
  +              . " mkpart primary ext2 1024M -1s",
                 "udevadm settle",
                 "mkswap /dev/sda1 -L swap",
                 "swapon -L swap",
  
positive.code:     { createPartitions =
          ''
            $machine->succeed(
                "parted --script /dev/vda mklabel gpt",
                "parted --script /dev/vda -- mkpart ESP fat32 1M 50MiB", # /boot
                "parted --script /dev/vda -- set 1 boot on",
                "parted --script /dev/vda -- mkpart primary linux-swap 50MiB 1024MiB",
                "parted --script /dev/vda -- mkpart primary ext2 1024MiB -1MiB", # /
                "udevadm settle",
                "mkswap /dev/vda2 -L swap",
                "swapon -L swap",
  
negative.code:     { createPartitions =
          ''
            $machine->succeed(
                "parted --script /dev/vda -- mklabel msdos"
                . " mkpart primary ext2 1M 50MB" # /boot
                . " mkpart primary linux-swap 50MB 1024M"
                . " mkpart primary ext2 1024M -1s", # /
                "udevadm settle",
                "mkswap /dev/vda2 -L swap",
                "swapon -L swap",
  