t/500_test_moose/002_test_moose_does_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::Role;
  16 }
  17
  18 {
  19     package Bar;
  20     use Moose;
  21
  22     with qw/Foo/;
  23 }
  24
  25 {
  26     package Baz;
  27     use Moose;
  28 }
  29
  30 # class ok
  31
  32 test_out('ok 1 - does_ok class');
  33
  34 does_ok('Bar','Foo','does_ok class');
  35
  36 # class fail
  37
  38 test_out ('not ok 2 - does_ok class fail');
  39 test_fail (+2);
  40
  41 does_ok('Baz','Foo','does_ok class fail');
  42
  43 # object ok
  44
  45 my $bar = Bar->new;
  46
  47 test_out ('ok 3 - does_ok object');
  48
  49 does_ok ($bar,'Foo','does_ok object');
  50
  51 # object fail
  52
  53 my $baz = Baz->new;
  54
  55 test_out ('not ok 4 - does_ok object fail');
  56 test_fail (+2);
  57
  58 does_ok ($baz,'Foo','does_ok object fail');
  59
  60 test_test ('does_ok');
  61
  62 done_testing;