Changeset 21999

Show
Ignore:
Timestamp:
08/21/08 20:44:08 (3 months ago)
Author:
moritz
Message:

[t/examples] s/system/run/

Location:
t/examples
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • t/examples/examples.t

    r21722 r21999  
    4848  my $command = "$pugs examples/$ex.pl $redir $fn"; 
    4949  diag $command; 
    50   system $command; 
     50  run $command; 
    5151 
    5252  my $expected = slurp "examples/output/$ex"; 

  • t/examples/golf.t

    r21722 r21999  
    3636    ok( ! $exists, "file '$outtmp' does not exist" ); 
    3737    my $cmd = "$*EXECUTABLE_NAME $tsanta $*EXECUTABLE_NAME $s >$outtmp"; 
    38     ok( system($cmd), "Run '$cmd'" ); 
     38    ok( run($cmd), "Run '$cmd'" ); 
    3939    ok( $outtmp ~~ :f, "file '$outtmp' exists" ); 
    4040    my @lines = slurp($outtmp); 

  • t/examples/golfex.t

    r21722 r21999  
    5353    ok( ! $exists, "file '$outtmp' does not exist" ); 
    5454    my $cmd = "$*EXECUTABLE_NAME $tmpprog $origfile >$outtmp"; 
    55     ok( system($cmd), "Run '$cmd'" ); 
     55    ok( run($cmd), "Run '$cmd'" ); 
    5656    ok( $outtmp ~~ :f, "file '$outtmp' exists" ); 
    5757    my $got = slurp($outtmp);