"

 COPYRIGHT (c) 2003 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic3' }"

"{ NameSpace: Packages }"

TestCase subclass:#AbstractTestCases

	instanceVariableNames:''

	classVariableNames:'ClearUpFiles'

	poolDictionaries:''

	category:'Package-TestCases'

!

Notification subclass:#PackageTestCaseNotification

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractTestCases

!

!AbstractTestCases class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2003 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    documentation to be added.

    [author:]

         (james@miraculix)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

history

    "Created: / 30.1.2003 / 10:54:54 / james"

! !

!AbstractTestCases methodsFor:'factory'!

packageTestCaseNotification

    ^ PackageTestCaseNotification

! !

!AbstractTestCases methodsFor:'helpers'!

aDolphinTestFilePac

    ^ '~/AvatarChat.pac' asFilename.

!

assertSmalltalkIncludesAllClassNames:aCollectionOfSymbols 

    aCollectionOfSymbols do:[:aSymbol |

        self shouldnt:((Smalltalk at:aSymbol ifAbsent:[nil]) == nil).

    ].

!

assertSmalltalkIncludesAllLooseMethods:aCollectionOfLooseMethods

    aCollectionOfLooseMethods do:[:aPackagedMethod |   | class |

        class := (Smalltalk at:aPackagedMethod mclass name).

        self assert:(class methodDictionary keys includes:aPackagedMethod name).

    ].

!

createMethodFor:aClass source:aString

    aClass

        compile:aString

        classified:'aDummyClassification'

        notifying:nil.

!

createTestCaseDirectory

    "create the testcase directory if i"

    | testCaseDirectory |

    (testCaseDirectory := self testCaseDirectory) exists ifFalse:[

        testCaseDirectory makeDirectory.

    ].

!

createTestCaseFilenameFor:aFilenameOrString 

    ^ self testCaseDirectory filenameFor:aFilenameOrString asFilename

!

initializePackageManager

    PackageManager initialize.

!

packageManager

    ^ PackageManager smalltalkPackageManager

!

removeClassNamed:aSymbol 

    (Smalltalk at:aSymbol) ifNotNil:[

        ^ (Smalltalk at:aSymbol) removeFromSystem.

    ]

!

shouldntSmalltalkIncludesAllClassNames:aCollectionOfSymbols 

    aCollectionOfSymbols do:[:aSymbol |

        self assert:((Smalltalk at:aSymbol ifAbsent:[nil]) == nil).

    ].

!

shouldntSmalltalkIncludesAllLooseMethods:aCollectionOfLooseMethods

    aCollectionOfLooseMethods do:[:aMethod |  | class|

        class := (Smalltalk classNamed:aMethod className).

        "if class is nil then the test has also passed"

        class ifNotNil:[

            self shouldnt:(class methodDictionary keys includes:aMethod name).

        ].

    ].

!

testCaseDirectory

    ^ (Filename named:'~/work/stx/testCases/')

! !

!AbstractTestCases methodsFor:'initialize / release'!

setUp

    "common setup - invoked before testing"

    self initialize.

    super setUp

!

tearDown

    "common cleanup - invoked after testing"

    super tearDown

! !

!AbstractTestCases methodsFor:'instance creation'!

createClassNamed:aClassName 

    self createClassNamed:aClassName inheritsFrom:#Object

!

createClassNamed:aClassName inheritsFrom:anInheritingClassName

    ^ (Smalltalk at:anInheritingClassName) 

        subclass:aClassName

        instanceVariableNames:''

        classVariableNames:''

        poolDictionaries:''

        category:'AAAAA'

        classInstanceVariableNames:''

! !

!AbstractTestCases methodsFor:'queries'!

clearUpFiles

    ClearUpFiles ifNil:[

        ClearUpFiles := false.

    ].

    ^ ClearUpFiles

! !

!AbstractTestCases class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libbasic3/packages/AbstractTestCases.st,v 1.3 2006-01-10 09:29:37 cg Exp $'

! !