[svn:parrot] r44865 - trunk/t/pmc
dukeleto at svn.parrot.org
dukeleto at svn.parrot.org
Thu Mar 11 06:17:08 UTC 2010
Author: dukeleto
Date: Thu Mar 11 06:17:07 2010
New Revision: 44865
URL: https://trac.parrot.org/parrot/changeset/44865
Log:
[t] Enable various tests that test VTABLE_init_int. Note that it does not work for key constants (i.e. ['Foo']) but works on string constants. This needs to be fixed.
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 05:09:41 2010 (r44864)
+++ trunk/t/pmc/fixedbooleanarray.t Thu Mar 11 06:17:07 2010 (r44865)
@@ -17,12 +17,10 @@
=cut
-.const int TESTS = 37
-
.sub 'test' :main
.include 'test_more.pir'
- plan(TESTS)
+ plan(38)
setting_array_size()
resizing_not_allowed()
@@ -36,10 +34,10 @@
truth()
pmc_keys_and_values()
freeze_thaw()
- 'clone'()
+ test_clone()
get_iter()
fill()
-# 'test_new_style_init'()
+ test_new_style_init()
.end
.sub 'setting_array_size'
@@ -245,7 +243,7 @@
is($S0, '01001000100010010', 'FixedBooleanArray after thaw')
.end
-.sub 'clone'
+.sub test_clone
.local pmc fba1, fba2
.local int i
.local string s
@@ -333,8 +331,8 @@
.end
-.sub 'test_new_style_init'
- $P0 = new ['FixedBooleanArray'], 10
+.sub test_new_style_init
+ $P0 = new 'FixedBooleanArray', 10
$I0 = $P0
is($I0, 10, "New style init creates the correct # of elements")
Modified: trunk/t/pmc/fixedfloatarray.t
==============================================================================
--- trunk/t/pmc/fixedfloatarray.t Thu Mar 11 05:09:41 2010 (r44864)
+++ trunk/t/pmc/fixedfloatarray.t Thu Mar 11 06:17:07 2010 (r44865)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2007, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -20,7 +20,7 @@
.sub main :main
.include 'fp_equality.pasm'
.include 'test_more.pir'
- plan(26)
+ plan(27)
array_size_tests()
element_set_tests()
@@ -30,7 +30,7 @@
what_is_truth()
interface_check()
get_iter_test()
-# 'test_new_style_init'()
+ test_new_style_init()
.end
.sub array_size_tests
@@ -246,8 +246,8 @@
is($S0, "1.1,99.99,-345.001,", "get_iter works")
.end
-.sub 'test_new_style_init'
- $P0 = new ['FixedFloatArray'], 10
+.sub test_new_style_init
+ $P0 = new 'FixedFloatArray', 10
$I0 = $P0
is($I0, 10, "New style init creates the correct # of elements")
Modified: trunk/t/pmc/fixedintegerarray.t
==============================================================================
--- trunk/t/pmc/fixedintegerarray.t Thu Mar 11 05:09:41 2010 (r44864)
+++ trunk/t/pmc/fixedintegerarray.t Thu Mar 11 06:17:07 2010 (r44865)
@@ -19,19 +19,26 @@
.sub 'main' :main
.include 'test_more.pir'
- plan(29)
+ plan(30)
- 'test_set_size'() # 2 tests
- 'test_reset_size'() # 1 test
- 'test_set_first'() # 3 tests
- 'test_set_second'() # 3 tests
- 'test_out_of_bounds'() # 4 tests
- 'test_set_via_pmc'() # 3 tests
- 'test_get_via_pmc'() # 4 tests
- 'test_interface_done'() # 4 tests
- 'test_get_iter'() # 1 test
- 'test_equality'() # 5 tests
-# 'test_new_style_init'() # 1 test
+ test_set_size()
+ test_reset_size()
+ test_set_first()
+ test_set_second()
+ test_out_of_bounds()
+ test_set_via_pmc()
+ test_get_via_pmc()
+ test_interface_done()
+ test_get_iter()
+ test_equality()
+ test_new_style_init()
+.end
+
+.sub 'test_new_style_init'
+ $P0 = new 'FixedIntegerArray', 10
+
+ $I0 = $P0
+ is($I0, 10, "New style init creates the correct # of elements")
.end
.sub 'test_set_size'
Modified: trunk/t/pmc/fixedpmcarray.t
==============================================================================
--- trunk/t/pmc/fixedpmcarray.t Thu Mar 11 05:09:41 2010 (r44864)
+++ trunk/t/pmc/fixedpmcarray.t Thu Mar 11 06:17:07 2010 (r44865)
@@ -19,7 +19,7 @@
.sub main :main
.include 'test_more.pir'
- plan(78)
+ plan(79)
test_setting_array_size()
test_assign_from_another()
test_assign_self()
@@ -46,7 +46,7 @@
test_splice()
test_sort()
test_exists()
-# 'test_new_style_init'()
+ test_new_style_init()
.end
.sub test_exists
@@ -668,7 +668,7 @@
.end
.sub 'test_new_style_init'
- $P0 = new ['FixedPMCArray'], 10
+ $P0 = new 'FixedPMCArray', 10
$I0 = $P0
is($I0, 10, "New style init creates the correct # of elements")
Modified: trunk/t/pmc/fixedstringarray.t
==============================================================================
--- trunk/t/pmc/fixedstringarray.t Thu Mar 11 05:09:41 2010 (r44864)
+++ trunk/t/pmc/fixedstringarray.t Thu Mar 11 06:17:07 2010 (r44865)
@@ -19,26 +19,26 @@
.sub 'main' :main
.include 'test_more.pir'
- plan(46)
+ plan(47)
- 'test_set_size'() # 2 tests
- 'test_reset_size'() # 1 test
- 'test_set_first'() # 3 tests
- 'test_set_second'() # 3 tests
- 'test_out_of_bounds'() # 4 tests
- 'test_set_via_pmc'() # 3 tests
- 'test_get_via_pmc'() # 4 tests
- 'test_interface_done'() # 3 tests
- 'test_clone'() # 3 tests
- 'test_clone_unitialized'() # 2 tests
- 'test_truth'() # 2 tests
- 'test_get_iter'() # 1 test
- 'test_freez_thaw'() # 1 test
- 'test_get_string'() # 1 test
- 'test_equality'() # 5 tests
- 'test_gc'() # 4 tests
- 'test_number'() # 2 tests
-# 'test_new_style_init'() # 1 test
+ test_set_size()
+ test_reset_size()
+ test_set_first()
+ test_set_second()
+ test_out_of_bounds()
+ test_set_via_pmc()
+ test_get_via_pmc()
+ test_interface_done()
+ test_clone()
+ test_clone_unitialized()
+ test_truth()
+ test_get_iter()
+ test_freez_thaw()
+ test_get_string()
+ test_equality()
+ test_gc()
+ test_number()
+ test_new_style_init()
.end
.sub 'test_set_size'
@@ -378,7 +378,7 @@
.end
.sub 'test_new_style_init'
- $P0 = new ['FixedStringArray'], 10
+ $P0 = new 'FixedStringArray', 10
$I0 = $P0
is($I0, 10, "New style init creates the correct # of elements")
More information about the parrot-commits
mailing list