cvsuser 04/05/18 09:47:24
Modified: t/pmc objects.t
Log:
Patch up test harness for MMD
Revision Changes Path
1.42 +9 -5 parrot/t/pmc/objects.t
Index: objects.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/objects.t,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -w -r1.41 -r1.42
--- objects.t 5 Apr 2004 21:53:47 -0000 1.41
+++ objects.t 18 May 2004 16:47:23 -0000 1.42
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: objects.t,v 1.41 2004/04/05 21:53:47 leo Exp $
+# $Id: objects.t,v 1.42 2004/05/18 16:47:23 dan Exp $
=head1 NAME
@@ -817,11 +817,15 @@
OUTPUT
output_is(<<'CODE', <<'OUTPUT', "overriden vtables");
+.include "pmctypes.pasm"
+.include "mmd.pasm"
newclass P1, "Foo"
find_global P2, "set_i"
store_global "Foo", "__set_integer_native", P2
find_global P2, "add"
store_global "Foo", "__add", P2
+ find_type I1, "Foo"
+ mmdvtregister .MMD_ADD, I1, I1, P2
find_global P2, "get_s"
store_global "Foo", "__get_string", P2
# must add attributes before object instantiation
@@ -853,12 +857,12 @@
invoke P1
.pcc_sub add:
print "in add\n"
- classoffset I0, P2, "Foo"
- getattribute P10, P2, I0
- getattribute P11, P5, I0
+ classoffset I0, P5, "Foo"
+ getattribute P10, P5, I0
+ getattribute P11, P6, I0
new P12, .PerlInt
add P12, P10, P11
- setattribute P6, I0, P12
+ setattribute P7, I0, P12
invoke P1
.pcc_sub get_s:
print "in get_string\n"
