t/400_test_moose.t

   1 use Test::Builder::Tester tests => 1;
   2 use Test::Moose;
   3
   4 use strict;
   5 use warnings;
   6
   7 {
   8   package Foo;
   9
  10   use Moose::Role;
  11 }
  12
  13 {
  14   package Bar;
  15
  16   use Moose;
  17
  18   with qw/Foo/;
  19 }
  20
  21 {
  22   package Baz;
  23
  24   use Moose;
  25 }
  26
  27 # class ok
  28
  29 test_out('ok 1 - does_ok class');
  30
  31 does_ok('Bar','Foo','does_ok class');
  32
  33 # class fail
  34
  35 test_out ('not ok 2 - does_ok class fail');
  36
  37 test_fail (+2);
  38
  39 does_ok('Baz','Foo','does_ok class fail');
  40
  41 # object ok
  42
  43 my $bar = Bar->new;
  44
  45 test_out ('ok 3 - does_ok object');
  46
  47 does_ok ($bar,'Foo','does_ok object');
  48
  49 # object fail
  50
  51 my $baz = Baz->new;
  52
  53 test_out ('not ok 4 - does_ok object fail');
  54
  55 test_fail (+2);
  56
  57 does_ok ($baz,'Foo','does_ok object fail');
  58
  59 test_test ('does_ok');
  60