manakai/t/util-error-textparser.t

use strict;
use Message::Util::Error;

my $src = q{Some Parsed Text
Other Another

   Foo   Bar  
 Baz};

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;

$src =~ /Other/gc;

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

$src =~ /Another/gc;

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

$src =~ /Foo/gc;

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

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