1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4;
use Parse::ErrorString::Perl;
use File::Spec;
my $parser = Parse::ErrorString::Perl->new;
my $path_script = File::Spec->catfile( $INC[0], 'error.pl' );
my $msg_short_script = 'Use of uninitialized value $empty in length at ' . $path_script . ' line 6.';
my @errors_short_script = $parser->parse_string($msg_short_script);
is( scalar(@errors_short_script), 1, 'msg_short_script results' );
is( $errors_short_script[0]->file, 'error.pl', 'msg_short_script short path' );
our @INC;
my $path_module = File::Spec->catfile( $INC[0], 'Error.pm' );
my $msg_short_module = 'Use of uninitialized value $empty in length at ' . $path_module . ' line 6.';
my @errors_short_module = $parser->parse_string($msg_short_module);
is( scalar(@errors_short_module), 1, 'msg_short_module results' );
is( $errors_short_module[0]->file, 'Error.pm', 'msg_short_module short path' );
|
