#!perl
use
Test;
plan
test
=> 2;
# my @out = `$^X -Mblib pod2rtf t/testpod.pod`;
my
@out
= `$^X pod2rtf t/testpod.pod`;
ok($!,
''
,
"Error from script"
);
open
(RTF,
"<t/testpod.rtf"
);
my
@rtf
=<RTF>;
close
(RTF);
my
$rtf
=
join
(
"\n"
,
@rtf
);
$out
=
join
(
"\n"
,
@out
);
ok((
$out
eq
$rtf
),1,
"Error in translation"
);