RegressionTests__MakefileTests.st
changeset 1021 19269c8a3ba6
parent 1008 37bb72c774c2
child 1148 341a95374920
--- a/RegressionTests__MakefileTests.st	Fri Nov 22 16:04:22 2013 +0100
+++ b/RegressionTests__MakefileTests.st	Sun Nov 24 23:31:35 2013 +0100
@@ -60,15 +60,26 @@
 !MakefileTests methodsFor:'running'!
 
 setUp
-    package := 'tmp/makefiletests'.
-    packageDir := (Smalltalk getPackageDirectoryForPackage: Object package) directory directory / 'tmp' / 'makefiletests'.
+    self setUpForPackage:'tmp:makefiletests'.
+
+    "Created: / 19-11-2013 / 12:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-11-2013 / 22:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+setUpForPackage: pkg
+    | components |
+    package := pkg.
+    packageDir := (Smalltalk getPackageDirectoryForPackage: Object package) directory directory.
+    components := (package copyReplaceAll: $: with:$/) tokensBasedOn: $/.
+    components do:[:each |
+        packageDir := packageDir / each.
+    ].
     packageDir exists ifTrue:[
         packageDir recursiveRemove.
     ].
     packageDir recursiveMakeDirectory
 
-    "Created: / 19-11-2013 / 12:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-11-2013 / 18:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 24-11-2013 / 22:23:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MakefileTests methodsFor:'tests'!
@@ -78,6 +89,14 @@
     self run:#'test_application_01' type:ProjectDefinition nonGuiApplicationType toolchain:nil
 
     "Created: / 19-11-2013 / 14:05:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_application_02
+
+    self setUpForPackage: 'tmp:makefiletests2/test_application_02'.
+    self run:#'test_application_01' type:ProjectDefinition nonGuiApplicationType toolchain:nil
+
+    "Created: / 24-11-2013 / 22:23:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MakefileTests methodsFor:'tests-helpers'!