The Trunk: System-ar.221.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.221.mcz

==================== Summary ====================

Name: System-ar.221
Author: ar
Time: 4 January 2010, 4:38:21 am
UUID: d8529e06-88a5-a343-8ae6-921b43a77a0c
Ancestors: System-ar.220

Making Tests unloadable: Move tests out of System package and into Tests.

=============== Diff against System-ar.220 ===============

Item was changed:
  SystemOrganization addCategory: #'System-Applications'!
  SystemOrganization addCategory: #'System-Change Notification'!
  SystemOrganization addCategory: #'System-Changes'!
  SystemOrganization addCategory: #'System-Digital Signatures'!
- SystemOrganization addCategory: #'System-Digital Signatures-Tests'!
  SystemOrganization addCategory: #'System-Download'!
  SystemOrganization addCategory: #'System-FilePackage'!
  SystemOrganization addCategory: #'System-FilePackage-Tests'!
  SystemOrganization addCategory: #'System-FileRegistry'!
  SystemOrganization addCategory: #'System-Finalization'!
  SystemOrganization addCategory: #'System-Localization'!
  SystemOrganization addCategory: #'System-Object Events'!
- SystemOrganization addCategory: #'System-Object Events-Tests'!
  SystemOrganization addCategory: #'System-Object Storage'!
  SystemOrganization addCategory: #'System-Pools'!
  SystemOrganization addCategory: #'System-Preferences'!
  SystemOrganization addCategory: #'System-Serial Port'!
  SystemOrganization addCategory: #'System-Support'!
- SystemOrganization addCategory: #'System-Support-Tests'!
  SystemOrganization addCategory: #'System-Tools'!

Item was removed:
- ----- Method: EventManagerTest>>testBlockReceiverNoArgs (in category 'running-dependent action') -----
- testBlockReceiverNoArgs
- eventSource when: #anEvent evaluate:[self heardEvent].
- eventSource triggerEvent: #anEvent.
- self should: [succeeded]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testEmptyLcs1 (in category 'tests') -----
- testEmptyLcs1
-
- | patch |
- patch := self patchSequenceFor: #(a b c) and: #().
- self assert: patch size = 3.
- self assert: (patch allSatisfy: [ :each | each key = #remove ])!

Item was removed:
- ----- Method: EventManagerTest>>testMultipleValueSuppliersEventHasArguments (in category 'running-broadcast query') -----
- testMultipleValueSuppliersEventHasArguments
-
- eventSource
- when: #needsValue:
- send: #getFalse:
- to: self.
- eventSource
- when: #needsValue:
- send: #getTrue:
- to: self.
- succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'.
- self should: [succeeded]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfSequence2 (in category 'tests') -----
- testIfSequence2
-
- | patch |
- patch := self patchSequenceFor: #(a b c d) and: #(c d b a).
- self assert: patch size = 6. "lcs is cd"
- self assert: (patch count: [ :each | each key = #match ]) = 2.
- self assert: (patch count: [ :each | each key = #insert ]) = 2.
- self assert: (patch count: [ :each | each key = #remove ]) = 2.
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: ('cd' includes: each value first) ]
- ifFalse: [ self assert: ('ab' includes: each value first) ] ]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testSameSequence (in category 'tests') -----
- testSameSequence
-
- | patch |
- patch := self patchSequenceFor: #(a b c) and: #(a b c).
- self assert: patch size = 3.
- self assert: (patch allSatisfy: [ :each | each key = #match ])!

Item was removed:
- ----- Method: StandardSystemFontsTest>>assert:familyName:pointSize: (in category 'utilities') -----
- assert: selector familyName: aString pointSize: anInteger
- | font |
- font := Preferences perform: selector.
- self assert: aString equals: font familyName.
- self assert: anInteger equals: font pointSize!

Item was removed:
- ----- Method: EventManagerTest>>testReturnValueWithNoListeners (in category 'running-dependent value') -----
- testReturnValueWithNoListeners
-
- | value |
- value := eventSource triggerEvent: #needsValue.
- self should: [value == nil]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>convertToString: (in category 'private') -----
- convertToString: array
-
- ^String streamContents: [ :stream |
- array do: [ :each |
- stream nextPutAll: each asString; cr ] ]!

Item was removed:
- TestCase subclass: #TextDiffBuilderTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-FilePackage-Tests'!

Item was removed:
- ----- Method: SystemVersionTest>>testMajorMinorVersion (in category 'as yet unclassified') -----
- testMajorMinorVersion
- "
- SystemVersionTest run: #testMajorMinorVersion
- "
- self assert: (SystemVersion new version: 'Squeak3.7alpha') majorMinorVersion = 'Squeak3.7'.
- self assert: (SystemVersion new version: 'Squeak3.7') majorMinorVersion = 'Squeak3.7'.
- self assert: (SystemVersion new version: 'Squeak3') majorMinorVersion = 'Squeak3'.
- self assert: (SystemVersion new version: '') majorMinorVersion = ''.
- !

Item was removed:
- ----- Method: EventManagerTest>>testSingleValueSupplier (in category 'running-broadcast query') -----
- testSingleValueSupplier
-
- eventSource
- when: #needsValue
- send: #getTrue
- to: self.
- succeeded := eventSource triggerEvent: #needsValue.
- self should: [succeeded]!

Item was removed:
- TestCase subclass: #StandardSystemFontsTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Support-Tests'!

Item was removed:
- ----- Method: EventManagerTest>>testCopy (in category 'running-copying') -----
- testCopy
- "Ensure that the actionMap is zapped when
- you make a copy of anEventManager"
-
- eventSource when: #blah send: #yourself to: eventListener.
- self assert: eventSource actionMap keys isEmpty not.
- self assert: eventSource copy actionMap keys isEmpty!

Item was removed:
- ----- Method: EventManagerTest>>getTrue (in category 'private') -----
- getTrue
-
- ^true!

Item was removed:
- ----- Method: EventManagerTest>>testBlockReceiverTwoArgs (in category 'running-dependent action') -----
- testBlockReceiverTwoArgs
- eventSource when: #anEvent:info: evaluate:[:arg1 :arg2| self addArg1: arg1 addArg2: arg2].
- eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ).
- self should: [(eventListener includes: 9) and: [eventListener includes: 42]]!

Item was removed:
- ----- Method: EventManagerTest>>testNoArgumentEventDependentSuppliedArgument (in category 'running-dependent action supplied arguments') -----
- testNoArgumentEventDependentSuppliedArgument
-
- eventSource when: #anEvent send: #add: to: eventListener with: 'boundValue'.
- eventSource triggerEvent: #anEvent.
- self should: [eventListener includes: 'boundValue']!

Item was removed:
- ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') -----
- testRestoreDefaultFonts
- self saveStandardSystemFontsDuring: [
- Preferences restoreDefaultFonts.
- self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12.
- self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9.
- self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 12.
- self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9.
- self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]!

Item was removed:
- ----- Method: EventManagerTest>>testNoValueSupplier (in category 'running-broadcast query') -----
- testNoValueSupplier
-
- succeeded := eventSource
- triggerEvent: #needsValue
- ifNotHandled: [true].
- self should: [succeeded]!

Item was removed:
- ----- Method: ObjectFinalizerTests>>testFinalization (in category 'tests') -----
- testFinalization
- "self run: #testFinalization"
-
- | repetitions |
- repetitions := 100.
- 1 to: repetitions
- do: [:i |
- log addLast: 'o' , i asString , ' created'.
- Object new
- toFinalizeSend: #finalize:
- to: self
- with: 'o' , i asString].
- Smalltalk garbageCollect.
- self finalizationRegistry finalizeValues.
- 1 to: repetitions
- do: [:i |
- self assert: (log includes: 'o' , i asString , ' created').
- self assert: (log includes: 'o' , i asString , ' finalized')]!

Item was removed:
- ----- Method: EventManagerTest>>testNoArgumentEvent (in category 'running-dependent action') -----
- testNoArgumentEvent
-
- eventSource when: #anEvent send: #heardEvent to: self.
- eventSource triggerEvent: #anEvent.
- self should: [succeeded]!

Item was removed:
- ----- Method: EventManagerTest>>testTwoArgumentEvent (in category 'running-dependent action') -----
- testTwoArgumentEvent
-
- eventSource when: #anEvent:info: send: #addArg1:addArg2: to: self.
- eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ).
- self should: [(eventListener includes: 9) and: [eventListener includes: 42]]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfPatchIsMinimal (in category 'tests') -----
- testIfPatchIsMinimal
-
- | patch |
- patch := self patchSequenceFor: #(a a a b) and: #(a b a a).
- self assert: patch size = 5. "lcs is aaa"
- self assert: (patch count: [ :each | each key = #match ]) = 3.
- self assert: (patch count: [ :each | each key = #insert ]) = 1.
- self assert: (patch count: [ :each | each key = #remove ]) = 1.
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: each value first = $a ]
- ifFalse: [ self assert: each value first = $b ] ]!

Item was removed:
- ----- Method: LocaleTest>>testLocaleChanged (in category 'testing') -----
- testLocaleChanged
- "self debug: #testLocaleChanged"
- "LanguageEnvironment >> startUp is called from Prject >> localeChanged"
- Project current updateLocaleDependents.
- self assert: (ActiveHand instVarNamed: 'keyboardInterpreter') isNil.
- self assert: (Clipboard default instVarNamed: 'interpreter') isNil.
- Locale switchToID: (LocaleID isoLanguage: 'ja').
- self assert: Preferences useFormsInPaintBox.
- Locale switchToID: (LocaleID isoLanguage: 'en').
- self assert: Preferences useFormsInPaintBox not.
- !

Item was removed:
- ----- Method: EventManagerTest>>getFalse (in category 'private') -----
- getFalse
-
- ^false!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfSequence5 (in category 'tests') -----
- testIfSequence5
-
- | patch matches nonMatches |
- patch := self patchSequenceFor: #(a b c d) and: #(c d a b).
- self assert: patch size = 6. "lcs is ab or cd"
- matches := (patch select: [ :each | each key = #match ])
- collect: [ :each | each value first ] as: String.
- self assert: (#('ab' 'cd') includes: matches).
- self assert: (patch count: [ :each | each key = #insert ]) = 2.
- self assert: (patch count: [ :each | each key = #remove ]) = 2.
- nonMatches := #('ab' 'cd') detect: [ :each | each ~= matches ].
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: (matches includes: each value first) ]
- ifFalse: [ self assert: (nonMatches includes: each value first) ] ]!

Item was removed:
- TestCase subclass: #LocaleTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !LocaleTest commentStamp: 'tak 8/3/2005 18:24' prior: 0!
- LocaleTest buildSuite run!

Item was removed:
- ----- Method: EventManagerTest>>setUp (in category 'running') -----
- setUp
-
- super setUp.
- eventSource := EventManager new.
- eventListener := Bag new.
- succeeded := false!

Item was removed:
- ClassTestCase subclass: #SecureHashAlgorithmTest
- instanceVariableNames: 'hash'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Digital Signatures-Tests'!
-
- !SecureHashAlgorithmTest commentStamp: '<historical>' prior: 0!
- This is the unit test for the class SecureHashAlgorithm. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see:
- - http://www.c2.com/cgi/wiki?UnitTest
- - http://minnow.cc.gatech.edu/squeak/1547
- - the sunit class category!

Item was removed:
- ----- Method: SecureHashAlgorithmTest>>testExample3 (in category 'testing - examples') -----
- testExample3
-
- "This is the third example from the specification document (FIPS PUB 180-1).
- This example may take several minutes."
-
- hash := SecureHashAlgorithm new hashMessage: (String new: 1000000 withAll: $a).
- self assert: (hash = 16r34AA973CD4C4DAA4F61EEB2BDBAD27316534016F).!

Item was removed:
- TestCase subclass: #SmalltalkImageTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Support-Tests'!

Item was removed:
- ----- Method: EventManagerTest>>testRemoveActionsTwiceForEvent (in category 'running-remove actions') -----
- testRemoveActionsTwiceForEvent
-
- eventSource
- when: #anEvent send: #size to: eventListener;
- when: #anEvent send: #getTrue to: self;
- when: #anEvent: send: #fizzbin to: self.
- eventSource removeActionsForEvent: #anEvent.
- self assert: (eventSource hasActionForEvent: #anEvent) not.
- eventSource removeActionsForEvent: #anEvent.
- self assert: (eventSource hasActionForEvent: #anEvent) not.!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testEmptyLcs2 (in category 'tests') -----
- testEmptyLcs2
-
- | patch |
- patch := self patchSequenceFor: #() and: #(a b c).
- self assert: patch size = 3.
- self assert: (patch allSatisfy: [ :each | each key = #insert ])!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfSequence3 (in category 'tests') -----
- testIfSequence3
-
- | patch |
- patch := self patchSequenceFor: #(a b c d) and: #(b d c a).
- self assert: patch size = 6. "lcs is bd"
- self assert: (patch count: [ :each | each key = #match ]) = 2.
- self assert: (patch count: [ :each | each key = #insert ]) = 2.
- self assert: (patch count: [ :each | each key = #remove ]) = 2.
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: ('bd' includes: each value first) ]
- ifFalse: [ self assert: ('ac' includes: each value first) ] ]!

Item was removed:
- ----- Method: EventManagerTest>>testRemoveActionsForEvent (in category 'running-remove actions') -----
- testRemoveActionsForEvent
-
- eventSource
- when: #anEvent send: #size to: eventListener;
- when: #anEvent send: #getTrue to: self;
- when: #anEvent: send: #fizzbin to: self.
- eventSource removeActionsForEvent: #anEvent.
- self shouldnt: [eventSource hasActionForEvent: #anEvent]!

Item was removed:
- ----- Method: EventManagerTest>>getTrue: (in category 'private') -----
- getTrue: anArg
-
- ^true!

Item was removed:
- ----- Method: SecureHashAlgorithmTest>>testExample1 (in category 'testing - examples') -----
- testExample1
-
- "This is the first example from the specification document (FIPS PUB 180-1)"
-
- hash := SecureHashAlgorithm new hashMessage: 'abc'.
- self assert: (hash = 16rA9993E364706816ABA3E25717850C26C9CD0D89D).
- !

Item was removed:
- ----- Method: EventManagerTest>>testMultipleValueSuppliers (in category 'running-broadcast query') -----
- testMultipleValueSuppliers
-
- eventSource
- when: #needsValue
- send: #getFalse
- to: self.
- eventSource
- when: #needsValue
- send: #getTrue
- to: self.
- succeeded := eventSource triggerEvent: #needsValue.
- self should: [succeeded]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testSameSequenceWithRepetitions (in category 'tests') -----
- testSameSequenceWithRepetitions
-
- | patch |
- patch := self patchSequenceFor: #(a a b a) and: #(a a b a).
- self assert: patch size = 4.
- self assert: (patch allSatisfy: [ :each | each key = #match ])!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfSequence1 (in category 'tests') -----
- testIfSequence1
-
- | patch |
- patch := self patchSequenceFor: #(a b c d) and: #(d c b a).
- self assert: patch size = 7. "lcs is any one letter sequence"
- self assert: (patch count: [ :each | each key = #match ]) = 1.
- self assert: (patch count: [ :each | each key = #insert ]) = 3.
- self assert: (patch count: [ :each | each key = #remove ]) = 3.
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: each value first = $d ]
- ifFalse: [ self assert: ('abc' includes: each value first) ] ]!

Item was removed:
- ----- Method: SmalltalkImageTest>>testImageName (in category 'testing') -----
- testImageName
- "Non regression test for http://bugs.squeak.org/view.php?id=7351"
- | shortImgName fullImgName fullChgName |
- shortImgName := 'Squeak3.10.2-7179-basic'.
- fullImgName := SmalltalkImage current fullNameForImageNamed: shortImgName.
- fullChgName := SmalltalkImage current fullNameForChangesNamed: shortImgName.
- FileDirectory splitName: fullImgName to: [:path :name |
- self assert: path = SmalltalkImage current imagePath.
- self assert: name = 'Squeak3.10.2-7179-basic.image'.].
- FileDirectory splitName: fullChgName to: [:path :name |
- self assert: path = SmalltalkImage current imagePath.
- self assert: name = 'Squeak3.10.2-7179-basic.changes'.].!

Item was removed:
- ----- Method: LocaleTest>>testFontFullName (in category 'testing') -----
- testFontFullName
- "self debug: #testFontFullName"
- | env dir |
- env := (Locale isoLanguage: 'ja') languageEnvironment.
- dir := FileDirectory on: SecurityManager default untrustedUserDirectory.
- [dir recursiveDelete]
- on: Error
- do: [:e | e].
- env fontFullName.
- self assert: dir exists!

Item was removed:
- ----- Method: LocaleTest>>testEncodingName (in category 'testing') -----
- testEncodingName
- "self debug: #testEncodingName"
- | locale |
- locale := Locale isoLanguage: 'ja'.
- self assert: locale languageEnvironment fontEncodingName = #FontJapaneseEnvironment!

Item was removed:
- ----- Method: EventManagerTest>>testReturnValueWithOneListener (in category 'running-dependent value') -----
- testReturnValueWithOneListener
-
- | value |
- eventSource
- when: #needsValue
- send: #yourself
- to: eventListener.
- value := eventSource triggerEvent: #needsValue.
- self should: [value == eventListener]!

Item was removed:
- ----- Method: StandardSystemFontsTest>>saveStandardSystemFontsDuring: (in category 'utilities') -----
- saveStandardSystemFontsDuring: aBlock
- | standardDefaultTextFont standardListFont standardEToysFont standardMenuFont
- windowTitleFont standardBalloonHelpFont standardCodeFont standardButtonFont |
-
- standardDefaultTextFont := Preferences standardDefaultTextFont.
- standardListFont := Preferences standardListFont.
- standardEToysFont := Preferences standardEToysFont.
- standardMenuFont := Preferences standardMenuFont.
- windowTitleFont := Preferences windowTitleFont.
- standardBalloonHelpFont := Preferences standardBalloonHelpFont.
- standardCodeFont := Preferences standardCodeFont.
- standardButtonFont := Preferences standardButtonFont.
- [aBlock value] ensure: [
- Preferences setSystemFontTo: standardDefaultTextFont.
- Preferences setListFontTo: standardListFont.
- Preferences setEToysFontTo: standardEToysFont.
- Preferences setMenuFontTo: standardMenuFont.
- Preferences setWindowTitleFontTo: windowTitleFont.
- Preferences setBalloonHelpFontTo: standardBalloonHelpFont.
- Preferences setCodeFontTo: standardCodeFont.
- Preferences setButtonFontTo: standardButtonFont]!

Item was removed:
- ----- Method: EventManagerTest>>tearDown (in category 'running') -----
- tearDown
-
- eventSource releaseActionMap.
- eventSource := nil.
- eventListener := nil.
- super tearDown.
- !

Item was removed:
- ----- Method: LocaleTest>>testIsFontAvailable (in category 'testing') -----
- testIsFontAvailable
- "self debug: #testIsFontAvailable"
- (Locale isoLanguage: 'ja') languageEnvironment removeFonts.
- self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable.
- "Next test should fail after installing Japanese font"
- self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not.
- (Locale isoLanguage: 'ja') languageEnvironment installFont.
- self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable!

Item was removed:
- ----- Method: EventManagerTest>>getFalse: (in category 'private') -----
- getFalse: anArg
-
- ^false!

Item was removed:
- ----- Method: ObjectFinalizerTests>>finalize: (in category 'finalization handling') -----
- finalize: anObject
- log addLast: anObject asString, ' ', 'finalized'.!

Item was removed:
- ----- Method: EventManagerTest>>heardEvent (in category 'private') -----
- heardEvent
-
- succeeded := true!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfSequence6 (in category 'tests') -----
- testIfSequence6
-
- | patch |
- patch := self patchSequenceFor: #(a b c d) and: #(d a b c).
- self assert: patch size = 5. "lcs is abc"
- self assert: (patch count: [ :each | each key = #match ]) = 3.
- self assert: (patch count: [ :each | each key = #insert ]) = 1.
- self assert: (patch count: [ :each | each key = #remove ]) = 1.
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: ('abc' includes: each value first) ]
- ifFalse: [ self assert: each value first = $d ] ]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>patchSequenceFor:and: (in category 'private') -----
- patchSequenceFor: x and: y
-
- ^(TextDiffBuilder
- from: (self convertToString: x)
- to:  (self convertToString: y)) buildPatchSequence!

Item was removed:
- ----- Method: EventManagerTest>>testBlockReceiverOneArg (in category 'running-dependent action') -----
- testBlockReceiverOneArg
- eventSource when: #anEvent: evaluate:[:arg1| eventListener add: arg1].
- eventSource triggerEvent: #anEvent: with: 9.
- self should: [eventListener includes: 9]!

Item was removed:
- TestCase subclass: #ObjectFinalizerTests
- instanceVariableNames: 'log'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Finalization'!

Item was removed:
- ----- Method: EventManagerTest>>testNoArgumentEventDependentSuppliedArguments (in category 'running-dependent action supplied arguments') -----
- testNoArgumentEventDependentSuppliedArguments
-
- eventSource
- when: #anEvent
- send: #addArg1:addArg2:
- to: self
- withArguments: #('hello' 'world').
- eventSource triggerEvent: #anEvent.
- self should: [(eventListener includes: 'hello') and: [eventListener includes: 'world']]!

Item was removed:
- ----- Method: EventManagerTest>>testReturnValueWithManyListeners (in category 'running-dependent value') -----
- testReturnValueWithManyListeners
-
- | value newListener |
- newListener := 'busybody'.
- eventSource
- when: #needsValue
- send: #yourself
- to: eventListener.
- eventSource
- when: #needsValue
- send: #yourself
- to: newListener.
- value := eventSource triggerEvent: #needsValue.
- self should: [value == newListener]!

Item was removed:
- ----- Method: EventManagerTest>>addArg1:addArg2: (in category 'private') -----
- addArg1: arg1
- addArg2: arg2
-
- eventListener
- add: arg1;
- add: arg2!

Item was removed:
- TestCase subclass: #SystemVersionTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Support-Tests'!
-
- !SystemVersionTest commentStamp: 'tlk 11/14/2004 10:47' prior: 0!
- I am an sunit test for SystemVersion.  Originally created to test SqueakMapSystemVersionFix change set.
- I have no test fixtures.!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testEmptyLcs3 (in category 'tests') -----
- testEmptyLcs3
-
- | patch |
- patch := self patchSequenceFor: #(a b c) and: #(d e f g).
- self assert: patch size = 7.
- patch do: [ :each |
- each key = #remove ifTrue: [ self assert: ('abc' includes: each value first) ].
- each key = #insert ifTrue: [ self assert: ('defg' includes: each value first) ] ]!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testIfSequence4 (in category 'tests') -----
- testIfSequence4
-
- | patch |
- patch := self patchSequenceFor: #(a b c d) and: #(d b c a).
- self assert: patch size = 6. "lcs is bc"
- self assert: (patch count: [ :each | each key = #match ]) = 2.
- self assert: (patch count: [ :each | each key = #insert ]) = 2.
- self assert: (patch count: [ :each | each key = #remove ]) = 2.
- patch do: [ :each |
- each key = #match
- ifTrue: [ self assert: ('bc' includes: each value first) ]
- ifFalse: [ self assert: ('ad' includes: each value first) ] ]!

Item was removed:
- ----- Method: EventManagerTest>>testRemoveActionsWithReceiver (in category 'running-remove actions') -----
- testRemoveActionsWithReceiver
-
- | action |
- eventSource
- when: #anEvent send: #size to: eventListener;
- when: #anEvent send: #getTrue to: self;
- when: #anEvent: send: #fizzbin to: self.
- eventSource removeActionsWithReceiver: self.
- action := eventSource actionForEvent: #anEvent.
- self assert: (action respondsTo: #receiver).
- self assert: ((action receiver == self) not)!

Item was removed:
- ----- Method: EventManagerTest>>testNoValueSupplierHasArguments (in category 'running-broadcast query') -----
- testNoValueSupplierHasArguments
-
- succeeded := eventSource
- triggerEvent: #needsValue:
- with: 'nelja'
- ifNotHandled: [true].
- self should: [succeeded]!

Item was removed:
- ----- Method: EventManagerTest>>testOneArgumentEvent (in category 'running-dependent action') -----
- testOneArgumentEvent
-
- eventSource when: #anEvent: send: #add: to: eventListener.
- eventSource triggerEvent: #anEvent: with: 9.
- self should: [eventListener includes: 9]!

Item was removed:
- ----- Method: SecureHashAlgorithmTest>>testExample2 (in category 'testing - examples') -----
- testExample2
-
- "This is the second example from the specification document (FIPS PUB 180-1)"
-
- hash := SecureHashAlgorithm new hashMessage:
- 'abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.
- self assert: (hash = 16r84983E441C3BD26EBAAE4AA1F95129E5E54670F1).!

Item was removed:
- ----- Method: TextDiffBuilderTest>>testEmptySequences (in category 'tests') -----
- testEmptySequences
-
- | patch |
- patch := self patchSequenceFor: #() and: #().
- self assert: patch isEmpty!

Item was removed:
- ----- Method: ObjectFinalizerTests>>setUp (in category 'running') -----
- setUp
- super setUp.
- log := OrderedCollection new.!

Item was removed:
- ClassTestCase subclass: #EventManagerTest
- instanceVariableNames: 'eventSource eventListener succeeded'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Object Events-Tests'!