t/tags.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More 0.89;
   5 use List::Util 'first';
   6 use lib 't/lib';
   7 use A::Junk ':other';
   8
   9 ok(!main->can('junk1'), 'junk1 not exported');
  10 ok(!main->can('junk2'), 'junk2 not exported');
  11 ok(main->can('junk3'), 'junk3 exported');
  12 ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
  13
  14 done_testing;
  15