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