CPAN::Groonga

;
use Test::More;
use t::Util;

my $tap = run_test('t/plx/iss5.plx');
exit_status_isnt(0);

my $result = parse_tap($tap);
isnt($result->passed, $result->plan, 'plan != passed tests');

done_testing;

re;
use t::Util;

my $tap = run_test('t/plx/no_test_in_subtest.plx');
exit_status_isnt(0);

my $result = parse_tap($tap);
isnt($result->passed, $result->plan, 'plan != passed tests');

done_testing;

 warnings;
use utf8;
use Test::More;
use t::Util;

my $tap = run_test('t/plx/exit.plx');
exit_status_isnt(0);

my $result = parse_tap($tap);
ok($result->has_problems, 'has problems');

done_testing;

ings;
use utf8;
use Test::More;
use t::Util;

my $tap = run_test('t/plx/bad_plan2.plx');
exit_status_isnt(0);

my $result = parse_tap($tap);
ok($result->has_problems, 'has problems');

done_testing;

nings;
use utf8;
use Test::More;
use t::Util;

my $tap = run_test('t/plx/bad_plan.plx');
exit_status_isnt(0);

my $result = parse_tap($tap);
ok($result->has_problems, 'has problems');

done_testing;