[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