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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Tue Jul 27 22:19:42 2010
New Revision: 48192
URL: https://trac.parrot.org/parrot/changeset/48192

Log:
a few more tests for Capture

Modified:
   trunk/t/pmc/capture.t

Modified: trunk/t/pmc/capture.t
==============================================================================
--- trunk/t/pmc/capture.t	Tue Jul 27 21:51:03 2010	(r48191)
+++ trunk/t/pmc/capture.t	Tue Jul 27 22:19:42 2010	(r48192)
@@ -17,7 +17,7 @@
 
 =cut
 
-.const int TESTS = 47
+.const int TESTS = 51
 
 .sub 'test' :main
     .include 'test_more.pir'
@@ -46,6 +46,16 @@
 
     capt = new ['Capture']
 
+    $I0 = elements capt
+    is($I0, 0, 'elements on empty Capture')
+    $N0 = capt[0]
+    is($N0, 0, 'get_number_keyed_int on empty Capture')
+    $I0 = capt[0]
+    is($I0, 0, 'get_integer_keyed_int on empty Capture')
+    $S0 = capt[0]
+    is($S0, '', 'get_string_keyed_int on empty Capture')
+    
+
     capt[0] = 0
     capt[1] = 1.5
     capt[2] = 'two'