Author: allison
Date: Fri Mar 16 23:15:04 2007
New Revision: 17524
Modified:
trunk/t/pmc/smop_attribute.t
trunk/t/pmc/smop_class.t
Log:
[smop]: Using the new isa_ok() feature testing the C SMOP prototype.
Modified: trunk/t/pmc/smop_attribute.t
==============================================================================
--- trunk/t/pmc/smop_attribute.t (original)
+++ trunk/t/pmc/smop_attribute.t Fri Mar 16 23:15:04 2007
@@ -30,8 +30,7 @@
plan( 9 )
$P0 = new 'SMOP_Attribute'
-# ok ($P0, 'create a SMOP_Attribute')
- ok (1, 'create a SMOP_Attribute')
+ isa_ok ($P0, 'SMOP_Attribute')
$P0 = new 'SMOP_Attribute'
Modified: trunk/t/pmc/smop_class.t
==============================================================================
--- trunk/t/pmc/smop_class.t (original)
+++ trunk/t/pmc/smop_class.t Fri Mar 16 23:15:04 2007
@@ -30,8 +30,7 @@
plan( 1 )
$P0 = new 'SMOP_Class'
- ok (1)
-# ok ($P0)
+ isa_ok($P0, 'SMOP_Class')
.end
