cvs commit: parrot/t/pmc objects.t

[Jens Rieks]

cvsuser     04/11/28 06:13:33

  Modified:    t/pmc    objects.t
  Log:
  added new TODO test:
  new Px, Ix: argcP is wrong in __init method
  
  Revision  Changes    Path
  1.57      +71 -2     parrot/t/pmc/objects.t
  
  Index: objects.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/pmc/objects.t,v
  retrieving revision 1.56
  retrieving revision 1.57
  diff -u -r1.56 -r1.57
  --- objects.t 19 Nov 2004 13:45:32 -0000      1.56
  +++ objects.t 28 Nov 2004 14:13:33 -0000      1.57
  @@ -1,6 +1,6 @@
   #! perl -w
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: objects.t,v 1.56 2004/11/19 13:45:32 leo Exp $
  +# $Id: objects.t,v 1.57 2004/11/28 14:13:33 jrieks Exp $
   
   =head1 NAME
   
  @@ -16,7 +16,7 @@
   
   =cut
   
  -use Parrot::Test tests => 51;
  +use Parrot::Test tests => 52;
   use Test::More;
   
   output_is(<<'CODE', <<'OUTPUT', "findclass (base class)");
  @@ -1708,3 +1708,72 @@
   42
   OUTPUT
   
  +{ local $TODO = "new Px, Ix: argcP is wrong in __init method";
  +output_is(<<'CODE', <<'OUTPUT', "__init argcP");
  +##PIR##
  +.sub main @MAIN
  +    $P0 = newclass "Foo"
  +    $I0 = find_type "Foo"
  +
  +    argcI = 2
  +    argcS = 3
  +    argcP = 4
  +    argcN = 5
  +
  +    print "a: "
  +    print argcI
  +    print argcS
  +    print argcP
  +    print argcN
  +    print "\n"
  +
  +    $P0 = new $I0
  +
  +    print "b: "
  +    print argcI
  +    print argcS
  +    print argcP
  +    print argcN
  +    print "\n"
  +
  +    argcI = 6
  +    argcS = 7
  +    argcP = 8
  +    argcN = 9
  +
  +    print "c: "
  +    print argcI
  +    print argcS
  +    print argcP
  +    print argcN
  +    print "\n"
  +    $P0 = new $I0, $P0
  +    print "d: "
  +    print argcI
  +    print argcS
  +    print argcP
  +    print argcN
  +    print "\n"
  +
  +    end
  +.end
  +
  +.namespace ["Foo"]
  +.sub __init method
  +    print "X: "
  +    print argcI
  +    print argcS
  +    print argcP
  +    print argcN
  +    print "\n"
  +.end
  +CODE
  +a: 2345
  +X: 0000
  +b: 2345
  +c: 6789
  +X: 0010
  +d: 6789
  +OUTPUT
  +
  +}