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