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

"{ NameSpace: Smalltalk }"

LibraryDefinition subclass:#stx_goodies_regression

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'* Projects & Packages *'

!

!stx_goodies_regression class methodsFor:'accessing - tests'!

testCaseNamesWithoutNamespace

    ^#(

     "/ 'SunitXMLOutputTest'

    'ProjectDefinitionTests'

    'CoverageInstrumentationTest'

    'AssociationTests'

    'BinaryIOTests'

    'BinaryTreeTester'

    "/ 'BlockTest'

    'CharacterTests'

    'CollectionTests'

    'CompilerTest'

    'ComplexTest'

    "/ 'STCCompilerTests'

    "/ 'DebuggerTest'

    "/ 'DeepCopyTests'

    'DelayTest'

    'DictionaryTest'

    'EnumerationTests'

    'ExceptionTest'

    "/ 'ExternalInterfaceTests'

    "/ 'FileOpenTest'

    'FileStreamTest'

    'FloatTest'

    'FractionTest'

    "/ 'GCTest'

    "/ 'GraphicDrawingTest'

    "/ 'HTMLParserTests'

    "/ 'ImageReaderTest'

    'IntegerTest'

    'JavaScriptTests'

    "/ 'MeasurementValueTests'

    "/ 'MemoryTest'

    'NumberTest'

    'ParserTest'

    'ScaledDecimalTest'

    "/ 'SemaphoreTest'

    "/ 'SharedQueueTest'

    'SmallIntegerTest'

    "/ 'SortTests'

    'StringTests'

    'StreamTests'

    'TimeAndDateTest'

    'TimeDurationTest'

    "/ 'URLTest'

    "/ 'XMLCoderTests'

    "/ 'ZipArchiveTests'

    'ClassBuilderTests'

    "/ 'CompilerTests2'

    'ChangeSetTests'

    'FilenameTests'

    'ProjectDefinitionTests'

    'ClassDescriptionTests'

    'SnapshotRestartTests'

    'MakefileTests'

    'TSTreeTests'

    'TSMultiTreeTests'

    "/ 'VMCrashTests'

    'ProcessTest'

    'PipeStreamTest'

    'JITTest'

    )

    "Modified: / 18-11-2014 / 11:54:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

testSuite

    | suite |

    suite := TestSuite named: self package.

    self testCaseNamesWithoutNamespace do:[:className |

	|fullName|

	fullName := ('RegressionTests::',className).

	('Loading ',className,'...') infoPrintCR.

	Smalltalk fileInClass:fullName package:self package.

	(Smalltalk classNamed:fullName) isNil ifTrue:[

	    ('**** Ouch - missing class: "',fullName,'"') infoPrintCR.

	] ifFalse:[

	    suite addTest:(Smalltalk classNamed:fullName) suite.

	].

    ].

    ^suite

    "Created: / 03-08-2011 / 09:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!stx_goodies_regression class methodsFor:'description'!

excludedFromPreRequisites

    "list all packages which should be ignored in the automatic

     preRequisites scan. See #preRequisites for more."

    ^ #(

	#'exept:libcrypt'    "loaded lazily by CryptTests - SHA256Stream - referenced by RegressionTests::CryptTests>>test06_sha256 "

	#'stx:goodies'    "no project def - CharacterEncoderCodeGenerator - referenced by RegressionTests::CharacterTests>>test01CaseTesting "

    )

    "Modified: / 03-03-2014 / 12:00:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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.

     Please take a look at the #referencedPreRequisites method as well."

    ^ #(

        #'stx:goodies/sunit'    "TestAsserter - superclass of RegressionTests::SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests"

        #'stx:libbasic'    "Exception - superclass of RegressionTests::ExceptionTest::MyResumableTestError"

    )

    "Modified: / 17-07-2017 / 20:51:56 / mawalch"

!

referencedPreRequisites

    "list packages which are a prerequisite, because they contain

     classes which are referenced by my classes.

     These packages are NOT needed 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.

     Please also take a look at the #mandatoryPreRequisites method"

    ^ #(

    )

    "Modified: / 17-07-2017 / 20:52:03 / mawalch"

!

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_goodies_regression 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"

        #'stx_goodies_regression'

    )

!

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_goodies_regression class methodsFor:'description - project information'!

applicationIconFileName

    "Return the name (without suffix) of an icon-file (the app's icon); will be included in the rc-resource file"

    ^ nil

    "/ ^ self applicationName

!

companyName

    "Return a companyname which will appear in <lib>.rc"

    ^ 'eXept Software AG'

!

description

    "Return a description string which will appear in vc.def / bc.def"

    ^ 'Class Library'

!

legalCopyright

    "Return a copyright string which will appear in <lib>.rc"

    ^ 'Copyright eXept Software AG 1998-2016'

!

productName

    "Return a product name which will appear in <lib>.rc"

    ^ 'eXept addOns'

! !

!stx_goodies_regression class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !