Changeset 6094 for perl5/Perl6-MetaModel/t/15_CLASS.t

Timestamp:

08/06/05 23:00:58 (3 years ago)

Author:

Stevan

Message:

Perl6::MetaModel? - (p5)
* $?CLASS now returns the ::Class object
* all methods and attributes are now associated with the ::Class object

instead of just the class name

* improved the name of ::get_obj_id to ::get_P6opaque_instance_id so that

no one will try to use it :P

* also added ::get_P6opaque_instance_class to peek into the class slot

(needed this for submethods)

Files:

• perl5/Perl6-MetaModel/t/15_CLASS.t (modified) (3 diffs)

perl5/Perl6-MetaModel/t/15_CLASS.t

@@ -40 +40 @@
         $val = Foo->this_will_not_die();
     } '... CLASS can be called from a Class method';
-    is($val, 'Foo', '... got the right value from CLASS too');
+    isa_ok($val, 'Foo');
 }
 
@@ -51 +51 @@
         $val = $foo->bar();
     } '... CLASS can be used to call Class methods';
-    is($val, 'Foo', '... got the right value from CLASS too');
+    isa_ok($val, 'Foo');
 }
 
@@ -59 +59 @@
         $val = $foo->foo();
     } '... CLASS can be called from an instance method';
-    is($val, 'Foo', '... got the right value from CLASS too');
+    isa_ok($val, 'Foo');
 }