X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Ftools.t;h=e8127371475bda57a37a638475b59928bb0aae4c;hb=e396263b9cda233221df3fd4605c7ed9e9394aca;hp=5cfdfb971ce7ba91e3e08f6b16e3f529a0d602d7;hpb=812e07636fbffb1c85aaa1864721401d7de1057a;p=gruntmaster-data.git diff --git a/t/tools.t b/t/tools.t index 5cfdfb9..e812737 100644 --- a/t/tools.t +++ b/t/tools.t @@ -22,7 +22,7 @@ withdb { $db->deploy }; my $pipe; -open $pipe, '|$perl gruntmaster-contest add ct'; +open $pipe, "|$perl gruntmaster-contest add ct"; print $pipe <<''; My cool contest MGV @@ -56,7 +56,7 @@ is_deeply \@list, [ sort @list2 ], 'gruntmaster-contest list'; system $perl, 'gruntmaster-contest', 'rm', 'dummy'; withdb { ok !$db->contest('dummy'), 'gruntmaster-contest rm' }; -open $pipe, '|$perl gruntmaster-problem add pb'; +open $pipe, "|$perl gruntmaster-problem add pb"; print $pipe <<''; Test problem n