Ticket #99: libtool_fix_1_of_2_rev_091022874048_Issue_99__Added_tests_catching_issue_99.patch

new file tests/Make.proto

@@ +1 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_libtool_tests.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# The Makefile as generated by this Make.proto supports the following targets:
+#    make         - compile all st-files to a classLib
+#    make clean   - clean all temp files
+#    make clobber - clean all
+#
+# This file contains definitions for Unix based platforms.
+# It shares common definitions with the win32-make in Make.spec.
+
+#
+# position (of this package) in directory hierarchy:
+# (must point to ST/X top directory, for tools and includes)
+TOP=../..
+INCLUDE_TOP=$(TOP)/..
+
+# subdirectories where targets are to be made:
+SUBDIRS=
+
+
+# subdirectories where Makefiles are to be made:
+# (only define if different from SUBDIRS)
+# ALLSUBDIRS=
+
+REQUIRED_SUPPORT_DIRS=
+
+# if your embedded C code requires any system includes,
+# add the path(es) here:,
+# ********** OPTIONAL: MODIFY the next lines ***
+# LOCALINCLUDES=-Ifoo -Ibar
+LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/goodies/sunit -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libtool
+
+
+# if you need any additional defines for embedded C code,
+# add them here:,
+# ********** OPTIONAL: MODIFY the next lines ***
+# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
+LOCALDEFINES=
+
+LIBNAME=libstx_libtool_tests
+STCLOCALOPT='-package=$(PACKAGE)' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -headerDir=.  -varPrefix=$(LIBNAME)
+
+
+# ********** OPTIONAL: MODIFY the next line ***
+# additional C-libraries that should be pre-linked with the class-objects
+LD_OBJ_LIBS=
+LOCAL_SHARED_LIBS=
+
+
+# ********** OPTIONAL: MODIFY the next line ***
+# additional C targets or libraries should be added below
+LOCAL_EXTRA_TARGETS=
+
+OBJS= $(COMMON_OBJS) $(UNIX_OBJS)
+
+
+
+all:: preMake classLibRule postMake
+
+pre_objs::  
+
+
+
+
+
+
+# Enforce recompilation of package definition class if Mercurial working
+# copy state changes. Together with --guessVersion it ensures that package
+# definition class always contains correct binary revision string.
+ifneq (**NOHG**, $(shell hg root 2> /dev/null || echo -n '**NOHG**'))
+stx_libtool_tests.$(O): $(shell hg root)/.hg/dirstate
+endif
+
+
+
+
+# run default testsuite for this package
+test: $(TOP)/goodies/builder/reports
+        $(MAKE) -C $(TOP)/goodies/builder/reports -f Makefile.init
+        $(TOP)/goodies/builder/reports/report-runner.sh -D . -r Builder::TestReport -p $(PACKAGE)
+
+
+
+# add more install actions here
+install::
+
+# add more install actions for aux-files (resources) here
+installAux::
+
+# add more preMake actions here
+preMake::
+
+# add more postMake actions here
+postMake:: cleanjunk
+
+# build all mandatory prerequisite packages (containing superclasses) for this package
+prereq:
+        cd ../../libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        cd ../../libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        cd ../../libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        cd ../../libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        cd ../../goodies/sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+
+
+
+# build all packages containing referenced classes for this package
+# they are not needed to compile the package (but later, to load it)
+references:
+
+
+cleanjunk::
+        -rm -f *.s *.s2
+
+clean::
+        -rm -f *.o *.H
+
+clobber:: clean
+        -rm -f *.so *.dll
+
+
+# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
+$(OUTDIR)WorkspaceApplicationTests.$(O) WorkspaceApplicationTests.$(C) WorkspaceApplicationTests.$(H): WorkspaceApplicationTests.st $(INCLUDE_TOP)/stx/goodies/sunit/TestAsserter.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestCase.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)stx_libtool_tests.$(O) stx_libtool_tests.$(C) stx_libtool_tests.$(H): stx_libtool_tests.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
+
+# ENDMAKEDEPEND --- do not remove this line
+

new file tests/Make.spec

@@ +1 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_libtool_tests.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# This file contains specifications which are common to all platforms.
+#
+
+# Do NOT CHANGE THESE DEFINITIONS
+# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
+#  to find the source code of a class and to find the library for a package)
+MODULE=stx
+MODULE_DIR=libtool/tests
+PACKAGE=$(MODULE):$(MODULE_DIR)
+
+
+# Argument(s) to the stc compiler (stc --usage).
+#  -headerDir=. : create header files locally
+#                (if removed, they will be created as common
+#  -Pxxx       : defines the package
+#  -Zxxx       : a prefix for variables within the classLib
+#  -Dxxx       : defines passed to CC for inline C-code
+#  -Ixxx       : include path passed to CC for inline C-code
+#  +optspace   : optimized for space
+#  +optspace2  : optimized more for space
+#  +optspace3  : optimized even more for space
+#  +optinline  : generate inline code for some ST constructs
+#  +inlineNew  : additionally inline new
+#  +inlineMath : additionally inline some floatPnt math stuff
+#
+# ********** OPTIONAL: MODIFY the next line(s) ***
+# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
+# STCLOCALOPTIMIZATIONS=+optspace3
+STCLOCALOPTIMIZATIONS=+optspace3
+
+
+# Argument(s) to the stc compiler (stc --usage).
+#  -warn            : no warnings
+#  -warnNonStandard : no warnings about ST/X extensions
+#  -warnEOLComments : no warnings about EOL comment extension
+#  -warnPrivacy     : no warnings about privateClass extension
+#  -warnUnused      : no warnings about unused variables
+#
+# ********** OPTIONAL: MODIFY the next line(s) ***
+# STCWARNINGS=-warn
+# STCWARNINGS=-warnNonStandard
+# STCWARNINGS=-warnEOLComments
+STCWARNINGS=-warnNonStandard
+
+COMMON_CLASSES= \
+        WorkspaceApplicationTests \
+        stx_libtool_tests \
+
+
+
+
+COMMON_OBJS= \
+    $(OUTDIR_SLASH)WorkspaceApplicationTests.$(O) \
+    $(OUTDIR_SLASH)stx_libtool_tests.$(O) \
+
+
+

new file tests/Makefile.init

@@ +1 @@
+#
+# DO NOT EDIT
+#
+# make uses this file (Makefile) only, if there is no
+# file named "makefile" (lower-case m) in the same directory.
+# My only task is to generate the real makefile and call make again.
+# Thereafter, I am no longer used and needed.
+#
+# MACOSX caveat:
+#   as filenames are not case sensitive (in a default setup),
+#   we cannot use the above trick. Therefore, this file is now named
+#   "Makefile.init", and you have to execute "make -f Makefile.init" to
+#   get the initial makefile.  This is now also done by the toplevel CONFIG
+#   script.
+
+.PHONY: run
+
+run: makefile
+        $(MAKE) -f makefile
+
+#only needed for the definition of $(TOP)
+include Make.proto
+
+makefile: mf
+
+mf:
+        $(TOP)/rules/stmkmf

new file tests/WorkspaceApplicationTests.st

@@ +1 @@
+"{ Package: 'stx:libtool/tests' }"
+
+"{ NameSpace: Smalltalk }"
+
+TestCase subclass:#WorkspaceApplicationTests
+        instanceVariableNames:'ws'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Interface-Smalltalk-Tests'
+!
+
+
+!WorkspaceApplicationTests methodsFor:'running'!
+
+setUp
+    super setUp.
+    self assert: (Smalltalk loadPackage: 'stx:goodies/sunit/ext/ui').
+    Display isNil ifTrue:[Smalltalk openDisplay].
+    self skipIf: Display isNil description:'No connection to display (running headless?)'.
+    ws := WorkspaceApplication new.
+    ws open.
+    ws window waitUntilVisible
+
+    "Created: / 20-05-2014 / 12:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-07-2016 / 08:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+tearDown
+    ws notNil ifTrue:[ 
+        ws closeDownViews.
+    ].
+    ws := nil.
+
+    "Created: / 20-05-2014 / 12:41:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!WorkspaceApplicationTests methodsFor:'tests'!
+
+test_issue_99_load_from_file_01
+    "
+    Test if content loaded from file is gets highligted.
+
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/99
+    "
+
+    | tw file |
+
+    tw := (ws interactor / 'MainView' / 'NoteBook' / 'Tools::CodeView2' / 'HVScrollableView' / 'Tools::CodeView2::TextView').
+    file := Filename newTemporary.
+    [
+        file writingFileDo:[:f| f nextPutLine: '''self'' halt' ].
+        tw do:[
+            ws loadFile: file pathName.
+            self assert: tw contents = ('''self'' halt' , Character cr).
+        ].
+        tw wait.
+        "/ Nasty, but we have to wait until background job finishes...
+        Delay waitForMilliseconds: 200. 
+        self assert: ((tw list first emphasisAt: 3) includes: UserPreferences current stringEmphasis).
+        self assert: ((tw list first emphasisAt: 3) includes: #color -> UserPreferences current stringColor).
+
+
+
+    ] ensure:[ 
+        file remove
+    ].
+
+    "Created: / 18-07-2016 / 19:00:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-07-2016 / 08:29:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_issue_99_paste_01
+    "
+    Test if contents gets re-highlightes after a paste
+
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/99
+    "
+
+    | tw |
+
+    tw := (ws interactor / 'MainView' / 'NoteBook' / 'Tools::CodeView2' / 'HVScrollableView' / 'Tools::CodeView2::TextView').
+    tw do:[ 
+        tw setClipboardText: '''self'' halt'.
+    ].
+    tw do:[
+        tw paste.
+    ].
+    tw wait.
+    "/ Nasty, but we have to wait until background job finishes...
+    Delay waitForMilliseconds: 200. 
+    self assert: tw contents = ('''self'' halt' , Character cr).
+    self assert: ((tw list first emphasisAt: 3) includes: UserPreferences current stringEmphasis).
+    self assert: ((tw list first emphasisAt: 3) includes: #color -> UserPreferences current stringColor).
+
+    "Created: / 19-07-2016 / 07:55:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_issue_99_paste_02a
+    "
+    Test if contents gets re-highlightes after a paste
+
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/99#comment3
+    "
+
+    | tw |
+
+    tw := (ws interactor / 'MainView' / 'NoteBook' / 'Tools::CodeView2' / 'HVScrollableView' / 'Tools::CodeView2::TextView').
+    tw do:[ 
+        tw setClipboardText: '[:exit|
+model ifNil: [model := ValueHolder? with:''Enter a value''].
+box := DialogBox? new.
+box addTextLabel:''Enter some string, please:''.
+box addInputFieldOn:model.
+box addAbortButton; addOkButton.
+box open. ]' 
+    ].
+    tw do:[
+        tw paste.
+    ].
+    tw wait.
+    "/ Nasty, but we have to wait until background job finishes...
+    Delay waitForMilliseconds: 100. 
+    self assert: ((tw list fourth emphasisAt: 27) includes: UserPreferences current stringEmphasis).
+    self assert: ((tw list fourth emphasisAt: 27) includes: #color -> UserPreferences current stringColor).
+
+    "Created: / 19-07-2016 / 08:35:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_issue_99_paste_02b
+    "
+    Test if contents gets re-highlightes after a paste.
+    (note the missing closing bracket)
+
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/99#comment3
+    "
+
+    | tw |
+
+    tw := (ws interactor / 'MainView' / 'NoteBook' / 'Tools::CodeView2' / 'HVScrollableView' / 'Tools::CodeView2::TextView').
+    tw do:[ 
+        tw setClipboardText: '[:exit|
+model ifNil: [model := ValueHolder? with:''Enter a value''].
+box := DialogBox? new.
+box addTextLabel:''Enter some string, please:''.
+box addInputFieldOn:model.
+box addAbortButton; addOkButton.
+box open. ' 
+    ].
+    tw do:[
+        tw paste.
+    ].
+    tw wait.
+    "/ Nasty, but we have to wait until background job finishes...
+    Delay waitForMilliseconds: 100. 
+    self assert: ((tw list fourth emphasisAt: 27) includes: UserPreferences current stringEmphasis).
+    self assert: ((tw list fourth emphasisAt: 27) includes: #color -> UserPreferences current stringColor).
+
+
+    "Created: / 19-07-2016 / 08:36:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_issue_99_paste_03a
+    "
+    Test if contents gets re-highlightes after a paste.
+    In this case, code should not be highlighted as it contains
+    a syntax error (note the missing closing bracket)
+
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/99#comment3
+    "
+
+    | tw |
+
+    tw := (ws interactor / 'MainView' / 'NoteBook' / 'Tools::CodeView2' / 'HVScrollableView' / 'Tools::CodeView2::TextView').
+    tw do:[ 
+        tw setClipboardText: '|box field model warning condition|
+min_range := ''-50''.
+max_range := 50. ' 
+    ].
+    tw do:[
+        tw paste.
+    ].
+    tw wait.
+    "/ Nasty, but we have to wait until background job finishes...
+    Delay waitForMilliseconds: 100. 
+    self assert: (tw list second emphasisAt: 17) isNil.
+
+    "Created: / 19-07-2016 / 08:37:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_printId_01
+    "A simple test that:
+     1) type 3+4 into a workspace.
+     2) select the 3+4
+     3) Does a 'print-it'
+    "
+
+    | tw |
+
+    tw := (ws interactor / 'MainView' / 'NoteBook' / 'Tools::CodeView2' / 'HVScrollableView' / 'Tools::CodeView2::TextView').
+    Delay waitForMilliseconds: 10.    
+    tw type: '3 + 4'.
+
+    self assert: tw selection isEmptyOrNil.
+    tw type: #ShiftHome.
+    self assert: tw selection size == 1.
+    self assert: tw selection first string = '3 + 4'.
+
+    tw type: #PrintIt.
+
+    self assert: tw selection size == 1.
+    self assert: tw selection first string = '7'.
+
+    self assert: tw list first string = '3 + 47'
+
+    "Created: / 22-07-2014 / 14:13:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 19-07-2016 / 08:29:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!WorkspaceApplicationTests class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+

new file tests/abbrev.stc

@@ +1 @@
+# automagically generated by the project definition
+# this file is needed for stc to be able to compile modules independently.
+# it provides information about a classes filename, category and especially namespace.
+WorkspaceApplicationTests WorkspaceApplicationTests stx:libtool/tests 'Interface-Smalltalk-Tests' 1
+stx_libtool_tests stx_libtool_tests stx:libtool/tests '* Projects & Packages *' 3

new file tests/bc.mak

@@ +1 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_libtool_tests.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# Notice, that the name bc.mak is historical (from times, when only borland c was supported).
+# This file contains make rules for the win32 platform using either borland-bcc or visual-c.
+# It shares common definitions with the unix-make in Make.spec.
+# The bc.mak supports the following targets:
+#    bmake         - compile all st-files to a classLib (dll)
+#    bmake clean   - clean all temp files
+#    bmake clobber - clean all
+#
+# Historic Note:
+#  this used to contain only rules to make with borland
+#    (called via bmake, by "make.exe -f bc.mak")
+#  this has changed; it is now also possible to build using microsoft visual c
+#    (called via vcmake, by "make.exe -f bc.mak -DUSEVC")
+#
+TOP=..\..
+INCLUDE_TOP=$(TOP)\..
+
+
+
+!INCLUDE $(TOP)\rules\stdHeader_bc
+
+!INCLUDE Make.spec
+
+LIBNAME=libstx_libtool_tests
+MODULE_PATH=libtool\tests
+RESFILES=stx_libtool_testsWINrc.$(RES)
+
+
+
+LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\goodies\sunit -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\libtool
+LOCALDEFINES=
+
+STCLOCALOPT=-package=$(PACKAGE) -I. $(LOCALINCLUDES) -headerDir=. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES)  -varPrefix=$(LIBNAME)
+LOCALLIBS=
+
+OBJS= $(COMMON_OBJS) $(WIN32_OBJS)
+
+ALL::  classLibRule
+
+classLibRule: $(OUTDIR) $(OUTDIR)$(LIBNAME).dll
+
+!INCLUDE $(TOP)\rules\stdRules_bc
+
+# build all mandatory prerequisite packages (containing superclasses) for this package
+prereq:
+        pushd ..\..\libbasic & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        pushd ..\..\libbasic2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        pushd ..\..\libview & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        pushd ..\..\libview2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+        pushd ..\..\goodies\sunit & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+
+
+
+
+
+
+
+test: $(TOP)\goodies\builder\reports\NUL
+        pushd $(TOP)\goodies\builder\reports & $(MAKE_BAT)
+        $(TOP)\goodies\builder\reports\report-runner.bat -D . -r Builder::TestReport -p $(PACKAGE)
+        
+clean::
+        -del *.$(CSUFFIX)
+
+
+# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
+$(OUTDIR)WorkspaceApplicationTests.$(O) WorkspaceApplicationTests.$(C) WorkspaceApplicationTests.$(H): WorkspaceApplicationTests.st $(INCLUDE_TOP)\stx\goodies\sunit\TestAsserter.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestCase.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
+$(OUTDIR)stx_libtool_tests.$(O) stx_libtool_tests.$(C) stx_libtool_tests.$(H): stx_libtool_tests.st $(INCLUDE_TOP)\stx\libbasic\LibraryDefinition.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libbasic\ProjectDefinition.$(H) $(STCHDR)
+
+# ENDMAKEDEPEND --- do not remove this line
+
+# **Must be at end**
+
+# Enforce recompilation of package definition class if Mercurial working
+# copy state changes. Together with --guessVersion it ensures that package
+# definition class always contains correct binary revision string.
+!IFDEF HGROOT
+$(OUTDIR)stx_libtool_tests.$(O): $(HGROOT)\.hg\dirstate
+!ENDIF

new file tests/bmake.bat

@@ +1 @@
+@REM -------
+@REM make using Borland bcc32
+@REM type bmake, and wait...
+@REM do not edit - automatically generated from ProjectDefinition
+@REM -------
+@SET DEFINES=
+@REM Kludge got Mercurial, cannot be implemented in Borland make
+@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
+@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
+
+make.exe -N -f bc.mak  %DEFINES% %*
+
+
+
+

new file tests/libInit.cc

@@ +1 @@
+/*
+ * $Header$
+ *
+ * DO NOT EDIT
+ * automagically generated from the projectDefinition: stx_libtool_tests.
+ */
+#define __INDIRECTVMINITCALLS__
+#include <stc.h>
+
+#ifdef WIN32
+# pragma codeseg INITCODE "INITCODE"
+#endif
+
+#if defined(INIT_TEXT_SECTION) || defined(DLL_EXPORT)
+DLL_EXPORT void _libstx_libtool_tests_Init() INIT_TEXT_SECTION;
+DLL_EXPORT void _libstx_libtool_tests_InitDefinition() INIT_TEXT_SECTION;
+#endif
+
+extern void _WorkspaceApplicationTests_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
+extern void _stx_137libtool_137tests_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
+
+
+
+void _libstx_libtool_tests_InitDefinition(int pass, struct __vmData__ *__pRT__, OBJ snd)
+{
+  __BEGIN_PACKAGE2__("libstx_libtool_tests__DFN", _libstx_libtool_tests_InitDefinition, "stx:libtool/tests");
+    _stx_137libtool_137tests_Init(pass,__pRT__,snd);
+
+  __END_PACKAGE__();
+}
+
+void _libstx_libtool_tests_Init(int pass, struct __vmData__ *__pRT__, OBJ snd)
+{
+  __BEGIN_PACKAGE2__("libstx_libtool_tests", _libstx_libtool_tests_Init, "stx:libtool/tests");
+    _WorkspaceApplicationTests_Init(pass,__pRT__,snd);
+    _stx_137libtool_137tests_Init(pass,__pRT__,snd);
+
+
+  __END_PACKAGE__();
+}

new file tests/mingwmake.bat

@@ +1 @@
+@REM -------
+@REM make using mingw gnu compiler
+@REM type mingwmake, and wait...
+@REM do not edit - automatically generated from ProjectDefinition
+@REM -------
+@SET DEFINES=
+@REM Kludge got Mercurial, cannot be implemented in Borland make
+@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
+@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
+
+@pushd ..\..\rules
+@call find_mingw.bat
+@popd
+make.exe -N -f bc.mak %DEFINES% %USEMINGW_ARG% %*
+
+
+
+

new file tests/stx_libtool_tests.st

@@ +1 @@
+"{ Package: 'stx:libtool/tests' }"
+
+"{ NameSpace: Smalltalk }"
+
+LibraryDefinition subclass:#stx_libtool_tests
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'* Projects & Packages *'
+!
+
+
+!stx_libtool_tests class methodsFor:'description'!
+
+excludedFromPreRequisites
+    "list packages which are to be explicitely excluded from the automatic constructed
+     prerequisites list. If empty, everything that is found along the inheritance of any of
+     my classes is considered to be a prerequisite package."
+
+    ^ #(
+    )
+!
+
+mandatoryPreRequisites
+    "list packages which are mandatory as a prerequisite.
+     This are packages containing superclasses of my classes and classes which
+     are extended by myself.
+     They are mandatory, because we need these packages as a prerequisite for loading and compiling.
+     This method is generated automatically,
+     by searching along the inheritance chain of all of my classes."
+
+    ^ #(
+        #'stx:goodies/sunit'    "TestAsserter - superclass of WorkspaceApplicationTests"
+        #'stx:libbasic'    "LibraryDefinition - superclass of stx_libtool_tests"
+    )
+!
+
+referencedPreRequisites
+    "list packages which are a prerequisite, because they contain
+     classes which are referenced by my classes.
+     We do not need these packages as a prerequisite for compiling or loading,
+     however, a class from it may be referenced during execution and having it
+     unloaded then may lead to a runtime doesNotUnderstand error, unless the caller
+     includes explicit checks for the package being present.
+     This method is generated automatically,
+     by searching all classes (and their packages) which are referenced by my classes."
+
+    ^ #(
+        #'stx:libtool'    "WorkspaceApplication - referenced by WorkspaceApplicationTests>>setUp"
+    )
+!
+
+subProjects
+    "list packages which are known as subprojects.
+     The generated makefile will enter those and make there as well.
+     However: they are not forced to be loaded when a package is loaded;
+     for those, redefine requiredPrerequisites."
+
+    ^ #(
+    )
+! !
+
+!stx_libtool_tests class methodsFor:'description - contents'!
+
+classNamesAndAttributes
+    "lists the classes which are to be included in the project.
+     Each entry in the list may be: a single class-name (symbol),
+     or an array-literal consisting of class name and attributes.
+     Attributes are: #autoload or #<os> where os is one of win32, unix,..."
+
+    ^ #(
+        "<className> or (<className> attributes...) in load order"
+        WorkspaceApplicationTests
+        #'stx_libtool_tests'
+    )
+!
+
+extensionMethodNames
+    "lists the extension methods which are to be included in the project.
+     Entries are 2-element array literals, consisting of class-name and selector.
+     A correponding method with real names must be present in my concrete subclasses
+     if it has extensions."
+
+    ^ #(
+    )
+! !
+
+!stx_libtool_tests class methodsFor:'description - project information'!
+
+companyName
+    "Returns a company string which will appear in <lib>.rc.
+     Under win32, this is placed into the dlls file-info"
+
+    ^ 'eXept Software AG'
+!
+
+description
+    "Returns a description string which will appear in nt.def / bc.def"
+
+    ^ 'Smalltalk/X Class library'
+!
+
+legalCopyright
+    "Returns a copyright string which will appear in <lib>.rc.
+     Under win32, this is placed into the dlls file-info"
+
+    ^ 'Copyright Claus Gittinger 1988-2016\nCopyright eXept Software AG 2016'
+!
+
+productName
+    "Returns a product name which will appear in <lib>.rc.
+     Under win32, this is placed into the dlls file-info.
+     This method is usually redefined in a concrete application definition"
+
+    ^ 'Smalltalk/X'
+! !
+
+!stx_libtool_tests class methodsFor:'documentation'!
+
+version_HG
+    ^ '$Changeset: <not expanded> $'
+! !
+

new file tests/stx_libtool_testsWINrc.rc

@@ +1 @@
+//
+// DO NOT EDIT
+// automagically generated from the projectDefinition: stx_libtool_tests.
+//
+VS_VERSION_INFO VERSIONINFO
+  FILEVERSION     6,2,32767,32767
+  PRODUCTVERSION  6,2,6,0
+#if (__BORLANDC__)
+  FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
+  FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
+  FILEOS          VOS_NT_WINDOWS32
+  FILETYPE        VFT_DLL
+  FILESUBTYPE     VS_USER_DEFINED
+#endif
+
+BEGIN
+  BLOCK "StringFileInfo"
+  BEGIN
+    BLOCK "040904E4"
+    BEGIN
+      VALUE "CompanyName", "eXept Software AG\0"
+      VALUE "FileDescription", "Smalltalk/X Class library (LIB)\0"
+      VALUE "FileVersion", "6.2.32767.32767\0"
+      VALUE "InternalName", "stx:libtool/tests\0"
+      VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2016\nCopyright eXept Software AG 2016\0"
+      VALUE "ProductName", "Smalltalk/X\0"
+      VALUE "ProductVersion", "6.2.6.0\0"
+      VALUE "ProductDate", "Mon, 18 Jul 2016 19:53:38 GMT\0"
+    END
+
+  END
+
+  BLOCK "VarFileInfo"
+  BEGIN                               //  Language   |    Translation
+    VALUE "Translation", 0x409, 0x4E4 // U.S. English, Windows Multilingual
+  END
+END

new file tests/vcmake.bat

@@ +1 @@
+@REM -------
+@REM make using Microsoft Visual C compiler
+@REM type vcmake, and wait...
+@REM do not edit - automatically generated from ProjectDefinition
+@REM -------
+
+@if not defined VSINSTALLDIR (
+    pushd ..\..\rules
+    call vcsetup.bat
+    popd
+)
+@SET DEFINES=
+@REM Kludge got Mercurial, cannot be implemented in Borland make
+@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
+@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
+
+
+make.exe -N -f bc.mak -DUSEVC=1 %DEFINES% %*
+
+
+
+