From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Apr 2001 12:29:15 +0000 (+0000)
Subject: Add more debug output to the test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60d70ea0c46625a54e043215dcfdcf47146615c8;p=p5sagit%2Fp5-mst-13.2.git

Add more debug output to the test.

p4raw-id: //depot/perl@9697
---

diff --git a/t/lib/cwd.t b/t/lib/cwd.t
index 1ddaf25..eb5ec7a 100644
--- a/t/lib/cwd.t
+++ b/t/lib/cwd.t
@@ -114,6 +114,9 @@ if ($Config{d_symlink}) {
 
     my $abs_path      = Cwd::abs_path($rel);
     my $fast_abs_path = Cwd::fast_abs_path($rel);
+    print "# abs_path      $abs_path\n";
+    print "# fast_abs_path $fast_abs_path\n";
+    print "# target        $target\n";
     print +($abs_path      eq $target ? "" : "not "), "ok 13\n";
     print +($fast_abs_path eq $target ? "" : "not "), "ok 14\n";