Changeset 2295 for cobra/trunk/Source/BackEndClr/SharpGenerator.cobra

Timestamp:

02/28/10 21:24:48 (2 years ago)

Author:

Chuck.Esterbrook

Message:

Added -test-runner command line option to specify the method to invoke to run the unit tests.

Files:

• cobra/trunk/Source/BackEndClr/SharpGenerator.cobra (modified) (3 diffs)

cobra/trunk/Source/BackEndClr/SharpGenerator.cobra

@@ -62 +62 @@
                 if .hasExceptionReportOption
                     print '     try {'
-                print '     CobraLangInternal.Test.ITestRunListener listener = new CobraLangInternal.Test.TextWriterListener(System.Console.Out);'
-                print '     new CobraLangInternal.Test.TestRunner(listener).RunAllTests();'
+                .writeSharpRunAllTests(f)
                 if .hasExceptionReportOption
                     print '     } catch (System.Exception e) {'
@@ -72 +71 @@
         .mainMethodTypeName = '_GeneratedTestRunner'
         _modules.add(SharpModule(fileName, _verbosity))
+
+    def writeSharpRunAllTests(cw as CurlyWriter)
+        runner = .options['test-runner'] to String  # ex: Cobra.Lang.CobraCore.runAllTests, ex: MyProgram.runTests
+        if runner <> 'nil'
+            if runner.endsWith('()'), runner = runner[:-2]
+            if runner.startsWith('Cobra.Lang.'), runner = 'CobraLangInternal.' + runner['Cobra.Lang.'.length:]
+            parts = List<of String>(runner.split(c'.'))
+            if parts.count > 1
+                parts[parts.count-1] = parts.last[0].toUpper.toString + parts.last[1:]
+            stmt = parts.join('.') + '();'
+            cw.writeLine(stmt)
 
     var _didWriteSharpInfoClass as bool
@@ -1840 +1850 @@
                 sw.indent
         if .isMain and .compiler.options.boolValue('include-tests')
-            sw.writeLine('CobraLangInternal.CobraCore.RunAllTests();  // turn off with -include-tests:no (see cobra -h)')
+            (.compiler to Compiler).writeSharpRunAllTests(sw)
 
     def writeSharpImpFooter(sw as CurlyWriter)