#!perl -w
BEGIN { $| = 1;
print
"1..5\n"
; }
END {
print
"not ok 1\n"
unless
$loaded
;}
$loaded
= 1;
print
"ok 1\n"
;
my
$x
=
$MacPerl::Version
;
$x
=~ s/\s+.*$//;
if
(
$x
ge
'5.1.4r4'
&& $] >= 5.004
) {
print
"ok 2\n"
;
}
else
{
print
"not ok 2: upgrade MacPerl to 5.1.4r4 or better\n"
;
}
Mac::MoreFiles->
import
(
%Application
);
if
(
$x
=
$Application
{MPGP}
) {
print
"ok 3\n"
;
}
else
{
print
"not ok 3: MacPGP not installed\n"
;
}
my
$pgp
= new Mac::Apps::MacPGP;
my
$v
=
eval
(
'$pgp->getversion()'
);
$v
=~ /^MacPGP ([\d\.]+)/;
$v
=
'2.6.3'
;
print
($1 ge
$v
?
"ok 4\n"
:
"not ok 4 (want $v, got $1)\n"
);
print
(
eval
(
'$pgp->quitpgp()'
) ?
"ok 5\n"
:
"not ok 5\n"
);