Ticket #834: testing-of-exit-code.patch

lib/Parrot/Test.pm

@@ -582 +582 @@
     if ( $func =~ m/^pir_.*?output/ ) {
         $code_f = per_test( '.pir', $test_no );
     }
+    elsif ( $func =~ m/^pir_exit_code_/ ) {
+        $code_f = per_test( '.pir', $test_no );
+    }
     elsif ( $func =~ m/^pasm_.*?output_/ ) {
         $code_f = per_test( '.pasm', $test_no );
     }
@@ -684 +687 @@
     my %parrot_test_map = map {
         $_ . '_output_is'           => 'is_eq',
         $_ . '_error_output_is'     => 'is_eq',
+        $_ . '_exit_code_is'        => 'is_eq',
         $_ . '_output_isnt'         => 'isnt_eq',
         $_ . '_error_output_isnt'   => 'isnt_eq',
         $_ . '_output_like'         => 'like',
@@ -723 +727 @@
                 \$extra{todo}
                 if defined $extra{todo};
 
+            if ( $func =~ /_exit_code_is$/ ) {
+                $expected = int($expected);
+                if ($exit_code == $expected) {
+                    my $pass = $builder->$meth( $exit_code, $expected, $desc );
+                    return $pass;
+                }
+                else {
+                    $builder->diag("\nExited with error code: $exit_code, expected: $expected.\n");
+                    return 0;
+                }
+            }
+
             if ( $func =~ /_error_/ ) {
                 return _handle_error_output( $builder, $real_output, $expected, $desc )
                     unless $exit_code;