[svn:parrot] r36042 - trunk/t/pmc

Author: jkeenan
Date: Mon Jan 26 16:07:15 2009
New Revision: 36042

Modified:
   trunk/t/pmc/class.t

Log:
Applying patch submitted by Ron Schmidt in
https://trac.parrot.org/parrot/ticket/230.  Uncomment several tests which are
now passing.


Modified: trunk/t/pmc/class.t
==============================================================================
--- trunk/t/pmc/class.t	(original)
+++ trunk/t/pmc/class.t	Mon Jan 26 16:07:15 2009
@@ -17,7 +17,7 @@
 =cut
 
 
-.const int TESTS = 53
+.const int TESTS = 62 
 
 
 .sub 'main' :main
@@ -35,7 +35,7 @@
      'attributes'()
      'add_attribute'()
      'set_attr/get_attr'()
-#     'add_method'() # TODO not yet implemented
+     'add_method'()
      'parents'()
      'roles'()
      'inspect'()
@@ -217,8 +217,8 @@
 
 
 # L<PDD15/Class PMC API/=item add_method>
-.sub 'add_method' # todo => 'not yet implemented'
-    .local pmc class, attribs, meth_to_add, test_attr_val
+.sub 'add_method'
+    .local pmc class, attribs, meth_to_add, test_attr_val, obj_inst
     .local int test_val
     class = new ['Class']
 
@@ -263,8 +263,20 @@
 
     .local string test_string_val
 
+    $I0 = 1
+    push_eh t_class_meth
     test_string_val = class.'foo'()
+    $I0 = 0
+    pop_eh
+
     is(test_string_val, 'bar', 'add_method() invoking method added to class works')
+t_class_meth:
+    todo(0, 'add_method() invoking method added to class works', "classes don't seem to call methods yet")
+
+    obj_inst = class.'new'()
+    test_string_val = obj_inst.'foo'()
+    is(test_string_val, 'bar', 'add_method() invoking method added to class through instance works')
+
 
     $I0 = 1
     push_eh t_existing_method
@@ -277,7 +289,7 @@
 .end
 
 .sub 'foo' :method
-    .return ('foo')
+    .return ('bar')
 .end
 
 

• [svn:parrot] r36042 - trunk/t/pmc by jkeenan