MakefileTests: Fixed build support file generation jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 12 Feb 2016 15:16:11 +0000
branchjv
changeset 1479 974a26a06296
parent 1478 84b9cfc40f37
child 1480 5c2785548851
MakefileTests: Fixed build support file generation ProjectDefinition>>generateFile: may return nil in which case no file should be generated. Care for this (this is a case of Java ant files)
RegressionTests__MakefileTests.st
--- a/RegressionTests__MakefileTests.st	Tue Feb 02 22:44:51 2016 +0000
+++ b/RegressionTests__MakefileTests.st	Fri Feb 12 15:16:11 2016 +0000
@@ -187,17 +187,20 @@
     "/ Generate build support files...
     
     packageDef fileNamesToGenerate keys do:[:filename | 
-        | file |
+        | contents file |
 
-        file := (packageDir / filename).
-        file directory recursiveMakeDirectory.
-        file writingFileDo:[:f | f nextPutAll:(packageDef generateFile:filename) ].
+        contents := packageDef generateFile:filename.
+        contents notNil ifTrue:[ 
+            file := (packageDir / filename).
+            file directory recursiveMakeDirectory.
+            file writingFileDo:[:f | f nextPutAll: contents].
+        ]
     ].
 
     self make.
 
     "Created: / 19-11-2013 / 14:07:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-06-2014 / 17:47:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-02-2016 / 15:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MakefileTests::TestApplication01 class methodsFor:'accessing'!