PATH:
usr
/
share
/
doc
/
perl-Test-Simple-0.98
/
t
/
Tester
#!/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");
[-] tbt_07args.t
[edit]
[-] tbt_01basic.t
[edit]
[+]
..
[-] tbt_02fhrestore.t
[edit]
[-] tbt_06errormess.t
[edit]
[-] tbt_05faildiag.t
[edit]
[-] tbt_03die.t
[edit]
[-] tbt_04line_num.t
[edit]