Commit | Line | Data |
---|---|---|
845d7e37 | 1 | #!/usr/bin/perl |
2 | ||
c0888b21 | 3 | BEGIN { |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = '../lib'; | |
7 | } | |
8 | } | |
9 | ||
845d7e37 | 10 | use Test::More tests => 3; |
11 | use Test::Builder::Tester; | |
12 | ||
d1ca9ea3 | 13 | is(line_num(),13,"normal line num"); |
14 | is(line_num(-1),13,"line number minus one"); | |
15 | is(line_num(+2),17,"line number plus two"); |