The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 4;

use Bio::Medpost;

ok($r = Bio::Medpost::medpost_file('t/rawtextfile'));
is($r->[0][1], 'II');
is($r->[2][0], 'purpose');
is($r->[2][1], 'NN');