t/401_test_moose.t

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