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