[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / 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
845d7e37	1	#!/usr/bin/perl
	2
	3	use Test::More tests => 3;
	4	use Test::Builder::Tester;
	5
004caa16	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");