[squeak-dev] The Trunk: Tests-nice.448.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Apr 13 00:56:55 UTC 2021
Nicolas Cellier uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-nice.448.mcz
==================== Summary ====================
Name: Tests-nice.448
Author: nice
Time: 13 April 2021, 2:56:53.406097 am
UUID: 2e7d1b04-14b7-410c-9ef8-20688a8fd857
Ancestors: Tests-nice.447, Tests-jr.436
Merge Tests-jr.436:
Test class definition reading
=============== Diff against Tests-nice.447 ===============
Item was changed:
SystemOrganization addCategory: #'Tests-Bugs'!
SystemOrganization addCategory: #'Tests-Compiler'!
SystemOrganization addCategory: #'Tests-Dependencies'!
SystemOrganization addCategory: #'Tests-Digital Signatures'!
SystemOrganization addCategory: #'Tests-Environments'!
SystemOrganization addCategory: #'Tests-Exceptions'!
SystemOrganization addCategory: #'Tests-FilePackage'!
SystemOrganization addCategory: #'Tests-Files'!
SystemOrganization addCategory: #'Tests-Finalization'!
SystemOrganization addCategory: #'Tests-Hex'!
SystemOrganization addCategory: #'Tests-Installer-Core'!
SystemOrganization addCategory: #'Tests-Localization'!
SystemOrganization addCategory: #'Tests-Monticello'!
SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
SystemOrganization addCategory: #'Tests-Monticello-Utils'!
SystemOrganization addCategory: #'Tests-Object Events'!
SystemOrganization addCategory: #'Tests-ObjectsAsMethods'!
SystemOrganization addCategory: #'Tests-PrimCallController'!
SystemOrganization addCategory: #'Tests-Release'!
SystemOrganization addCategory: #'Tests-System-Applications'!
SystemOrganization addCategory: #'Tests-System-Digital Signatures'!
SystemOrganization addCategory: #'Tests-System-Object Storage'!
SystemOrganization addCategory: #'Tests-System-Preferences'!
SystemOrganization addCategory: #'Tests-System-Support'!
SystemOrganization addCategory: #'Tests-Utilities'!
SystemOrganization addCategory: #'Tests-VM'!
- SystemOrganization addCategory: #'Tests-MonticelloMocks'!
SystemOrganization addCategory: #'Tests-Sound'!
Item was added:
+ ----- Method: MCStReaderTest>>testClassDefinition (in category 'tests') -----
+ testClassDefinition
+ | reader definition |
+ reader := MCStReader on: 'Object subclass: #NewClass
+ instanceVariableNames: ''instVar1 instVar2''
+ classVariableNames: ''ClassVar1 ClassVar2''
+ poolDictionaries: ''Pool1 Pool2''
+ category: ''NewCategory''!!' readStream.
+ definition := reader definitions first.
+ self assert: definition isClassDefinition;
+ assert: #NewClass equals: definition className;
+ assert: #(instVar1 instVar2) equals: definition instVarNames asArray;
+ assert: #(ClassVar1 ClassVar2) equals: definition classVarNames asArray;
+ assert: #(Pool1 Pool2) equals: definition poolDictionaries asArray;
+ assert: 'NewCategory' equals: definition category;
+ assert: '{}' equals: definition traitCompositionString;
+ assert: '{}' equals: definition classTraitCompositionString.!
Item was added:
+ ----- Method: MCStReaderTest>>testClassDefinitionFromPseudoClass (in category 'tests') -----
+ testClassDefinitionFromPseudoClass
+ | reader pseudoClass definition |
+ reader := MCStReader new.
+ pseudoClass := PseudoClass new
+ name: #NewClass;
+ definition: 'Object subclass: #NewClass
+ instanceVariableNames: ''instVar1 instVar2''
+ classVariableNames: ''ClassVar1 ClassVar2''
+ poolDictionaries: ''Pool1 Pool2''
+ category: ''NewCategory''';
+ yourself.
+ definition := reader classDefinitionFrom: pseudoClass.
+ self assert: definition isClassDefinition;
+ assert: #NewClass equals: definition className;
+ assert: #(instVar1 instVar2) equals: definition instVarNames asArray;
+ assert: #(ClassVar1 ClassVar2) equals: definition classVarNames asArray;
+ assert: #(Pool1 Pool2) equals: definition poolDictionaries asArray;
+ assert: 'NewCategory' equals: definition category;
+ assert: '{}' equals: definition traitCompositionString;
+ assert: '{}' equals: definition classTraitCompositionString.!
More information about the Squeak-dev
mailing list
|