cvsuser 04/08/03 11:47:32
Modified: t/pmc objects.t
Log:
Addparent with non-class arguments
Revision Changes Path
1.52 +23 -2 parrot/t/pmc/objects.t
Index: objects.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/objects.t,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -w -r1.51 -r1.52
--- objects.t 20 Jul 2004 09:35:04 -0000 1.51
+++ objects.t 3 Aug 2004 18:47:32 -0000 1.52
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: objects.t,v 1.51 2004/07/20 09:35:04 leo Exp $
+# $Id: objects.t,v 1.52 2004/08/03 18:47:32 scog Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 47;
+use Parrot::Test tests => 49;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "findclass (base class)");
@@ -984,6 +984,27 @@
Taurus
OUTPUT
+output_like(<<'CODE', <<'OUTPUT', "addparent exceptions #1");
+ newclass P0, "Astronomical Object"
+ new P1, .PerlString
+ set P1, "Not a class"
+ addparent P0, P1
+ end
+CODE
+/Parent isn't a ParrotClass/
+OUTPUT
+# '
+
+output_like(<<'CODE', <<'OUTPUT', "addparent exceptions #2");
+ new P0, .PerlHash
+ newclass P1, "Trashcan"
+ addparent P0, P1
+ end
+CODE
+/Class isn't a ParrotClass/
+OUTPUT
+# '
+
output_is(<<'CODE', <<'OUTPUT', "class op test");
newclass P0, "City"
find_type I0, "City"
