anchor.diff:      { createPartitions =
           ''
             $machine->succeed(
  -              "parted --script /dev/vda --"
  +              "flock /dev/vda parted --script /dev/vda --"
                 . " mklabel msdos"
                 . " mkpart primary ext2 1M 100MB" # /boot
                 . " mkpart extended 100M -1s"
  
positive.code:     { createPartitions =
          ''
            $machine->succeed(
                "parted --script /dev/vda -- mklabel msdos"
                . " mkpart primary 1M 2048M" # PV1
                . " set 1 lvm on"
                . " mkpart primary 2048M -1s" # PV2
  
negative.code:     { createPartitions =
          ''
            $machine->succeed(
                "flock /dev/vda parted --script /dev/vda -- mklabel msdos"
                . " mkpart primary ext2 1M 50MB" # /boot
                . " mkpart primary linux-swap 50MB 1024M"
                . " mkpart primary ext2 1024M -1s", # /
  