[Pkg] The Trunk: Tests-nice.448.mcz

[commits at source.squeak.org]

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