He people,

I stumbled over this in the 3.6-5424-basic image, where there existed still entries for Scamper and Celeste in the default tools flap. After installing the FlapsRegistry from SM and selecting a different default font, the tools flap disappeared, because of reevaluation of the code, which failed at the missing keys in `Smalltalk at: ...'. To prevent this in future releases, and because I'm test-infected, I concocted a unit test that tests whether all default quads work. Please review, criticise and use.

Christian

'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 12 October 2003 at 7:25:40 pm'! TestCase subclass: #FlapsTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Morphic-Flaps'! !FlapsTest commentStamp: '<historical>' prior: 0! A TestCase is a Command representing the future running of a test case. Create one with the class method #selector: aSymbol, passing the name of the method to be run when the test case runs.

When you discover a new fixture, subclass TestCase, declare instance variables for the objects in the fixture, override #setUp to initialize the variables, and possibly override# tearDown to deallocate any external resources allocated in #setUp.

When you are writing a test case method, send #assert: aBoolean when you want to check for an expected value. For example, you might say "self assert: socket isOpen" to test whether or not a socket is open at a point in a test.!

!FlapsTest methodsFor: 'initialize-release' stamp: 'cE 10/10/2003 19:08'! setUp "I am the method in which your test is initialized. If you have ressources to build, put them here."! !

!FlapsTest methodsFor: 'initialize-release' stamp: 'cE 10/10/2003 19:08'! tearDown "I am called whenever your test ends. I am the place where you release the ressources"! !

!FlapsTest methodsFor: 'initialize-release' stamp: 'cE 10/12/2003 19:24'! testQuads "Defaults are defined in Flaps class>>defaultQuadsDefining... If you change something there, do the following afterwards: Flaps initializeFlapsQuads"

| allQuads absentClasses absentSelectors | allQuads _ OrderedCollection new. absentClasses _ OrderedCollection new. Flaps registeredFlapsQuads valuesDo: [:each | allQuads addAll: each]. allQuads do: [:each | | theObject | theObject _ each at: 1. Smalltalk at: theObject ifAbsent: [absentClasses add: each]]. self assert: absentClasses size = 0 description: 'There are absent classes: ' , absentClasses asString. absentSelectors _ OrderedCollection new. allQuads do: [:each | | theClass theSelector | theClass _ (Smalltalk at: (each at: 1)) class. theSelector _ each at: 2. (theClass canUnderstand: theSelector) ifFalse: [absentSelectors add: each]]. self assert: absentSelectors size = 0 description: 'There are absent selectors: ' , absentSelectors asString! !