[svn:parrot] r41832 - branches/pcc_reapply/t/pmc

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Mon Oct 12 08:45:40 2009
New Revision: 41832
URL: https://trac.parrot.org/parrot/changeset/41832

Log:
[t] Add test for get_pmc in CallSignature and improve instantiation test

Modified:
   branches/pcc_reapply/t/pmc/callsignature.t

Modified: branches/pcc_reapply/t/pmc/callsignature.t
==============================================================================
--- branches/pcc_reapply/t/pmc/callsignature.t	Mon Oct 12 08:26:43 2009	(r41831)
+++ branches/pcc_reapply/t/pmc/callsignature.t	Mon Oct 12 08:45:40 2009	(r41832)
@@ -19,16 +19,30 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(7)
+    plan(8)
 
     test_instantiate()
+    test_get_pmc()
     test_get_set_attrs()
 .end
 
 
 .sub test_instantiate
     $P0 = new ['CallSignature']
-    ok(1, 'Instantiated CallSignature')
+    isa_ok($P0,'CallSignature', 'Instantiated CallSignature')
+.end
+
+.sub test_get_pmc
+    $P0 = new ['CallSignature']
+    $P5 = new 'String'
+
+    $P5 = 'foobar'
+    setattribute $P0, 'returns', $P5
+    $P5 = 'cheese'
+    setattribute $P0, 'arg_flags', $P5
+
+    $P2 = $P0
+    isa_ok( $P2, 'CallSignature')
 .end
 
 .sub test_get_set_attrs