#!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");