Loads the package if not already loaded.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 13 Jan 2012 14:01:28 +0100
changeset 80 eb88d790573d
parent 79 889d3747a0a8
child 81 a433f1944dca
Loads the package if not already loaded.
reports/Builder__TestReport.st
--- a/reports/Builder__TestReport.st	Fri Jan 13 13:48:04 2012 +0100
+++ b/reports/Builder__TestReport.st	Fri Jan 13 14:01:28 2012 +0100
@@ -88,11 +88,9 @@
     packages do: [:pkg | 
         |def |
 
+        self loadPackageIfNotAlready: pkg.
         def := ProjectDefinition definitionClassForPackage:pkg.
-        def isNil ifTrue:[ 
-            Smalltalk loadPackage:pkg asSymbol.
-            def := ProjectDefinition definitionClassForPackage:pkg. 
-        ].
+
         (def respondsTo:#testSuite) ifTrue:[ 
             suite addTest:def testSuite 
         ] ifFalse:[ 
@@ -116,7 +114,7 @@
         ]
     ].
 
-    "Modified: / 07-11-2011 / 09:43:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-01-2012 / 13:00:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setupForSuite: suite