[svn:parrot] r44541 - in trunk: . runtime/parrot/library/Test/Builder

[coke at svn.parrot.org]

Author: coke
Date: Sun Feb 28 04:48:58 2010
New Revision: 44541
URL: https://trac.parrot.org/parrot/changeset/44541

Log:
move Test::Builder::* to Test;Builder;*

Listed in deprecated.pod for a previous release, but no ticket listed.

Much of this was already done, this is just cleanup on some sub-namespaces

Modified:
   trunk/DEPRECATED.pod
   trunk/runtime/parrot/library/Test/Builder/Test.pir

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	Sun Feb 28 03:15:48 2010	(r44540)
+++ trunk/DEPRECATED.pod	Sun Feb 28 04:48:58 2010	(r44541)
@@ -310,8 +310,8 @@
 
 The use of C<::> a namespace separator is deprecated.  Core libraries will
 change to use multi-level keys instead.  For example, C<YAML::Dumper> will
-change to C<YAML; Dumper>.  Affected libraries also include: C<SDL>,
-C<Test::Builder>, and C<PCRE::NCI>.
+change to C<YAML; Dumper>.  Affected libraries also include: C<SDL>
+and C<PCRE::NCI>.
 
 =back
 

Modified: trunk/runtime/parrot/library/Test/Builder/Test.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Test.pir	Sun Feb 28 03:15:48 2010	(r44540)
+++ trunk/runtime/parrot/library/Test/Builder/Test.pir	Sun Feb 28 04:48:58 2010	(r44541)
@@ -30,20 +30,20 @@
     addattribute tbtb_class, 'todo'
 
     .local pmc tbtp_class
-    subclass tbtp_class, tbtb_class, 'Test::Builder::Test::Pass'
+    subclass tbtp_class, tbtb_class, ['Test'; 'Builder'; 'Test'; 'Pass']
 
     .local pmc tbtf_class
-    subclass tbtf_class, tbtb_class, 'Test::Builder::Test::Fail'
+    subclass tbtf_class, tbtb_class, ['Test'; 'Builder'; 'Test'; 'Fail']
 
     .local pmc tbtwr_class
-    subclass tbtwr_class, tbtb_class, 'Test::Builder::Test::WithReason'
+    subclass tbtwr_class, tbtb_class, ['Test'; 'Builder'; 'Test'; 'WithReason']
     addattribute tbtwr_class, 'reason'
 
     .local pmc tbts_class
-    subclass tbts_class, tbtwr_class, 'Test::Builder::Test::Skip'
+    subclass tbts_class, tbtwr_class, ['Test'; 'Builder'; 'Test'; 'SKIP'] 
 
     .local pmc tbtt_class
-    subclass tbtt_class, tbtwr_class, 'Test::Builder::Test::TODO'
+    subclass tbtt_class, tbtwr_class, ['Test'; 'Builder'; 'Test'; 'TODO'] 
 .end
 
 =item C<create( args_hash )>
@@ -93,25 +93,25 @@
     type_flag = args['todo']
     unless type_flag goto CHECK_SKIP
 
-    test_class = 'Test::Builder::Test::TODO'
+    test_class = ['Test'; 'Builder'; 'Test'; 'TODO']
     goto CREATE_TEST
 
   CHECK_SKIP:
     type_flag = args['skip']
     unless type_flag goto CHECK_PASS
 
-    test_class = 'Test::Builder::Test::Skip'
+    test_class = ['Test'; 'Builder'; 'Test'; 'Skip']
     goto CREATE_TEST
 
   CHECK_PASS:
     type_flag = args['passed']
     unless type_flag goto CHECK_FAIL
 
-    test_class = 'Test::Builder::Test::Pass'
+    test_class = ['Test'; 'Builder'; 'Test'; 'Pass']
     goto CREATE_TEST
 
   CHECK_FAIL:
-    test_class = 'Test::Builder::Test::Fail'
+    test_class = ['Test'; 'Builder'; 'Test'; 'Fail']
     goto CREATE_TEST
 
   CREATE_TEST:
@@ -246,12 +246,12 @@
 .end
 
 # no code here
-.namespace [ 'Test::Builder::Test::Pass' ]
+.namespace [ 'Test'; 'Builder'; 'Test'; 'Pass' ]
 
 # no code here either
-.namespace [ 'Test::Builder::Test::Fail' ]
+.namespace [ 'Test'; 'Builder'; 'Test'; 'Fail' ]
 
-.namespace [ 'Test::Builder::Test::WithReason' ]
+.namespace [ 'Test'; 'Builder'; 'Test'; 'WithReason' ]
 
 .sub init_pmc :vtable :method
     .param pmc args
@@ -282,7 +282,7 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = get_hll_global ['Test::Builder::Test::WithReason'], 'status'
+    parent_status = get_hll_global ['Test'; 'Builder'; 'Test'; 'WithReason'], 'status'
     status        = parent_status()
     reason        = self.'reason'()
 
@@ -291,7 +291,7 @@
     .return( status )
 .end
 
-.namespace [ 'Test::Builder::Test::Skip' ]
+.namespace [ 'Test'; 'Builder'; 'Test'; 'Skip' ]
 
 .sub report :method
     .local pmc    reason
@@ -317,14 +317,14 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = get_hll_global ['Test::Builder::Test::WithReason'], 'status'
+    parent_status = get_hll_global ['Test'; 'Builder'; 'Test'; 'WithReason'], 'status'
     status        = parent_status()
 
     set status['skip'], 1
     .return( status )
 .end
 
-.namespace [ 'Test::Builder::Test::TODO' ]
+.namespace [ 'Test'; 'Builder'; 'Test'; 'TODO' ]
 
 .sub report :method
     .local pmc    passed
@@ -362,7 +362,7 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = get_hll_global ['Test::Builder::Test::WithReason'], 'status'
+    parent_status = get_hll_global ['Test'; 'Builder'; 'Test'; 'WithReason'], 'status'
     status        = parent_status()
     passed        = self.'passed'()