silly_test.t

   1 use Test::More tests => 120;
   2
   3 use strict;
   4 use warnings;
   5
   6 use ok 'Test::Exception';
   7 SKIP: {
   8     skip('too lazy to fix', 1);
   9     ok(0);
  10 }
  11
  12 for (1 .. 100) {
  13     ok(1, "$_ is ok");
  14 }
  15
  16 TODO: {
  17     local $TODO = 'hi';
  18     ok(0, 'nope');
  19     ok(0, 'nope');
  20     ok(0, 'nope');
  21 }
  22
  23 ok(1, 'yep');
  24 ok(1, 'yep');
  25 ok(1, 'yep');
  26 ok(1, 'yep');
  27
  28 ok(0, 'nope');
  29 ok(0, 'nope');
  30 ok(0, 'nope');
  31 ok(0, 'nope');
  32 ok(0, 'nope');
  33
  34 ok(1, 'yep');
  35