git.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/examples/t/10-stuff.t

   1 #!/usr/bin/perl -wT
   2 use strict;
   3
   4 use Test::More qw/no_plan/;
   5
   6 ok 1, 'this test passes';
   7 is_deeply [2], [3], 'this is_deeply test fails';
   8 SKIP: {
   9     skip 'testing skip', 2 if 1;
  10     ok 1;
  11     ok 1;
  12 }
  13 TODO: {
  14     local $TODO = 'this is a TODO test';
  15     ok 0, 'This should succeed';
  16     ok 1, 'This should fail';
  17 }