# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1326459688 -3600
# Node ID eb88d790573db7c4637693429d1c60b7456851de
# Parent  889d3747a0a8cb7686d9460a21c3b90bed282e05
Loads the package if not already loaded.

diff -r 889d3747a0a8 -r eb88d790573d 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