cvsuser 04/12/29 17:11:33
Modified: t/pmc objects.t Log: Another object test Revision Changes Path 1.64 +9 -2 parrot/t/pmc/objects.t Index: objects.t =================================================================== RCS file: /cvs/public/parrot/t/pmc/objects.t,v retrieving revision 1.63 retrieving revision 1.64 diff -u -r1.63 -r1.64 --- objects.t 22 Dec 2004 22:56:54 -0000 1.63 +++ objects.t 30 Dec 2004 01:11:33 -0000 1.64 @@ -1,6 +1,6 @@ #! perl -w # Copyright: 2001-2003 The Perl Foundation. All Rights Reserved. -# $Id: objects.t,v 1.63 2004/12/22 22:56:54 scog Exp $ +# $Id: objects.t,v 1.64 2004/12/30 01:11:33 scog Exp $ =head1 NAME @@ -16,7 +16,7 @@ =cut -use Parrot::Test tests => 56; +use Parrot::Test tests => 57; use Test::More; output_is(<<'CODE', <<'OUTPUT', "findclass (base class)"); @@ -1870,3 +1870,10 @@ ok 2 ok 3 OUTPUT + +output_is(<<'CODE', <<'OUTPUT', "Wrong way to create new objects"); + new P0, .ParrotObject + end +CODE +Can't create new ParrotObject; use the registered class instead +OUTPUT
