use strict;
use warnings;

=head1 NAME

45-tester.t - testing Test::Group::Tester

=cut

use Test::More tests => 1;
use Test::Group;
use Test::Group::Tester;

testscript_ok('#line '.(__LINE__+1)."\n".<<'EOSCRIPT', 8);
use strict;
use warnings;

use Test::More;
use Test::Group;

# simple test passing
want_test('pass', 'this will pass');
ok 1, "this will pass";

# nameless test passing
want_test('pass');
ok 1;

# simple test failing
want_test('fail', 'this will fail',
    fail_diag('this will fail', 1, __LINE__+2),
);
ok 0, "this will fail";

# test group passing
want_test('pass', 'mytest');
test mytest => sub {
    ok 1, "inner";
};

# test group failing
want_test('fail', 'mytest',
    fail_diag('inner', 0, __LINE__+4),
    fail_diag('mytest', 1, __LINE__+4),
);
test mytest => sub {
    ok 0, "inner";
};

# diag exact match
want_test('pass', 'mytest', '# foo');
diag('foo');
ok 1, 'mytest';

# diag regex match
want_test('pass', 'mytest', '/f.o');
diag('foo');
ok 1, 'mytest';

# diag qr// match
want_test('pass', 'mytest', qr/f.o/);
diag('foo');
ok 1, 'mytest';

EOSCRIPT