--- a/ParserTests.st	Tue Nov 13 14:04:23 2012 +0100
+++ b/ParserTests.st	Tue Nov 13 14:04:45 2012 +0100
@@ -17,7 +17,7 @@
 	instanceVariableNames:'mockClass'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'System-Compiler'
+	category:'tests-Regression'
 !
 
 !ParserTests class methodsFor:'documentation'!
@@ -1591,6 +1591,79 @@
     "Modified: / 12-12-2009 / 22:10:53 / pp <Pavel.Pospichal@gmail.com>"
 ! !
 
+!ParserTests methodsFor:'tests - scanner'!
+
+test_100_scan_EOLcomment1    
+    |parser|
+
+    parser := self parserClass new.
+    parser saveComments:true.
+    parser
+                parseMethod:'foo
+"/
+1'
+                in:mockClass.
+     " check the parser result "
+    self deny:parser isNil.
+    self deny:parser == #Error.
+    self assert:parser comments size == 1.
+    self assert:parser comments first commentString isEmpty.
+!
+
+test_101_scan_EOLcomment2    
+    |parser|
+
+    parser := self parserClass new.
+    parser saveComments:true.
+    parser
+                parseMethod:'foo
+"/a
+1'
+                in:mockClass.
+     " check the parser result "
+    self deny:parser isNil.
+    self deny:parser == #Error.
+    self assert:parser comments size == 1.
+    self assert:parser comments first commentString = 'a'.
+!
+
+test_102_scan_EOLcomment3    
+    |parser|
+
+    parser := self parserClass new.
+    parser saveComments:true.
+    parser
+                parseMethod:'foo
+"/abc
+1'
+                in:mockClass.
+     " check the parser result "
+    self deny:parser isNil.
+    self deny:parser == #Error.
+    self assert:parser comments size == 1.
+    self assert:parser comments first commentString = 'abc'.
+!
+
+test_110_scan_DelimitedComment1    
+    |parser|
+
+    parser := self parserClass new.
+    parser saveComments:true.
+    parser
+                parseMethod:'foo
+"<<END
+bla
+bla bla
+END
+1'
+                in:mockClass.
+     " check the parser result "
+    self deny:parser isNil.
+    self deny:parser == #Error.
+    self assert:parser comments size == 1.
+    self assert:parser comments first commentString = '>>END\bla\bla bla\END\' withCRs.
+! !
+
 !ParserTests methodsFor:'tests - sysprim'!
 
 testSysPrimitiveWithInvalidArgument