Author: chromatic
Date: Sun Mar 30 16:01:26 2008
New Revision: 26645
Modified:
trunk/languages/PIR/examples/test.pir
trunk/runtime/parrot/library/Test/Builder.pir
trunk/runtime/parrot/library/Test/Builder/Test.pir
trunk/runtime/parrot/library/Test/Builder/TestPlan.pir
trunk/runtime/parrot/library/Test/Builder/Tester.pir
trunk/t/compilers/pge/p6regex/01-regex.t
Log:
[runtime] Finished moving Test::More and friends to hierarchical namespaces.
All tests still pass.
Modified: trunk/languages/PIR/examples/test.pir
==============================================================================
--- trunk/languages/PIR/examples/test.pir (original)
+++ trunk/languages/PIR/examples/test.pir Sun Mar 30 16:01:26 2008
@@ -6,7 +6,7 @@
.local pmc import_sub
- .IMPORT ( 'Test::More', 'pln' )
+ .IMPORT ( [ 'Test'; 'More' ], 'plan' )
#.local string res, exp, desc
Modified: trunk/runtime/parrot/library/Test/Builder.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder.pir Sun Mar 30 16:01:26 2008
@@ -341,7 +341,7 @@
goto PLAN_FAILURE
PLAN_NULL:
- testplan = new 'Test::Builder::NullPlan'
+ testplan = new [ 'Test'; 'Builder'; 'NullPlan' ]
goto FINISH_PLAN
PLAN_FAILURE:
Modified: trunk/runtime/parrot/library/Test/Builder/Test.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Test.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/Test.pir Sun Mar 30 16:01:26 2008
@@ -19,7 +19,7 @@
.sub _initialize :load
.local pmc tbtb_class
- newclass tbtb_class, 'Test::Builder::Test::Base'
+ newclass tbtb_class, [ 'Test'; 'Builder'; 'Test'; 'Base' ]
addattribute tbtb_class, 'passed'
addattribute tbtb_class, 'number'
addattribute tbtb_class, 'diagnostic'
@@ -129,7 +129,7 @@
=cut
-.namespace [ 'Test::Builder::Test::Base' ]
+.namespace [ 'Test'; 'Builder'; 'Test'; 'Base' ]
.sub init_pmc :vtable :method
.param pmc args
Modified: trunk/runtime/parrot/library/Test/Builder/TestPlan.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/TestPlan.pir (original)
+++ trunk/runtime/parrot/library/Test/Builder/TestPlan.pir Sun Mar 30
16:01:26 2008
@@ -32,7 +32,7 @@
# XXX - can't seem to do this within its own class
.local pmc tbnp_class
- subclass tbnp_class, tbtp_class, 'Test::Builder::NullPlan'
+ subclass tbnp_class, tbtp_class, [ 'Test'; 'Builder'; 'NullPlan' ]
.end
=item C<new( args_hash )>
@@ -127,7 +127,7 @@
.return( footer )
.end
-.namespace [ 'Test::Builder::NullPlan' ]
+.namespace [ 'Test'; 'Builder'; 'NullPlan' ]
.sub header :method
.local string header
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 Sun Mar 30
16:01:26 2008
@@ -63,11 +63,11 @@
=cut
-.namespace [ 'Test::Builder::Tester::Output' ]
+.namespace [ 'Test'; 'Builder'; 'Tester'; 'Output' ]
.sub _initialize :load
.local pmc tbto_class
- newclass tbto_class, 'Test::Builder::Tester::Output'
+ newclass tbto_class, [ 'Test'; 'Builder'; 'Tester'; 'Output' ]
addattribute tbto_class, 'output'
addattribute tbto_class, 'diagnostics'
.end
@@ -165,7 +165,7 @@
.local pmc args
# set the default output for the Test::Builder singleton
- test_output = new 'Test::Builder::Tester::Output'
+ test_output = new [ 'Test'; 'Builder'; 'Tester'; 'Output' ]
args = new 'Hash'
set args['output'], test_output
Modified: trunk/t/compilers/pge/p6regex/01-regex.t
==============================================================================
--- trunk/t/compilers/pge/p6regex/01-regex.t (original)
+++ trunk/t/compilers/pge/p6regex/01-regex.t Sun Mar 30 16:01:26 2008
@@ -62,7 +62,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'
