Commits

Anonymous committed 7fa9268

Add more assertions to test for the error class.

Comments (0)

Files changed (1)

perl/modules/XML-Grammar-Fiction/t/proto-text-invalid.t

 use strict;
 use warnings;
 
-use Test::More tests => 4;
+use Test::More tests => 6;
 
 use XML::LibXML;
 
     "Opening line is OK.",
 );
 
+# TEST
+is(
+    $err->closing_tag()->name(),
+    "wrong-finish-tag",
+    "Opening tag-name is OK.",
+);
+
+# TEST
+is(
+    $err->closing_tag()->line(),
+    3,
+    "Opening line is OK.",
+);
+
 1;