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

dukeleto at svn.parrot.org dukeleto at svn.parrot.org
Thu Mar 11 07:44:05 UTC 2010


Author: dukeleto
Date: Thu Mar 11 07:44:04 2010
New Revision: 44868
URL: https://trac.parrot.org/parrot/changeset/44868

Log:
[t][TT#1507] Add tests for VTABLE_init_int with a key constant

Modified:
   trunk/t/pmc/fixedbooleanarray.t
   trunk/t/pmc/fixedfloatarray.t
   trunk/t/pmc/fixedintegerarray.t
   trunk/t/pmc/fixedpmcarray.t
   trunk/t/pmc/fixedstringarray.t

Modified: trunk/t/pmc/fixedbooleanarray.t
==============================================================================
--- trunk/t/pmc/fixedbooleanarray.t	Thu Mar 11 07:28:55 2010	(r44867)
+++ trunk/t/pmc/fixedbooleanarray.t	Thu Mar 11 07:44:04 2010	(r44868)
@@ -20,7 +20,7 @@
 .sub 'test' :main
     .include 'test_more.pir'
 
-    plan(38)
+    plan(39)
 
     setting_array_size()
     resizing_not_allowed()
@@ -336,6 +336,11 @@
 
     $I0 = $P0
     is($I0, 10, "New style init creates the correct # of elements")
+
+    $P0 = new ['FixedBooleanArray'], 10
+
+    $I0 = $P0
+    is($I0, 10, "New style init creates the correct # of elements for a key constant")
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/fixedfloatarray.t
==============================================================================
--- trunk/t/pmc/fixedfloatarray.t	Thu Mar 11 07:28:55 2010	(r44867)
+++ trunk/t/pmc/fixedfloatarray.t	Thu Mar 11 07:44:04 2010	(r44868)
@@ -20,7 +20,7 @@
 .sub main :main
     .include 'fp_equality.pasm'
     .include 'test_more.pir'
-    plan(27)
+    plan(28)
 
     array_size_tests()
     element_set_tests()
@@ -251,6 +251,11 @@
 
     $I0 = $P0
     is($I0, 10, "New style init creates the correct # of elements")
+
+    $P0 = new ['FixedFloatArray'], 10
+
+    $I0 = $P0
+    is($I0, 10, "New style init creates the correct # of elements for a key constant")
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/fixedintegerarray.t
==============================================================================
--- trunk/t/pmc/fixedintegerarray.t	Thu Mar 11 07:28:55 2010	(r44867)
+++ trunk/t/pmc/fixedintegerarray.t	Thu Mar 11 07:44:04 2010	(r44868)
@@ -19,7 +19,7 @@
 
 .sub 'main' :main
     .include 'test_more.pir'
-    plan(30)
+    plan(31)
 
     test_set_size()
     test_reset_size()
@@ -39,6 +39,11 @@
 
     $I0 = $P0
     is($I0, 10, "New style init creates the correct # of elements")
+
+    $P0 = new ['FixedIntegerArray'], 10
+
+    $I0 = $P0
+    is($I0, 10, "New style init creates the correct # of elements for a key constant")
 .end
 
 .sub 'test_set_size'

Modified: trunk/t/pmc/fixedpmcarray.t
==============================================================================
--- trunk/t/pmc/fixedpmcarray.t	Thu Mar 11 07:28:55 2010	(r44867)
+++ trunk/t/pmc/fixedpmcarray.t	Thu Mar 11 07:44:04 2010	(r44868)
@@ -19,7 +19,7 @@
 
 .sub main :main
     .include 'test_more.pir'
-    plan(79)
+    plan(80)
     test_setting_array_size()
     test_assign_from_another()
     test_assign_self()
@@ -672,6 +672,11 @@
 
     $I0 = $P0
     is($I0, 10, "New style init creates the correct # of elements")
+
+    $P0 = new ['FixedPMCArray'], 10
+
+    $I0 = $P0
+    is($I0, 10, "New style init creates the correct # of elements for a key constant")
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/fixedstringarray.t
==============================================================================
--- trunk/t/pmc/fixedstringarray.t	Thu Mar 11 07:28:55 2010	(r44867)
+++ trunk/t/pmc/fixedstringarray.t	Thu Mar 11 07:44:04 2010	(r44868)
@@ -19,7 +19,7 @@
 
 .sub 'main' :main
     .include 'test_more.pir'
-    plan(47)
+    plan(48)
 
     test_set_size()
     test_reset_size()
@@ -382,6 +382,11 @@
 
     $I0 = $P0
     is($I0, 10, "New style init creates the correct # of elements")
+
+    $P0 = new ['FixedStringArray'], 10
+
+    $I0 = $P0
+    is($I0, 10, "New style init creates the correct # of elements for a key constant")
 .end
 
 # Local Variables:


More information about the parrot-commits mailing list