Commits

Anonymous committed ac94cd3

Add another test.

  • Participants
  • Parent commits 58aac09

Comments (0)

Files changed (1)

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

 
 use utf8;
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 
 use XML::Grammar::FictionBase::FromProto::Parser::LineIterator;
 
     is (pos(${$parser->curr_line_ref()}), 0,
         "The pos() of the line is set at the right value."
     );
+
+    # TEST
+    is ($parser->curr_pos(), 0, "->pos() returns the right value.");
 }