## name standard failures
## failures 12
## cut
use Test::More tests => 10;
ok($foo);
ok(!$foo);
is(1,2);
isnt(1,2);
like('foo',qr/f/);
unlike('foo',qr/f/);
cmp_ok(1,'==',2);
is_deeply('literal','literal');
is_deeply([], []);
is_deeply({}, {});
pass();
fail();
#-----------------------------------------------------------------------------
## name standard passing
## failures 0
## cut
ok($foo);
ok(!$foo);
is(1,2);
isnt(1,2);
like('foo',qr/f/);
unlike('foo',qr/f/);
cmp_ok(1,'==',2);
is_deeply('literal','literal');
is_deeply([], []);
is_deeply({}, {});
pass();
fail();
#-----------------------------------------------------------------------------
## name more passing
## failures 0
## cut
use Test::More tests => 10;
ok($foo,'label');
ok(!$foo,'label');
is(1,2,'label');
isnt(1,2,'label');
like('foo',qr/f/,'label');
unlike('foo',qr/f/,'label');
cmp_ok(1,'==',2,'label');
is_deeply('literal','literal','label');
pass('label');
fail('label');
#-----------------------------------------------------------------------------
## name empty array and hash parsing
## failures 0
## cut
is_deeply([],[],'label');
is_deeply({},{},'label');
#-----------------------------------------------------------------------------
## name exceptions
## failures 1
## parms {modules => 'Test::Foo Test::Bar'}
## cut
use Test::Bar tests => 10;
ok($foo);
#-----------------------------------------------------------------------------
## name more exceptions
## failures 0
## parms {modules => 'Test::Foo Test::Bar'}
## cut
use Test::Baz tests => 10;
ok($foo);
#-----------------------------------------------------------------------------
## name RT 24924, is_deeply
## failures 0
## cut
use Test::More;
is_deeply( { foo => 1 }, { foo => 1 }, 'Boldly criticize where nobody has criticize before.' );
is_deeply( { get_empty_array() }, {}, 'Wrap sub-call in hash constructor' );
#-----------------------------------------------------------------------------
##############################################################################
# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/TestingAndDebugging/RequireTestLabels.run $
# $Date: 2009-02-15 09:10:42 -0800 (Sun, 15 Feb 2009) $
# $Author: clonezone $
# $Revision: 3116 $
##############################################################################
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :