6 use Test::More tests => 6;
8 use Mac::NSGetExecutablePath 'NSGetExecutablePath';
10 my $path = NSGetExecutablePath();
12 ok defined($path), 'NSGetExecutablePath() does not return undef';
13 cmp_ok length($path), '>', 0,
14 'NSGetExecutablePath() returns something of positive length';
18 ok defined($v), '`NSGetExecutablePath() -v` returns something';
19 like $v, qr/This is perl\b/, 'NSGetExecutablePath() points to a perl';
21 $v = `$path -le 'print "\$]"'`;
22 ok defined($v), q{`NSGetExecutablePath() -le 'print "$]"'` returns something};
24 is $v, "$]", 'NSGetExecutablePath() points to the same perl version';