1#!./perl -w 2 3BEGIN { 4 chdir 't' if -d 't'; 5 require "./test.pl"; 6 set_up_inc('../lib'); 7} 8 9use Config; 10 11$Config{d_getcwd} 12 or plan skip_all => "no getcwd"; 13 14my $cwd = Internals::getcwd(); 15ok(!defined $cwd || $cwd ne "", 16 "Internals::getcwd() returned a reasonable result"); 17 18if (defined $cwd) { 19 ok(-d $cwd, "check a success result is a directory"); 20} 21 22done_testing(); 23