t/038-main.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5
   6 BEGIN {
   7     eval "use Test::Output;";
   8     plan skip_all => "Test::Output is required for this test" if $@;
   9     plan tests => 2;
  10 }
  11
  12 stderr_is(
  13     sub { package main; eval 'use Mouse' },
  14     "Mouse does not export its sugar to the 'main' package.\n",
  15     'Mouse warns when loaded from the main package',
  16 );
  17
  18 stderr_is(
  19     sub { package main; eval 'use Mouse::Role' },
  20     "Mouse::Role does not export its sugar to the 'main' package.\n",
  21     'Mouse::Role warns when loaded from the main package',
  22 );
  23