On Sun, 13 Oct 2002, Steve Fink wrote:

 [Discussion snipped]

> Yes, I get this also. I was trying to figure out how to properly use
> TODO or SKIP or something to suppress this, but none of them worked
> quite right -- it would say that the failed test was a TODO, but it
> still counted it as a failure. Locally, I am using the following
> (incorrect) patch. Could someone who understands this better do it the
> right way?

 Your problem was probably forgetting to use Test::More (which defines
 skip). In any case, the enclosed patch should do the trick.

 Simon

--- t/op/interp.t.old   Sun Oct 13 20:48:36 2002
+++ t/op/interp.t       Sun Oct 13 20:50:53 2002
@@ -1,6 +1,7 @@
 #! perl -w

 use Parrot::Test tests => 2;
+use Test::More;

 output_is(<<'CODE', <<'OUTPUT', "runinterp");
        newinterp P0, 0
@@ -18,6 +19,7 @@ In 2
 ending
 OUTPUT

+SKIP: { skip("Doesn't work with JIT enabled", 1);
 output_like(<<'CODE', <<'OUTPUT', "restart trace");
        print 2, "ok 1\n"
        set I0, 1
@@ -35,5 +37,6 @@ ok\s2\n
 (?:PC=13.*)?\n
 ok\s3\n$/x
 OUTPUT
+}

 1;

Reply via email to