Commits

Anonymous committed 1e8c52b

More tests.

Comments (0)

Files changed (1)

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

 
 use utf8;
 
-use Test::More tests => 4;
+use Test::More tests => 6;
 
 use XML::Grammar::FictionBase::FromProto::Parser::LineIterator;
 
     # TEST
     ok (scalar($parser->at_line_start()), 
         "Parser is at line start.");
+
+    {
+        my ($l_ref, $pos) = $parser->curr_line_and_pos();
+
+        # TEST
+        is ($$l_ref, 
+            qq{I had called upon my friend, Mr. Sherlock Holmes, one day in the autumn of\n},
+            "Line ref of ->curr_line_and_pos() is OK."
+        );
+
+        # TEST
+        is ($pos, 0, "Pos of ->curr_line_and_pos() is OK.")
+    }
 }
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.