t/500_test_moose/004_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 BEGIN {
  10   use_ok('Test::Moose');
  11 }
  12
  13 {
  14     package Foo;
  15     use Moose;
  16 }
  17
  18 {
  19     package Bar;
  20 }
  21
  22 test_out('ok 1 - ... meta_ok(Foo) passes');
  23
  24 meta_ok('Foo', '... meta_ok(Foo) passes');
  25
  26 test_out ('not ok 2 - ... meta_ok(Bar) fails');
  27 test_fail (+2);
  28
  29 meta_ok('Bar', '... meta_ok(Bar) fails');
  30
  31 test_test ('meta_ok');
  32
  33 done_testing;