Author: chromatic
Date: Sat Mar 29 12:43:50 2008
New Revision: 26628
Modified:
trunk/runtime/parrot/library/Test/Builder.pir
trunk/runtime/parrot/library/Test/Builder/Tester.pir
trunk/runtime/parrot/library/Test/More.pir
trunk/t/compilers/pge/00-basic.t
trunk/t/compilers/pge/06-grammar.t
trunk/t/compilers/pge/p5regex/p5rx.t
trunk/t/compilers/pge/perl6regex/01-regex.t
trunk/t/library/coroutine.t
trunk/t/library/pg.t
trunk/t/library/string_utils.t
trunk/t/library/test_builder_tester.t
trunk/t/library/test_more.t
trunk/t/op/sprintf.t
Log:
[runtime] Changed PIR Test::Builder name to use keyed syntax.
Modified: trunk/runtime/parrot/library/Test/Builder.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder.pir Sat Mar 29 12:43:50 2008
@@ -10,7 +10,7 @@
# create a new Test::Builder object
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
# plan to run ten tests
test.'plan'( 10 )
@@ -43,7 +43,7 @@
=cut
-.namespace [ 'Test::Builder' ]
+.namespace [ 'Test'; 'Builder' ]
.sub _initialize :load
load_bytecode 'library/Test/Builder/Test.pbc'
@@ -52,7 +52,7 @@
.local pmc tb_class
- newclass tb_class, 'Test::Builder'
+ newclass tb_class, [ 'Test'; 'Builder' ]
addattribute tb_class, 'output'
addattribute tb_class, 'testplan'
addattribute tb_class, 'results'
@@ -60,7 +60,7 @@
.local pmc single
single = new 'Undef'
- store_global 'Test::Builder::_singleton', 'singleton', single
+ store_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton', single
.end
=item C<new( args_hash )>
@@ -158,7 +158,7 @@
results = new 'ResizablePMCArray'
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
test.'_assign_args'( output, testplan, results )
.return( test )
@@ -168,7 +168,7 @@
.param pmc args
.local pmc single
- single = find_global 'Test::Builder::_singleton', 'singleton'
+ single = find_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton'
.local pmc output
.local pmc testplan
@@ -176,7 +176,7 @@
.local int is_defined
# try for the global first
- is_defined = isa single, 'Test::Builder'
+ is_defined = isa single, [ 'Test'; 'Builder' ]
unless is_defined goto CREATE_ATTRIBUTES
output = single.'output'()
@@ -215,7 +215,7 @@
results = new 'ResizablePMCArray'
# store this as the singleton
- store_global 'Test::Builder::_singleton', 'singleton', self
+ store_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton', self
RESULTS_DEFINED:
.return( output, testplan, results )
@@ -352,7 +352,7 @@
FINISH_PLAN:
unless vivify_global_testplan goto WRITE_HEADER
- store_global 'Test::Builder::_singleton', 'testplan', testplan
+ store_global [ 'Test'; 'Builder'; '_singleton' ], 'testplan', testplan
WRITE_HEADER:
.local pmc output
Modified: trunk/runtime/parrot/library/Test/Builder/Tester.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Tester.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/Tester.pir Sat Mar 29
12:43:50 2008
@@ -25,7 +25,7 @@
.local pmc test
tb_args = new 'Hash'
- test = new 'Test::Builder', tb_args
+ test = new [ 'Test'; 'Builder' ], tb_args
# set your test plan
plan( 4 )
@@ -169,13 +169,13 @@
args = new 'Hash'
set args['output'], test_output
- default_test = new 'Test::Builder', args
+ default_test = new [ 'Test'; 'Builder' ], args
default_test.'plan'( 'no_plan' )
test_output.'output'()
# create the Test::Builder object that this uses
.local pmc tb_create
- tb_create = find_global 'Test::Builder', 'create'
+ tb_create = find_global [ 'Test'; 'Builder' ], 'create'
args = new 'Hash'
output = new 'Test::Builder::Output', args
Modified: trunk/runtime/parrot/library/Test/More.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/More.pir (original)
+++ trunk/runtime/parrot/library/Test/More.pir Sat Mar 29 12:43:50 2008
@@ -67,7 +67,7 @@
load_bytecode 'library/Test/Builder.pbc'
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
store_global [ 'Test'; 'More' ], '_test', test
.end
Modified: trunk/t/compilers/pge/00-basic.t
==============================================================================
--- trunk/t/compilers/pge/00-basic.t (original)
+++ trunk/t/compilers/pge/00-basic.t Sat Mar 29 12:43:50 2008
@@ -20,7 +20,7 @@
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
test.'plan'(1)
test.'ok'(1,'Basic passing')
.end
Modified: trunk/t/compilers/pge/06-grammar.t
==============================================================================
--- trunk/t/compilers/pge/06-grammar.t (original)
+++ trunk/t/compilers/pge/06-grammar.t Sat Mar 29 12:43:50 2008
@@ -29,7 +29,7 @@
set_global 'test_num', test_num
# the test builder
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
# PMCs to store TODO tests and reasons/descriptions
todo_tests = new 'Hash'
@@ -122,7 +122,7 @@
load_bytecode 'Test/Builder.pir'
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
.local int ok
ok = 0
Modified: trunk/t/compilers/pge/p5regex/p5rx.t
==============================================================================
--- trunk/t/compilers/pge/p5regex/p5rx.t (original)
+++ trunk/t/compilers/pge/p5regex/p5rx.t Sat Mar 29 12:43:50 2008
@@ -63,7 +63,7 @@
# Variable declarations, initializations
.local pmc test # the test harness object.
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
.local pmc todo_tests # keys indicate test file; values test number.
todo_tests = new 'Hash'
Modified: trunk/t/compilers/pge/perl6regex/01-regex.t
==============================================================================
--- trunk/t/compilers/pge/perl6regex/01-regex.t (original)
+++ trunk/t/compilers/pge/perl6regex/01-regex.t Sat Mar 29 12:43:50 2008
@@ -63,7 +63,7 @@
# Variable declarations, initializations
.local pmc test # the test harness object.
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
.local string test_dir # the directory containing tests
test_dir = 't/compilers/pge/perl6regex/'
Modified: trunk/t/library/coroutine.t
==============================================================================
--- trunk/t/library/coroutine.t (original)
+++ trunk/t/library/coroutine.t Sat Mar 29 12:43:50 2008
@@ -183,8 +183,8 @@
.sub main :main
load_bytecode 'Test/Builder.pir'
- .local pmc test
- test = new 'Test::Builder'
+ .local pmc test
+ test = new [ 'Test'; 'Builder' ]
test.'plan'(N_TESTS)
push_eh cant_load
Modified: trunk/t/library/pg.t
==============================================================================
--- trunk/t/library/pg.t (original)
+++ trunk/t/library/pg.t Sat Mar 29 12:43:50 2008
@@ -29,7 +29,7 @@
.sub main :main
load_bytecode 'Test/Builder.pir'
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
test.'plan'(N_TESTS)
push_eh no_pg
Modified: trunk/t/library/string_utils.t
==============================================================================
--- trunk/t/library/string_utils.t (original)
+++ trunk/t/library/string_utils.t Sat Mar 29 12:43:50 2008
@@ -18,7 +18,7 @@
load_bytecode 'Test/Builder.pir'
.local pmc test # the test harness object.
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
set_global '$test', test
Modified: trunk/t/library/test_builder_tester.t
==============================================================================
--- trunk/t/library/test_builder_tester.t (original)
+++ trunk/t/library/test_builder_tester.t Sat Mar 29 12:43:50 2008
@@ -1,4 +1,6 @@
#!./parrot
+# Copyright (C) 2005-2008, The Perl Foundation.
+# $Id$
.sub _main :main
load_bytecode 'library/Test/Builder/Tester.pir'
@@ -7,7 +9,7 @@
tb_args = new 'Hash'
.local pmc test
- test = new 'Test::Builder', tb_args
+ test = new [ 'Test'; 'Builder' ], tb_args
.local pmc plan
.local pmc test_pass
Modified: trunk/t/library/test_more.t
==============================================================================
--- trunk/t/library/test_more.t (original)
+++ trunk/t/library/test_more.t Sat Mar 29 12:43:50 2008
@@ -1,4 +1,6 @@
#!./parrot
+# Copyright (C) 2005-2008, The Perl Foundation.
+# $Id$
.sub _main :main
load_bytecode 'library/Test/Builder/Tester.pir'
@@ -8,7 +10,7 @@
tb_args = new 'Hash'
.local pmc test
- test = new 'Test::Builder', tb_args
+ test = new [ 'Test'; 'Builder' ], tb_args
.local pmc exports, curr_namespace, test_namespace
curr_namespace = get_namespace
@@ -326,7 +328,7 @@
.sub test_skip
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
test_out( 'ok 1 #skip skipping' )
test_out( 'ok 2 #skip skipping' )
@@ -354,7 +356,7 @@
.sub test_todo
.local pmc test
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
test_out( 'ok 8 # TODO passing test' )
test.'todo'( 1, 'passing test', 'todo reason' )
Modified: trunk/t/op/sprintf.t
==============================================================================
--- trunk/t/op/sprintf.t (original)
+++ trunk/t/op/sprintf.t Sat Mar 29 12:43:50 2008
@@ -72,7 +72,7 @@
# Variable declarations, initializations
.local pmc test # the test harness object.
- test = new 'Test::Builder'
+ test = new [ 'Test'; 'Builder' ]
.local pmc todo_tests # keys indicate test file; values test number.
todo_tests = new 'Hash'
