t/020_SingleInheritence_test.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     require Moose;
  11
  12     plan skip_all => 'Moose::Policy does not work with recent versions of Moose'
  13         if Moose->VERSION >= 1.05;
  14
  15     plan tests => 2;
  16
  17     use_ok('Moose::Policy');
  18 }
  19
  20 {
  21     package Foo;
  22     use Moose::Policy 'Moose::Policy::SingleInheritence';
  23     use Moose;
  24
  25     package Bar;
  26     use Moose::Policy 'Moose::Policy::SingleInheritence';
  27     use Moose;
  28
  29     extends 'Foo';
  30
  31     package Baz;
  32     use Moose::Policy 'Moose::Policy::SingleInheritence';
  33     use Moose;
  34
  35     ::dies_ok {
  36         extends 'Foo', 'Bar';
  37     } '... violating the policy';
  38 }
  39