Fix in validation of extensions source info.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 09 Mar 2015 16:57:10 +0100
changeset 274 b13db8438e4a
parent 273 31ab0665a9dc
child 275 d5c88fece400
Fix in validation of extensions source info. Check if there are any extensions at all, if not then check there's no extension.st file.
reports/Builder__ReportExtensionsSourceInfo.st
--- a/reports/Builder__ReportExtensionsSourceInfo.st	Tue Feb 17 16:31:02 2015 +0100
+++ b/reports/Builder__ReportExtensionsSourceInfo.st	Mon Mar 09 16:57:10 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/builder/reports' }"
 
 "{ NameSpace: Builder }"
@@ -52,6 +54,7 @@
     | extensions wide stream s methodsSortedByName defClass scmManagerOrNil |
 
     extensions := ProjectDefinition searchForExtensionsWithProject: package.     
+    extensions isEmptyOrNil ifTrue:[ ^ self ].
     wide := false.
     stream := streamArg.
     extensions do:[:method|
@@ -91,7 +94,7 @@
                                 ]
                               ].
     methodsSortedByName do:[:aMethod |
-        |cat source privacy aStream|
+        |cat privacy aStream|
 
         aStream := s.
 
@@ -133,16 +136,22 @@
         ].
     ].
 
-    "Modified (comment): / 29-07-2013 / 17:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-03-2015 / 15:55:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 validate
-    | file |
+    | extensions file |
 
+    extensions := ProjectDefinition searchForExtensionsWithProject: package.     
     file := (Smalltalk getPackageDirectoryForPackage: package) / 'extensions.st'.                       
-    ^ self validateAgainstReference: file.
 
-    "Modified: / 29-07-2013 / 14:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    extensions isEmptyOrNil ifTrue:[
+        self assert: file exists not.
+    ] ifFalse:[
+        self validateAgainstReference: file.
+    ]
+
+    "Modified: / 09-03-2015 / 15:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ReportExtensionsSourceInfo class methodsFor:'documentation'!