parsers/smalltalk/tests/PPSmalltalkGrammarTests.st
changeset 417 3c0a91182e65
parent 386 a409905f7f2d
child 421 7e08b31e0dae
--- a/parsers/smalltalk/tests/PPSmalltalkGrammarTests.st	Thu Nov 06 02:22:56 2014 +0000
+++ b/parsers/smalltalk/tests/PPSmalltalkGrammarTests.st	Fri Nov 07 02:14:26 2014 +0000
@@ -112,6 +112,52 @@
 		rule: #expression
 !
 
+testComment6a
+        "Tests Smalltalk/X EOL comments"
+        self 
+                parse: '1+2"/ xxxxx'
+                rule: #expression.
+
+    "Created: / 07-11-2014 / 01:50:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6b
+        "Tests Smalltalk/X EOL comments"
+        self 
+                parse: '1"/ xxxxx
+                        +2 "/yyyy'
+                rule: #expression.
+
+    "Created: / 07-11-2014 / 01:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6c
+        "Tests Smalltalk/X EOL comments"
+        self 
+                parse: ('1"/ xxxxx', (Character codePoint: 13) asString, ' + 1')
+                rule: #expression.
+
+    "Created: / 07-11-2014 / 01:51:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6d
+        "Tests Smalltalk/X EOL comments"
+        self 
+                parse: ('1"/ xxxxx', (Character codePoint: 10) asString, ' + 1')
+                rule: #expression.
+
+    "Created: / 07-11-2014 / 01:51:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6e
+        "Tests Smalltalk/X EOL comments"
+        self 
+                parse: ('1"/ xxxxx', (Character codePoint: 13) asString, (Character codePoint: 10) asString, ' + 1')
+                rule: #expression.
+
+    "Created: / 07-11-2014 / 01:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 testCompleteness
 	"This test asserts that all subclasses override all test methods."