| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051 |
- Smalltalk current createPackage: 'Compiler-Tests' properties: #{}!
- TestCase subclass: #ImporterTest
- instanceVariableNames: ''
- category: 'Compiler-Tests'!
- !ImporterTest methodsFor: 'private'!
- chunkString
- ^'!!Object methodsFor: ''importer test method''!!
- importerTestMethod
- ^''success''
- !! !!
- '
- ! !
- !ImporterTest methodsFor: 'running'!
- setUp
- super setUp.
- self cleanUp
- !
- tearDown
- super tearDown.
- self cleanUp
- !
- cleanUp
- (Object methodDictionary includesKey: #importerTestMethod)
- ifTrue: [ Object removeCompiledMethod: (Object methodAt: #importerTestMethod)].
- ! !
- !ImporterTest methodsFor: 'tests'!
- testImporterBug
- "importer does not correctly add extension methods"
- Importer new import: self chunkString readStream.
- Transcript cr; show: 'testImporterBug [1]'. "cannot debug test methods very easily?"
- self assert: (Object methodDictionary includesKey: 'importerTestMethod').
- Transcript cr; show: 'testImporterBug [2]'.
- self assert: (Object new importerTestMethod = 'success').
- Transcript cr; show: 'testImporterBug [3]'.
- ! !
|
