#OTHER by cg
class: FileBasedSourceCodeManager class
removed: #version_FileRepository
"
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 $'
! !