@@ -1,5 +1,7 @@
1#!/usr/bin/perl
1#!/usr/bin/perl
3my $exitstatus = 0;
5my $exitstatus = 0;
5sub runtest {
7sub runtest {
@@ -79,6 +81,10 @@ while ($opt=shift(@opts)) {
79 else { push(@idrOpts, $opt); }
81 else { push(@idrOpts, $opt); }
84+my $idris = $ENV{IDRIS};
85+my $path = $ENV{PATH};
86+$ENV{PATH}=cwd() . "/" . $idris . ":" . $path;
82foreach $test (@tests) {
88foreach $test (@tests) {
84 if ($diff == 0 && $show == 0) {
90 if ($diff == 0 && $show == 0) {