manakai/t/DOM-StringExtended.t

#!/usr/bin/perl
use strict;
use Test;
BEGIN { plan tests => 48 } 

use Message::DOM::StringExtended qw/find_offset16 find_offset32/;
use Message::Util::Error;

{
  my @data = (
              '', # 0
              'a', # 1
              'AbEdwerErsArw', # 2
              "A\x{10000}BC", # 3
              "\x{12001}", # 4
             );

  for my $testdata (
                    # data, 32, 16
                    [0, 0, 0],
                    [0, 1],
                    [0, 2],
                    [0, -1],
                    [0, -2],
                    [1, 0, 0],
                    [1, 1, 1],
                    [1, 2],
                    [1, -1],
                    [1, -2],
                    [2, 0, 0],
                    [2, 1, 1],
                    [2, 13, 13],
                    [2, 14],
                    [3, 0, 0],
                    [3, 1, 1],
                    [3, 2, 3],
                    [3, 3, 4],
                    [3, 4, 5],
                    [3, 5],
                    [4, 0, 0],
                    [4, 1, 2],
                    [4, 2],
                   ) {
    my $label = $testdata->[0] . '.' . $testdata->[1];
    if (defined $testdata->[2]) {
      my $return = find_offset16 $data[$testdata->[0]], $testdata->[1];
      ok $return, $testdata->[2], "find_offset16 $label";
    } else {
      try {
        find_offset16 $data[$testdata->[0]], $testdata->[1];
      } catch Error::Simple with {
        my $err = shift;
        ok $err->text, "String index out of bounds\n", "find_offset16 $label";
      };
    }
  }
}

{
  my @data = (
              '', # 0
              'a', # 1
              'AbEdwerErsArw', # 2
              "A\x{10000}BC", # 3
              "\x{12001}", # 4
             );
  
  for my $testdata (
                    # data, 16, 32
                    [0, 0, 0],
                    [0, 1],
                    [0, 2],
                    [0, -1],
                    [0, -2],
                    [1, 0, 0],
                    [1, 1, 1],
                    [1, 2],
                    [1, -1],
                    [1, -2],
                    [2, 0, 0],
                    [2, 1, 1],
                    [2, 13, 13],
                    [2, 14],
                    [3, 0, 0],
                    [3, 1, 1],
                    [3, 2, 2],
                    [3, 3, 2],
                    [3, 4, 3],
                    [3, 5, 4],
                    [3, 6],
                    [4, 0, 0],
                    [4, 1, 1],
                    [4, 2, 1],
                    [4, 3],
                   ) {
    my $label = $testdata->[0] . '.' . $testdata->[1];
    if (defined $testdata->[2]) {
      my $return = find_offset32 $data[$testdata->[0]], $testdata->[1];
      ok $return, $testdata->[2], "find_offset32 $label";
    } else {
      try {
        find_offset32 $data[$testdata->[0]], $testdata->[1];
      } catch Error::Simple with {
        my $err = shift;
        ok $err->text, "String index out of bounds\n", "find_offset32 $label";
      };
    }
  }
}

=head1 LICENSE

Copyright 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

## $Date: 2007/06/17 13:37:42 $
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use Test;
4			BEGIN { plan tests => 48 }
5
6			use Message::DOM::StringExtended qw/find_offset16 find_offset32/;
7			use Message::Util::Error;
8
9			{
10			my @data = (
11			'', # 0
12			'a', # 1
13			'AbEdwerErsArw', # 2
14			"A\x{10000}BC", # 3
15			"\x{12001}", # 4
16			);
17
18			for my $testdata (
19			# data, 32, 16
20			[0, 0, 0],
21			[0, 1],
22			[0, 2],
23			[0, -1],
24			[0, -2],
25			[1, 0, 0],
26			[1, 1, 1],
27			[1, 2],
28			[1, -1],
29			[1, -2],
30			[2, 0, 0],
31			[2, 1, 1],
32			[2, 13, 13],
33			[2, 14],
34			[3, 0, 0],
35			[3, 1, 1],
36			[3, 2, 3],
37			[3, 3, 4],
38			[3, 4, 5],
39			[3, 5],
40			[4, 0, 0],
41			[4, 1, 2],
42			[4, 2],
43			) {
44			my $label = $testdata->[0] . '.' . $testdata->[1];
45			if (defined $testdata->[2]) {
46			my $return = find_offset16 $data[$testdata->[0]], $testdata->[1];
47			ok $return, $testdata->[2], "find_offset16 $label";
48			} else {
49			try {
50			find_offset16 $data[$testdata->[0]], $testdata->[1];
51			} catch Error::Simple with {
52			my $err = shift;
53			ok $err->text, "String index out of bounds\n", "find_offset16 $label";
54			};
55			}
56			}
57			}
58
59			{
60			my @data = (
61			'', # 0
62			'a', # 1
63			'AbEdwerErsArw', # 2
64			"A\x{10000}BC", # 3
65			"\x{12001}", # 4
66			);
67
68			for my $testdata (
69			# data, 16, 32
70			[0, 0, 0],
71			[0, 1],
72			[0, 2],
73			[0, -1],
74			[0, -2],
75			[1, 0, 0],
76			[1, 1, 1],
77			[1, 2],
78			[1, -1],
79			[1, -2],
80			[2, 0, 0],
81			[2, 1, 1],
82			[2, 13, 13],
83			[2, 14],
84			[3, 0, 0],
85			[3, 1, 1],
86			[3, 2, 2],
87			[3, 3, 2],
88			[3, 4, 3],
89			[3, 5, 4],
90			[3, 6],
91			[4, 0, 0],
92			[4, 1, 1],
93			[4, 2, 1],
94			[4, 3],
95			) {
96			my $label = $testdata->[0] . '.' . $testdata->[1];
97			if (defined $testdata->[2]) {
98			my $return = find_offset32 $data[$testdata->[0]], $testdata->[1];
99			ok $return, $testdata->[2], "find_offset32 $label";
100			} else {
101			try {
102			find_offset32 $data[$testdata->[0]], $testdata->[1];
103			} catch Error::Simple with {
104			my $err = shift;
105			ok $err->text, "String index out of bounds\n", "find_offset32 $label";
106			};
107			}
108			}
109			}
110
111			=head1 LICENSE
112
113			Copyright 2007 Wakaba <w@suika.fam.cx>
114
115			This program is free software; you can redistribute it and/or
116			modify it under the same terms as Perl itself.
117
118			=cut
119
120			## $Date: 2007/06/17 13:37:42 $