Commits

Shlomi Fish committed cdeb8c8

Made for easy debugging.

Comments (0)

Files changed (1)

perl/modules/XML-Grammar-Fiction/t/screenplay/to-xhtml.t

     my $xpc = XML::LibXML::XPathContext->new();
     $xpc->registerNs('x', q{http://www.w3.org/1999/xhtml});
     # TEST*$num_texts
+    my @results = $xpc->find(q{//x:html}, $doc);
     is (
-        scalar(() = $xpc->find(q{//x:html}, $doc)),
+        scalar(@results),
         1,
         "Found one article with id index",
     );
 
+    @results = $xpc->find(q{//x:div[@class='saying']}, $doc);
     # TEST*$num_texts
     ok (
-        (scalar(() = $xpc->find(q{//x:div[@class='saying']}, $doc))
+        (scalar(@results)
             >=
             1
         ),
         "Found role=description sections",
     );
 
+    @results = $xpc->find(q{//x:div[@class='saying']/x:p/x:strong[@class='sayer']}, $doc);
     # TEST*$num_texts
     ok (
-        (scalar(() = $xpc->find(q{//x:div[@class='saying']/x:p/x:strong[@class='sayer']}, $doc))
+        (scalar(@results)
             >=
             1
         ),