git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/RequireTestLabels.run

   1 ## name standard failures
   2 ## failures 12
   3 ## cut
   4
   5 use Test::More tests => 10;
   6 ok($foo);
   7 ok(!$foo);
   8 is(1,2);
   9 isnt(1,2);
  10 like('foo',qr/f/);
  11 unlike('foo',qr/f/);
  12 cmp_ok(1,'==',2);
  13 is_deeply('literal','literal');
  14 is_deeply([], []);
  15 is_deeply({}, {});
  16 pass();
  17 fail();
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name standard passing
  22 ## failures 0
  23 ## cut
  24
  25 ok($foo);
  26 ok(!$foo);
  27 is(1,2);
  28 isnt(1,2);
  29 like('foo',qr/f/);
  30 unlike('foo',qr/f/);
  31 cmp_ok(1,'==',2);
  32 is_deeply('literal','literal');
  33 is_deeply([], []);
  34 is_deeply({}, {});
  35 pass();
  36 fail();
  37
  38 #-----------------------------------------------------------------------------
  39
  40 ## name more passing
  41 ## failures 0
  42 ## cut
  43
  44 use Test::More tests => 10;
  45 ok($foo,'label');
  46 ok(!$foo,'label');
  47 is(1,2,'label');
  48 isnt(1,2,'label');
  49 like('foo',qr/f/,'label');
  50 unlike('foo',qr/f/,'label');
  51 cmp_ok(1,'==',2,'label');
  52 is_deeply('literal','literal','label');
  53 pass('label');
  54 fail('label');
  55
  56 #-----------------------------------------------------------------------------
  57
  58 ## name empty array and hash parsing
  59 ## failures 0
  60 ## cut
  61 is_deeply([],[],'label');
  62 is_deeply({},{},'label');
  63
  64 #-----------------------------------------------------------------------------
  65
  66 ## name exceptions
  67 ## failures 1
  68 ## parms {modules => 'Test::Foo Test::Bar'}
  69 ## cut
  70
  71 use Test::Bar tests => 10;
  72 ok($foo);
  73
  74 #-----------------------------------------------------------------------------
  75
  76 ## name more exceptions
  77 ## failures 0
  78 ## parms {modules => 'Test::Foo Test::Bar'}
  79 ## cut
  80
  81 use Test::Baz tests => 10;
  82 ok($foo);
  83
  84 #-----------------------------------------------------------------------------
  85
  86 ## name RT 24924, is_deeply
  87 ## failures 0
  88 ## cut
  89
  90 use Test::More;
  91
  92 is_deeply( { foo => 1 }, { foo => 1 }, 'Boldly criticize where nobody has criticize before.' );
  93
  94 is_deeply( { get_empty_array() }, {}, 'Wrap sub-call in hash constructor' );