test-driver: Set context to include machines created by createMachine

+1 -1
+1 -1
nixos/lib/test-driver/test-driver.pl
··· 52 52 my ($args) = @_; 53 53 my $vm = Machine->new({%{$args}, log => $log, redirectSerial => ($ENV{USE_SERIAL} // "0") ne "1"}); 54 54 $vms{$vm->name} = $vm; 55 + $context .= "my \$" . $vm->name . " = \$vms{'" . $vm->name . "'}; "; 55 56 return $vm; 56 57 } 57 58 58 59 foreach my $vmScript (@ARGV) { 59 60 my $vm = createMachine({startCommand => $vmScript}); 60 - $context .= "my \$" . $vm->name . " = \$vms{'" . $vm->name . "'}; "; 61 61 } 62 62 63 63