git.iko.soy/Idris-dev
on master help sign in
Use only one line of output per test
5d9112dNiklas Larsson
test/runtest.pl+4−5
compare with master
unifiedsplit
@@ -17,7 +17,6 @@ my @idrOpts = ();
17# 2. Stack
17# 2. Stack
18#
18#
19sub set_path {
19sub set_path {
20− my ($test_dir,) = @_;
21 my $sandbox = "../.cabal-sandbox/bin";
20 my $sandbox = "../.cabal-sandbox/bin";
22
21
23 my $stack_bin_path = `stack path --dist-dir`;
22 my $stack_bin_path = `stack path --dist-dir`;
@@ -50,7 +49,7 @@ sub runtest {
50 chdir($test);
49 chdir($test);
51
50
52 my $startTime = time();
51 my $startTime = time();
53− print "Running $test...\n";
52+ print "Running $test...";
54 my $got = `./run @idrOpts`;
53 my $got = `./run @idrOpts`;
55 my $exp = `cat expected`;
54 my $exp = `cat expected`;
56
55
@@ -88,19 +87,19 @@ sub runtest {
88 }
87 }
89
88
90 if ($got eq $exp) {
89 if ($got eq $exp) {
91− print "Ran $test...success\n";
90+ print "success\n";
92 $statsref->{'succeeded'}++;
91 $statsref->{'succeeded'}++;
93 }
92 }
94 else {
93 else {
95 if ($update == 0) {
94 if ($update == 0) {
96 $exitstatus = 1;
95 $exitstatus = 1;
97− print "Ran $test...FAILURE\n";
96+ print "FAILURE\n";
98 system "diff output expected";
97 system "diff output expected";
99 push @$failedref, $test;
98 push @$failedref, $test;
100 $statsref->{'failed'}++;
99 $statsref->{'failed'}++;
101 } else {
100 } else {
102 system("cp output expected");
101 system("cp output expected");
103− print "Ran $test...UPDATED\n";
102+ print "UPDATED\n";
104 $statsref->{'updated'}++;
103 $statsref->{'updated'}++;
105 }
104 }
106 }
105 }