Commit 78378c27 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Copies nsfile into test directory. Easy debugging mainly.

parent 5f82bb9f
......@@ -56,8 +56,8 @@ $dbh = $::dbh;
sub tb_prerun {
my ($cmd,$exitcode) = @_;
print "$cmd $pid $eid $dir/nsfile.ns\n";
open(TBEXEC,"$cmd $pid $eid $dir/nsfile.ns 2>&1 |");
print "$cmd $pid $eid nsfile.ns\n";
open(TBEXEC,"$cmd $pid $eid nsfile.ns 2>&1 |");
while (<TBEXEC>) {
print $_;
}
......@@ -109,6 +109,12 @@ sub tb_fail {
::doexit;
};
print "Debug: $dir/nsfile.ns\n";
system("cp -f $dir/nsfile.ns .");
if (($? >> 8) != 0) {
tb_fail("Could not copy nsfile.");
}
print "Executing $dir/test\n";
do "$dir/test";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment