"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#MakefileTests

	instanceVariableNames:'package packageDir'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

StandaloneStartup subclass:#TestApplication01

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MakefileTests

!

!MakefileTests class methodsFor:'documentation'!

documentation

"

    This testcase tests St/X makefiles used to build

    standalone applications.

    [author:]

	Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!MakefileTests methodsFor:'compilation'!

make

    ^ self make:''.

    "Created: / 14-08-2013 / 18:27:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

make: target

    | cmd output success |

    OperatingSystem isMSWINDOWSlike ifTrue:[

        "/ Hack: generally we don't require Borland tools to be installed anymore.

        "/ However, package build is driwen by Borland make so we distribute

        "/ it with rakefiles. It's likely not in the PATH, so add it.

        "/ This code assumes the test is run from build environment.

        OperatingSystem setEnvironment: 'PATH' to: 

            (OperatingSystem pathOfSTXExecutable asFilename directory / '..' / '..' / '..' / '..' / 'bin') pathName , ';',

            (OperatingSystem getEnvironment: 'PATH').

        STCCompilerInterface getCCDefine = '__BORLANDC__' ifTrue:[ 

            cmd := 'bmake.bat ' , target.

        ].

        STCCompilerInterface getCCDefine = '__MINGW32__' ifTrue:[ 

            (OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[

                | mingwDir |

                mingwDir := #('C:\MSYS64\MINGW32' 'C:\MINGW') detect:[:path | path asFilename isDirectory ] ifNone: [ nil ].

                self assert: mingwDir notNil description: 'MINGW_DIR environment variable not set and MINGW32 not found at standard places'.

                OperatingSystem setEnvironment: 'MINGW_DIR'     to: mingwDir.

            ].

            OperatingSystem setEnvironment: 'MINGW'         to: '__MINGW32__'.

            OperatingSystem setEnvironment: 'USEMINGW_ARG'  to: '-DUSEMINGW32'.

            OperatingSystem setEnvironment: 'PATH'          to: (OperatingSystem getEnvironment: 'PATH') , ';' , (OperatingSystem getEnvironment: 'MINGW_DIR') , '\bin'.

            cmd := 'mingwmake.bat ' , target.

        ].

        STCCompilerInterface getCCDefine = '__MINGW64__' ifTrue:[ 

            (OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[ 

                | mingwDir |

                mingwDir := #('C:\MSYS64\MINGW64' 'C:\MINGW64') detect:[:path | path asFilename isDirectory ] ifNone: [ nil ].

                self assert: mingwDir notNil description: 'MINGW_DIR environment variable not set and MINGW64 not found at standard places'.

                OperatingSystem setEnvironment: 'MINGW_DIR'     to: mingwDir.   

            ].

            OperatingSystem setEnvironment: 'MINGW'         to: '__MINGW64__'.

            OperatingSystem setEnvironment: 'USEMINGW_ARG'  to: '-DUSEMINGW64'.

            OperatingSystem setEnvironment: 'PATH'          to: (OperatingSystem getEnvironment: 'PATH') , ';' , (OperatingSystem getEnvironment: 'MINGW_DIR') , '\bin'.

            cmd := 'mingwmake.bat ' , target.

        ].    

    ] ifFalse:[

        cmd := 'make -f Makefile.init ', target

    ].

    output := String streamContents:[ :s|

        success := OperatingSystem executeCommand: cmd outputTo: s inDirectory: packageDir

    ].

    "/ Following is just to ease debugging on Jenkins since stdout

    "/ is shown in the report.

    success ifFalse:[ 

        Stdout nextPutLine: 'Failed to make target ''', target, ''' in test package'.

        Stdout nextPutLine: output.

    ].

    self

        assert: success

        description: 'Failed to make target ''', target, ''' in test package'.

    "Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-11-2016 / 00:22:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-06-2017 / 21:52:13 / jv"

! !

!MakefileTests methodsFor:'running'!

setUp

    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: / 24-11-2013 / 22:23:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MakefileTests methodsFor:'tests'!

test_application_01

    <timeout: 600> "600sec = 10min"

    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

    <timeout: 600> "600sec = 10min"

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

run:packageIdent type:packageType toolchain:toolchain

    | packageDef  startup |

    "/ Compile all classes...

    Class packageQuerySignal answer:package do:[

        (self class privateClasses select:[:cls | cls packageIdent = packageIdent ]) do:[:cls |

                | copy |

                copy := cls superclass

                        subclass: cls nameWithoutPrefix

                        instanceVariableNames:(cls instVarNames asStringWith:' ')

                        classVariableNames:(cls classVarNames asStringWith:' ')

                        poolDictionaries:cls poolDictionaries

                        category:'** tmp **'.

                cls methodDictionary do:[:each |

                    copy compile:each source classified:each category.

                ].

                cls class methodDictionary do:[:each |

                    copy class compile:each source classified:each category.

                ].

                (copy inheritsFrom:StandaloneStartup) ifTrue:[

                    startup := copy.

                ].

            ].

        ].

    "/ Create project definition class.

    Class packageQuerySignal answer:package do:[

        packageDef := ProjectDefinition

                definitionClassForPackage:package

                projectType:packageType

                createIfAbsent:true.

        packageDef class compile:'applicationIconFileName ^ nil'.

        packageDef theNonMetaclass

            forEachContentsMethodsCodeToCompileDo:[:code :category | packageDef theMetaclass compile:code classified:category ]

            "/ignoreOldEntries: false

            ignoreOldDefinition: false.

        packageDef isApplicationDefinition ifTrue:[

            packageDef class compile:'startupClassName ^ ' , startup fullName storeString.

        ].

    ].

    "/ Fileout to package directory...

    packageDef classes do:[:class |

        | container |

        container := (class fullName copyReplaceAll:$: with:$_) , '.st'.

        (packageDir / container)

            writingFileDo:[:f |

                AbstractSourceCodeManager

                    fileOutSourceCodeOf:class

                    on:f

                    withTimeStamp:false

                    withInitialize:true

                    withDefinition:true

                    methodFilter:[:mth | mth package = package ]

            ]

    ].

    "/ Generate build support files...

    packageDef fileNamesToGenerate keys do:[:filename |

        | contents file |

        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: / 12-02-2016 / 15:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MakefileTests::TestApplication01 class methodsFor:'accessing'!

packageIdent

    ^ #test_application_01

    "Created: / 19-11-2013 / 14:04:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MakefileTests::TestApplication01 class methodsFor:'startup-to be redefined'!

main:args

    args isEmpty ifTrue:[

	Smalltalk exit: 0.

    ].

    args size ~~ 1 ifTrue:[

	Smalltalk exit: 127.

    ].

    [

	Smalltalk exit: args first asInteger.

    ] on: Error do:[:ex|

	Smalltalk exit: 126.

    ].

    "Created: / 19-11-2013 / 13:12:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MakefileTests class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

!

version_HG

    ^ '$Changeset: <not expanded> $'

! !