From: Jarkko Hietaniemi 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";