cvsuser 04/02/25 16:14:17
Modified: t/pmc objects.t
Log:
Add a little bit of explanation to test 21
Revision Changes Path
1.23 +4 -1 parrot/t/pmc/objects.t
Index: objects.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/objects.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -w -r1.22 -r1.23
--- objects.t 26 Feb 2004 00:03:25 -0000 1.22
+++ objects.t 26 Feb 2004 00:14:17 -0000 1.23
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: objects.t,v 1.22 2004/02/26 00:03:25 scog Exp $
+# $Id: objects.t,v 1.23 2004/02/26 00:14:17 scog Exp $
=head1 NAME
@@ -456,6 +456,9 @@
new P2, I0
new P3, I0
+# Note that setattribute holds the actual PMC, not a copy, so
+# in this test both attributes get the PMC from P4, and should
+# both have the same value, despite the C<inc>.
new P4, .PerlInt
set P4, 10
setattribute P2, 2, P4
