cvs commit: parrot/t/pmc objects.t

[Simon Glover]

cvsuser     04/03/16 07:59:16

  Modified:    t/pmc    objects.t
  Log:
  Test for the class op
  
  Revision  Changes    Path
  1.35      +16 -2     parrot/t/pmc/objects.t
  
  Index: objects.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/pmc/objects.t,v
  retrieving revision 1.34
  retrieving revision 1.35
  diff -u -w -r1.34 -r1.35
  --- objects.t 16 Mar 2004 15:53:00 -0000      1.34
  +++ objects.t 16 Mar 2004 15:59:15 -0000      1.35
  @@ -1,6 +1,6 @@
   #! perl -w
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: objects.t,v 1.34 2004/03/16 15:53:00 scog Exp $
  +# $Id: objects.t,v 1.35 2004/03/16 15:59:15 scog Exp $
   
   =head1 NAME
   
  @@ -16,7 +16,7 @@
   
   =cut
   
  -use Parrot::Test tests => 29;
  +use Parrot::Test tests => 30;
   use Test::More;
   
   output_is(<<'CODE', <<'OUTPUT', "findclass (base class)");
  @@ -979,6 +979,20 @@
       end
   CODE
   Taurus
  +OUTPUT
  +
  +output_is(<<'CODE', <<'OUTPUT', "class op test");
  +    newclass P0, "City"
  +    find_type I0, "City"
  +    new P1, I0
  +
  +    class P2, P1
  +    classname S0, P2
  +    print S0
  +    print "\n"
  +    end
  +CODE
  +City
   OUTPUT
   
   1;