t/010_basics/016_load_into_main.t

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