# New Ticket Created by  Jerry Gay 
# Please include the string:  [perl #41224]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41224 >


in perl 5, the following:
  #!perl
  use strict;
  use warnings;
  use Test::Builder;

  my $t= Test::Builder->new;
  $t->plan(tests=>1);
  $t->skip('skipping', 1);

yields:
  1..1
  ok 1 # skip skipping


while the pir equivalent:
  .sub main
      load_bytecode 'Test/Builder.pir'
      .local pmc test
      test = new 'Test::Builder'
      test.'plan'(1)
      test.'skip'(1,'skipping')
  .end

yields:
  1..1
  not ok 1 #skip skipping

perl reports 'ok', while parrot reports 'not ok.' i expect the
implementations to match behavior. but which behavior is correct? i'm
leaning towards perl's, since that module has been around for ages,
and has been used to test countless numbers of modules in production.
~jerry

Reply via email to