t/020_SingleInheritence_test.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Moose::Policy');
  11 }
  12
  13 {
  14     package Foo;
  15     use Moose::Policy 'Moose::Policy::SingleInheritence';
  16     use Moose;
  17
  18     package Bar;
  19     use Moose::Policy 'Moose::Policy::SingleInheritence';
  20     use Moose;
  21
  22     extends 'Foo';
  23
  24     package Baz;
  25     use Moose::Policy 'Moose::Policy::SingleInheritence';
  26     use Moose;
  27
  28     ::dies_ok {
  29         extends 'Foo', 'Bar';
  30     } '... violating the policy';
  31 }
  32