manakai/t/util-error-textparser.t

#!/usr/bin/perl
use strict;
use Message::Util::Error;

my $src = q{Some Parsed Text};

my $err = new Message::Util::Error::TextParser
            package => 'test_error';

report $err -type => 'ERROR_1', source => \$src;

$src =~ /Some/gc;

report $err -type => 'ERROR_1', source => \$src;

$src =~ /Any/gc;

report $err -type => 'ERROR_1', source => \$src;

$src =~ /Text/gc;

report $err -type => 'ERROR_1', source => \$src;

BEGIN {
package test_error;
require Message::Util::Error::TextParser;
push our @ISA, 'Message::Util::Error::TextParser::error';

use Test;
my @result = qw/1-1 1-5 1-5 1-17/;
my $i = 0;
plan tests => scalar @result;

sub ___report_error ($$) {
  Test::ok ($_[1]->text, $result[$i++]);
  warn $_[1]->stringify if $^W;
}

sub ___error_def () {+{
  ERROR_1 => {
    -description => q(%err-line;-%err-char;),
  },
}}
}

=head1 LICENSE

Copyright 2003-2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1; # $Date: 2003/12/26 07:09:42 $
1	#!/usr/bin/perl
2	use strict;
3	use Message::Util::Error;
4
5	my $src = q{Some Parsed Text};
6
7	my $err = new Message::Util::Error::TextParser
8	package => 'test_error';
9
10	report $err -type => 'ERROR_1', source => \$src;
11
12	$src =~ /Some/gc;
13
14	report $err -type => 'ERROR_1', source => \$src;
15
16	$src =~ /Any/gc;
17
18	report $err -type => 'ERROR_1', source => \$src;
19
20	$src =~ /Text/gc;
21
22	report $err -type => 'ERROR_1', source => \$src;
23
24	BEGIN {
25	package test_error;
26	require Message::Util::Error::TextParser;
27	push our @ISA, 'Message::Util::Error::TextParser::error';
28
29	use Test;
30	my @result = qw/1-1 1-5 1-5 1-17/;
31	my $i = 0;
32	plan tests => scalar @result;
33
34	sub ___report_error ($$) {
35	Test::ok ($_[1]->text, $result[$i++]);
36	warn $_[1]->stringify if $^W;
37	}
38
39	sub ___error_def () {+{
40	ERROR_1 => {
41	-description => q(%err-line;-%err-char;),
42	},
43	}}
44	}
45
46	=head1 LICENSE
47
48	Copyright 2003-2007 Wakaba <w@suika.fam.cx>
49
50	This program is free software; you can redistribute it and/or
51	modify it under the same terms as Perl itself.
52
53	=cut
54
55	1; # $Date: 2003/12/26 07:09:42 $