t/test_moose/test_moose_meta_ok.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::Builder::Tester;
   7 use Test::More;
   8
   9 use Test::Moose;
  10
  11 {
  12     package Foo;
  13     use Moose;
  14 }
  15
  16 {
  17     package Bar;
  18 }
  19
  20 test_out('ok 1 - ... meta_ok(Foo) passes');
  21
  22 meta_ok('Foo', '... meta_ok(Foo) passes');
  23
  24 test_out ('not ok 2 - ... meta_ok(Bar) fails');
  25 test_fail (+2);
  26
  27 meta_ok('Bar', '... meta_ok(Bar) fails');
  28
  29 test_test ('meta_ok');
  30
  31 done_testing;