Ticket #230: class.patch

t/pmc/class.t

@@ -17 +17 @@
 =cut
 
 
-.const int TESTS = 53
+.const int TESTS = 62 
 
 
 .sub 'main' :main
@@ -35 +35 @@
      'attributes'()
      'add_attribute'()
      'set_attr/get_attr'()
-#     'add_method'() # TODO not yet implemented
+     'add_method'()
      'parents'()
      'roles'()
      'inspect'()
@@ -217 +217 @@
 
 
 # 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 +263 @@
 
     .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
     class.'add_method'( 'foo' )
@@ -277 +289 @@
 .end
 
 .sub 'foo' :method
-    .return ('foo')
+    .return ('bar')
 .end