--- a/parsers/smalltalk/tests/PPSmalltalkParserTests.st	Thu Nov 06 02:22:56 2014 +0000
+++ b/parsers/smalltalk/tests/PPSmalltalkParserTests.st	Fri Nov 07 02:14:26 2014 +0000
@@ -184,6 +184,56 @@
 	self assert: result arguments first isValue
 !
 
+testComment6a
+        super testComment6a.
+        self assert: result isMessage.
+        self assert: result receiver isValue.
+        self assert: result selector equals: #+.
+        self assert: result arguments first isValue
+
+    "Created: / 07-11-2014 / 01:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6b
+        super testComment6b.
+        self assert: result isMessage.
+        self assert: result receiver isValue.
+        self assert: result selector equals: #+.
+        self assert: result arguments first isValue
+
+    "Created: / 07-11-2014 / 01:53:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6c
+        super testComment6c.
+        self assert: result isMessage.
+        self assert: result receiver isValue.
+        self assert: result selector equals: #+.
+        self assert: result arguments first isValue
+
+    "Created: / 07-11-2014 / 01:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6d
+        super testComment6d.
+        self assert: result isMessage.
+        self assert: result receiver isValue.
+        self assert: result selector equals: #+.
+        self assert: result arguments first isValue
+
+    "Created: / 07-11-2014 / 01:53:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testComment6e
+        super testComment6e.
+        self assert: result isMessage.
+        self assert: result receiver isValue.
+        self assert: result selector equals: #+.
+        self assert: result arguments first isValue
+
+    "Created: / 07-11-2014 / 01:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 testMethod1
 	super testMethod1.
 	self assert: result isMethod.