Commits

shl...@6a489e09-e8c2-0310-a3fb-a128a961c0b2  committed d19f9ce

Corrected a regression (no default separator) and made perl/t/tree.t better.

  • Participants
  • Parent commits 9f98e1a

Comments (0)

Files changed (2)

File installer/perl5/Shlomif/Quad/Pres.pm

     my $qp = shift;
     my $sep = shift;
 
+    if (!defined ($sep))
+    {
+        $sep = " → ";
+    }
+
     my @abs_coords = @{$qp->{'coords'}};
 
     my @strs;

File installer/tests/perl/t/tree.t

 # TEST
 use_ok("Shlomif::Quad::Pres");
 
+binmode STDOUT, ":utf8";
 {
     my $contents1 = 
     {
             'doc_id' => 'intro/',
             'mode' => "server",
         );
-        ok($qp); # TEST
+        # TEST
+        ok ($qp, "A Quad-Pres instance was initialized."); 
 
         my $next_url = $qp->get_control_url($qp->get_next_url());
-        ok(($next_url eq "history.html"), "next OK"); # TEST
+        # TEST
+        is(
+            $next_url,
+            "history.html", 
+            "next OK"
+        ); 
 
         my $prev_url = $qp->get_control_url($qp->get_prev_url());
         is($prev_url, "../", "prev OK"); # TEST
         );
 
         # TEST
-        ok($qp); 
+        ok ($qp, "A Quad-Pres instance was initialized. (No. 2)"); 
 
         # TEST
         is ($qp->get_breadcrumbs_trail(),
         );
 
         # TEST
-        ok($qp); 
+        ok ($qp, "A Quad-Pres instance was initialized. (No. 3)"); 
 
         # TEST
         is ($qp->get_breadcrumbs_trail(" → "),