# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1409829253 -7200
# Node ID bc67469506355f7ab39e509dc2ed2f1ddd54a48e
# Parent  37e1670177ed19a29a400c2e9bb2813f2d11632b
class: RegressionTests::ParserTests
added: #test_110_scan_DelimitedComment2

diff -r 37e1670177ed -r bc6746950635 ParserTests.st
--- a/ParserTests.st	Thu Sep 04 13:05:03 2014 +0200
+++ b/ParserTests.st	Thu Sep 04 13:14:13 2014 +0200
@@ -1726,6 +1726,26 @@
     self assert:parser comments first commentString = '<<END\bla\bla bla\END\' withCRs.
 !
 
+test_110_scan_DelimitedComment2    
+    |parser|
+
+    parser := self parserClass new.
+    parser parserFlags allowSTXDelimiterComments:true.
+    parser saveComments:true.
+    parser
+                parseMethod:'foo
+"<<<< here is the difference"
+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.
+
+    "Created: / 04-09-2014 / 12:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_120_scan_numbers    
     |s n|