From: Marius Gavrilescu Date: Tue, 24 Jun 2014 20:27:56 +0000 (+0300) Subject: Try (again) to use correct perl in tools.t X-Git-Tag: 5999.000_007~2 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=e396263b9cda233221df3fd4605c7ed9e9394aca;p=gruntmaster-data.git Try (again) to use correct perl in tools.t --- 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