The Trunk: Tests-eem.313.mcz

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

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

Name: Tests-eem.313
Author: eem
Time: 19 March 2015, 11:36:45.654 am
UUID: 73f5d743-97d9-47a2-b36e-7ddd7b30d136
Ancestors: Tests-nice.312

Provide a test to check that the tempsMark is
positioned correctly in non-interactive parsing.
Used for the new toggle break on entry code.

=============== Diff against Tests-nice.312 ===============

Item was added:
+ TestCase subclass: #ParserEditingTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Compiler'!

Item was added:
+ ----- Method: ParserEditingTest>>parse:into: (in category 'support') -----
+ parse: aString into: aTrinaryBlock
+ | parser code |
+ parser := self class newParser.
+ code := aString withCRs.
+ ^aTrinaryBlock
+ value: (parser parse: code class: self class; yourself)
+ value: parser tempsMark
+ value: code!

Item was added:
+ ----- Method: ParserEditingTest>>testTempsMarkBinary (in category 'tests') -----
+ testTempsMarkBinary
+ self parse: '+ arg foo' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code indexOf: $f)].
+ self parse: '+ arg\ foo' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code indexOf: $f)].
+ self parse: '+ arg\ <pragma>\ foo' into:
+ [:parser :tempsMark :code|
+ self assert: (tempsMark = (code indexOf: $f) or: [tempsMark = (code indexOf: $<)])].
+ self parse: '+ arg | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: '+ arg\ | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: '+ arg\ <pragma>\ | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: '+ arg\ | foo |\ <pragma>\ bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)]!

Item was added:
+ ----- Method: ParserEditingTest>>testTempsMarkKeyword (in category 'tests') -----
+ testTempsMarkKeyword
+ self parse: 'key: word foo' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code indexOf: $f)].
+ self parse: 'key: word\ foo' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code indexOf: $f)].
+ self parse: 'key: word\ <pragma>\ foo' into:
+ [:parser :tempsMark :code|
+ self assert: (tempsMark = (code indexOf: $f) or: [tempsMark = (code indexOf: $<)])].
+ self parse: 'key: word | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: 'key: word\ | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: 'key: word\ <pragma>\ | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: 'key: word\ | foo |\ <pragma>\ bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)]!

Item was added:
+ ----- Method: ParserEditingTest>>testTempsMarkUnary (in category 'tests') -----
+ testTempsMarkUnary
+ self parse: 'unary foo' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code indexOf: $f)].
+ self parse: 'unary\ foo' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code indexOf: $f)].
+ self parse: 'unary\ <pragma>\ foo' into:
+ [:parser :tempsMark :code|
+ self assert: (tempsMark = (code indexOf: $f) or: [tempsMark = (code indexOf: $<)])].
+ self parse: 'unary | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: 'unary\ | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: 'unary\ <pragma>\ | foo | bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)].
+ self parse: 'unary\ | foo |\ <pragma>\ bar' into:
+ [:parser :tempsMark :code|
+ self assert: tempsMark = (code lastIndexOf: $|)]!