[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / Tester / tbt_04line_num.t

#!/usr/bin/perl

use Test::More tests => 3;
use Test::Builder::Tester;

is(line_num(),6,"normal line num");
is(line_num(-1),6,"line number minus one");
is(line_num(+2),10,"line number plus two");
Commit	Line	Data
ccbd73a4	1	#!/usr/bin/perl
ccbd73a4	2
	3	use Test::More tests => 3;
	4	use Test::Builder::Tester;
	5
3e887aae	6	is(line_num(),6,"normal line num");
	7	is(line_num(-1),6,"line number minus one");
	8	is(line_num(+2),10,"line number plus two");