[test] improve gc stress test

use pir not pasm, print cmdline when failing
parrot · Nov 6, 2014 · 2d74c3e · 2d74c3e
1 parent 49cd2df
commit 2d74c3e
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/lib/Parrot/Test.pm b/lib/Parrot/Test.pm
@@ -835,7 +835,7 @@ sub _generate_test_functions {
                 }
                 else {
                     $builder->ok(0, $desc);
-                    $builder->diag( "Exited with error code: $exit_code, expected: $expected\n"
+                    $builder->diag( "$cmd\nExited with error code: $exit_code, expected: $expected\n"
                                     . "STDOUT:\n$real_output\n"
                                     );
                     return 0;
@@ -848,7 +848,7 @@ sub _generate_test_functions {
             }
             elsif ($exit_code) {
                 $builder->ok( 0, $desc );
-                $builder->diag( "Exited with error code: $exit_code\n"
+                $builder->diag( "$cmd\nExited with error code: $exit_code\n"
                         . "Received:\n$real_output\nExpected:\n$expected\n"
                         . $ori_output ne $real_output ? "$ori_output\n" : "");
                 return 0;

diff --git a/t/stress/gc.t b/t/stress/gc.t
@@ -31,11 +31,12 @@ for my $gc (@gc, '--no-gc') {
     my $gc_arg = $gc eq '--no-gc' ? $gc : "--gc $gc";
     local $ENV{TEST_PROG_ARGS} = "-t $gc_arg --gc-debug --gc-nursery-size=0.0001 ";
 
-    pasm_exit_code_is( <<'CODE', 0, "arraystress $gc_arg" );
+    pir_exit_code_is( <<'CODE', 0, "arraystress $gc_arg" );
+.sub 'main' :main
     print "starting\n"
-    new P0, 'Integer'
+    $P0 = new ['Integer']
     print "ending\n"
-    end
+.end
 CODE
 
     pir_exit_code_is( <<'CODE', 0, "ResizablePMCArray stress $gc_arg" );