Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed a5b2581

Add a test for at_line_start

  • Participants
  • Parent commits ac94cd3

Comments (0)

Files changed (1)

File perl/modules/XML-Grammar-Fiction/t/base/line-iterator-unit.t

 
 use utf8;
 
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 use XML::Grammar::FictionBase::FromProto::Parser::LineIterator;
 
 
     # TEST
     is ($parser->curr_pos(), 0, "->pos() returns the right value.");
+
+    # TEST
+    ok (scalar($parser->at_line_start()), 
+        "Parser is at line start.");
 }