t/test_moose/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 use Test::Moose;
  10
  11 {
  12     package Foo;
  13     use Moose::Role;
  14 }
  15
  16 {
  17     package Bar;
  18     use Moose;
  19
  20     with qw/Foo/;
  21 }
  22
  23 {
  24     package Baz;
  25     use Moose;
  26 }
  27
  28 # class ok
  29
  30 test_out('ok 1 - does_ok class');
  31
  32 does_ok('Bar','Foo','does_ok class');
  33
  34 # class fail
  35
  36 test_out ('not ok 2 - does_ok class fail');
  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 test_fail (+2);
  55
  56 does_ok ($baz,'Foo','does_ok object fail');
  57
  58 test_test ('does_ok');
  59
  60 done_testing;