@@ -17,7 +17,6 @@ my @idrOpts = ();
1717# 2. Stack
1818#
1919sub set_path {
20− my ($test_dir,) = @_;
2120 my $sandbox = "../.cabal-sandbox/bin";
2221
2322 my $stack_bin_path = `stack path --dist-dir`;
@@ -50,7 +49,7 @@ sub runtest {
5049 chdir($test);
5150
5251 my $startTime = time();
53− print "Running $test...\n";
52+ print "Running $test...";
5453 my $got = `./run @idrOpts`;
5554 my $exp = `cat expected`;
5655
@@ -88,19 +87,19 @@ sub runtest {
8887 }
8988
9089 if ($got eq $exp) {
91− print "Ran $test...success\n";
90+ print "success\n";
9291 $statsref->{'succeeded'}++;
9392 }
9493 else {
9594 if ($update == 0) {
9695 $exitstatus = 1;
97− print "Ran $test...FAILURE\n";
96+ print "FAILURE\n";
9897 system "diff output expected";
9998 push @$failedref, $test;
10099 $statsref->{'failed'}++;
101100 } else {
102101 system("cp output expected");
103− print "Ran $test...UPDATED\n";
102+ print "UPDATED\n";
104103 $statsref->{'updated'}++;
105104 }
106105 }