1727 !

  1728 

  1729 test_110_scan_DelimitedComment2    

  1730     |parser|

  1731 

  1732     parser := self parserClass new.

  1733     parser parserFlags allowSTXDelimiterComments:true.

  1734     parser saveComments:true.

  1735     parser

  1736                 parseMethod:'foo

  1737 "<<<< here is the difference"

  1738 1'

  1739                 in:mockClass.

  1740      " check the parser result "

  1741     self deny:parser isNil.

  1742     self deny:parser == #Error.

  1743     self assert:parser comments size == 1.

  1744     self assert:parser comments first commentString = '<<END\bla\bla bla\END\' withCRs.

  1745 

  1746     "Created: / 04-09-2014 / 12:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"