Commits

Anonymous committed 58aac09

Add a test for pos.

  • Participants
  • Parent commits 71fd7ff

Comments (0)

Files changed (1)

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

 
 use utf8;
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 use XML::Grammar::FictionBase::FromProto::Parser::LineIterator;
 
         qq{I had called upon my friend, Mr. Sherlock Holmes, one day in the autumn of\n},
         "curr_line_ref() returns the right value.",
     );
+
+    # TEST
+    is (pos(${$parser->curr_line_ref()}), 0,
+        "The pos() of the line is set at the right value."
+    );
 }