[Pkg] The Trunk: KernelTests-eem.346.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jul 27 21:53:24 UTC 2018


Eliot Miranda uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-eem.346.mcz

==================== Summary ====================

Name: KernelTests-eem.346
Author: eem
Time: 27 July 2018, 2:53:08.035755 pm
UUID: 76014505-197e-4f48-93de-5f33856bcd6f
Ancestors: KernelTests-eem.345

Make the pragma tests survive a trailing comment being included in Pragma>>printOn:.

=============== Diff against KernelTests-eem.345 ===============

Item was changed:
  ----- Method: MethodPragmaTest>>assertPragma:givesKeyword:arguments: (in category 'utilities') -----
  assertPragma: aString givesKeyword: aSymbol arguments: anArray
+ 	| pragma decompiled pragmaString index |
- 	| pragma decompiled |
  	pragma := self pragma: aString selector: #zork.
+ 	self assert: aSymbol equals: pragma keyword.
+ 	self assert: anArray equals: pragma arguments.
- 	self assert: pragma keyword = aSymbol.
- 	self assert: pragma arguments = anArray.
  	decompiled := (self class>>#zork) decompile.
+ 	self assert: (decompiled properties pragmas includes: pragma).
+ 	pragmaString := pragma printString.
+ 	"Pragma printString may contain a comment; if so, delete it"
+ 	(index := pragmaString indexOfSubCollection: '> "in ') > 0 ifTrue:
+ 		[pragmaString := pragmaString copyFrom: 1 to: index].
+ 	self assert: (decompiled printString includesSubstring: pragmaString)!
- 	self assert: (decompiled properties pragmas includes: pragma). 
- 	self assert: (decompiled asString includesSubstring: pragma asString).!



More information about the Packages mailing list