t/global_underscore.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use lib qw(t/lib);
   5
   6 use_ok('UnderscoreClass');
   7
   8 is(
   9   UnderscoreClass->c1,
  10   'c1',
  11 );
  12
  13 is(
  14   UnderscoreClass->r1,
  15   'r1',
  16 );
  17
  18 is(
  19   ClobberUnderscore::h1(),
  20   'h1',
  21 );
  22
  23 done_testing;