A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-jr.363.mcz==================== Summary ====================
Name: Tests-jr.363
Author: jr
Time: 12 February 2017, 4:37:38.800498 pm
UUID: 5951b5a0-dc4d-5a41-9705-281d814ce221
Ancestors: Tests-jr.362
add a test for reading the comment of a Trait
=============== Diff against Tests-jr.362 ===============
Item was added:
+ ----- Method: MCStReaderTest>>testTraitCommentWithoutStyle (in category 'as yet unclassified') -----
+ testTraitCommentWithoutStyle
+ | reader traitDefinition |
+ reader := MCStReader on: self traitCommentWithoutStyle readStream.
+ traitDefinition := reader definitions detect: [:each | each class = MCTraitDefinition]
+ ifNone: [self fail: 'Trait was not recognized'].
+ self assert: 'I am a Trait and I have a comment.' equals: traitDefinition comment.!
Item was added:
+ ----- Method: MCStReaderTest>>traitCommentWithoutStyle (in category 'as yet unclassified') -----
+ traitCommentWithoutStyle
+ ^ 'Trait named: #TSomethingYouHaveNeverHeardOf
+ uses: {}
+ category: ''Tests-Monticello''!!
+
+ !!TSomethingYouHaveNeverHeardOf commentStamp: ''jr 2/20/2017 17:46'' prior: 0!!
+ I am a Trait and I have a comment.!!'!