The Trunk: Tests-nice.448.mcz

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.!