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