--- 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'!