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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Tue Jun  1 06:13:10 2010
New Revision: 47245
URL: https://trac.parrot.org/parrot/changeset/47245

Log:
tests for AddrRegistry get_bool

Modified:
   trunk/t/pmc/addrregistry.t

Modified: trunk/t/pmc/addrregistry.t
==============================================================================
--- trunk/t/pmc/addrregistry.t	Tue Jun  1 00:42:07 2010	(r47244)
+++ trunk/t/pmc/addrregistry.t	Tue Jun  1 06:13:10 2010	(r47245)
@@ -19,10 +19,24 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(1)
+    plan(3)
 
     $P0 = new ['AddrRegistry']
     ok(1, 'Instantiated .AddrRegistry')
+
+    $I0 = 0
+    if $P0 goto isnotempty
+    inc $I0
+isnotempty:
+    ok($I0, 'vtable get_bool gives false when empty')
+
+    $P1 = new [ 'Integer' ]
+    $P0[0] = $P1
+    $I0 = 0
+    unless $P0 goto isempty
+    inc $I0
+isempty:
+    ok($I0, 'vtable get_bool gives true when non empty')
 .end
 
 # Local Variables: