Marcel Taeumel uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-mt.33.mcz
==================== Summary ====================
Name: ShoutTests-mt.33 Author: mt Time: 15 June 2020, 7:11:13.69319 pm UUID: 4e2ec3ca-d00f-9e42-ba19-a945f18fbc47 Ancestors: ShoutTests-ct.32
Adds a test for custom pragma parsing.
=============== Diff against ShoutTests-ct.32 ===============
Item was added: + ----- Method: SHParserST80Test>>customPragma (in category 'tests-manual') ----- + customPragma + <shoutTestPragma: 42>!
Item was added: + ----- Method: SHParserST80Test>>shoutTestPragma (in category 'utilities') ----- + shoutTestPragma + <pragmaParser> + + self addRangeType: #shoutTestPragmaSuccess. + self parsePragmaDefault.!
Item was added: + ----- Method: SHParserST80Test>>testPragmaParser (in category 'tests') ----- + testPragmaParser + + | source pragmaParser | + source := (self class compiledMethodAt: #customPragma) getSource. + pragmaParser := (self class compiledMethodAt: #shoutTestPragma) copy. + + self deny: ((self tokenTypesIn: source) includes: #shoutTestPragmaSuccess). + [SHParserST80 basicAddSelector: #shoutTestPragma withMethod: pragmaParser. + self assert: ((self tokenTypesIn: source) includes: #shoutTestPragmaSuccess)] + ensure: [SHParserST80 basicRemoveSelector: #shoutTestPragma]. + self deny: ((self tokenTypesIn: source) includes: #shoutTestPragmaSuccess).!
packages@lists.squeakfoundation.org