[svn:parrot] r44542 - trunk/runtime/parrot/library/Test/Builder

[coke at svn.parrot.org]

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

Log:
Fix error introduced in blind translation of ::strings to ;-keys.

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

Modified: trunk/runtime/parrot/library/Test/Builder/Test.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Test.pir	Sun Feb 28 04:48:58 2010	(r44541)
+++ trunk/runtime/parrot/library/Test/Builder/Test.pir	Sun Feb 28 04:58:49 2010	(r44542)
@@ -86,37 +86,32 @@
 .sub create
     .param pmc args
 
-    .local string test_class
+    .local pmc test
     .local int type_flag
 
   CHECK_TODO:
     type_flag = args['todo']
     unless type_flag goto CHECK_SKIP
 
-    test_class = ['Test'; 'Builder'; 'Test'; 'TODO']
-    goto CREATE_TEST
+    test = new ['Test'; 'Builder'; 'Test'; 'TODO'], args
+    .return( test )
 
   CHECK_SKIP:
     type_flag = args['skip']
     unless type_flag goto CHECK_PASS
 
-    test_class = ['Test'; 'Builder'; 'Test'; 'Skip']
-    goto CREATE_TEST
+    test = new ['Test'; 'Builder'; 'Test'; 'Skip'], args
+    .return( test )
 
   CHECK_PASS:
     type_flag = args['passed']
     unless type_flag goto CHECK_FAIL
 
-    test_class = ['Test'; 'Builder'; 'Test'; 'Pass']
-    goto CREATE_TEST
+    test = new ['Test'; 'Builder'; 'Test'; 'Pass'], args
+    .return( test )
 
   CHECK_FAIL:
-    test_class = ['Test'; 'Builder'; 'Test'; 'Fail']
-    goto CREATE_TEST
-
-  CREATE_TEST:
-    .local pmc test
-    test = new test_class, args
+    test = new ['Test'; 'Builder'; 'Test'; 'Fail'], args
     .return( test )
 .end