1#!perl
2
3use strict;
4use warnings;
5
6use Test::More;
7use FindBin qw/$Bin $Script/;
8
9plan tests => 1;
10
11use CGI::Carp;
12
13chdir( $Bin );
14
15open( my $fh,"<","$Script" )
16    || die "Can't open $Script for read: $!";
17
18while ( <$fh> ) {
19    eval { die("error") if /error/; };
20    $@ && do {
21        like( $@,qr!at \Q$0\E line 19!,'die with input line number' );
22        last;
23    }
24}
25close( $fh );
26