manakai/t/DOM-CharacterData.t

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

require Message::DOM::DOMImplementation;
use Message::Util::Error;

my $dom = Message::DOM::DOMImplementation->____new;
my $doc = $dom->create_document;
    
for my $node (
              $doc->create_text_node ('initial value'),
              $doc->create_comment ('initial value'),
              $doc->create_cdata_section ('initial value'),
             ) {
  ok $node->node_value, 'initial value', $node->node_name . '->node_value get';
  ok $node->text_content, 'initial value', $node->node_name . '->tc get';
  ok $node->data, 'initial value', $node->node_name . '->data get';
  
  $node->manakai_set_read_only (0);

  $node->node_value ('value1');
  
  ok $node->node_value, 'value1', $node->node_name . '->node_value nv.set';
  ok $node->text_content, 'value1', $node->node_name . '->text_content nv.set';
  ok $node->data, 'value1', $node->node_name . '->data nv.set';

  $node->node_value ('');
  
  ok $node->node_value, '', $node->node_name . '->node_value nv.empty';
  ok $node->text_content, '', $node->node_name . '->text_content nv.empty';
  ok $node->data, '', $node->node_name . '->data nv.empty';

  $node->text_content ('value3');

  ok $node->node_value, 'value3', $node->node_name . '->node_value tc.set';
  ok $node->text_content, 'value3', $node->node_name . '->text_content tc.set';
  ok $node->data, 'value3', $node->node_name . '->data tc.set';

  $node->text_content ('');

  ok $node->node_value, '', $node->node_name . '->node_value tc.empty';
  ok $node->text_content, '', $node->node_name . '->text_content tc.empty';
  ok $node->data, '', $node->node_name . '->data tc.empty';

  $node->text_content ('value4');
  $node->text_content (undef);

  ok $node->node_value, '', $node->node_name . '->node_value tc.undef';
  ok $node->text_content, '', $node->node_name . '->text_content tc.undef';
  ok $node->data, '', $node->node_name . '->data tc.undef';

  $node->data ('value2');

  ok $node->node_value, 'value2', $node->node_name . '->node_value d.set';
  ok $node->text_content, 'value2', $node->node_name . '->text_content d.set';
  ok $node->data, 'value2', $node->node_name . '->data d.set';

  $node->data ('');

  ok $node->node_value, '', $node->node_name . '->node_value d.empty';
  ok $node->text_content, '', $node->node_name . '->text_content d.empty';
  ok $node->data, '', $node->node_name . '->data d.empty';

  $node->manakai_set_read_only (1);

  try {
    $node->node_value ('value1');
  } catch Message::DOM::DOMException with {
    ok shift->type, 'NO_MODIFICATION_ALLOWED_ERR', $node->node_name . '->nv.ro';
  };

  try {
    $node->text_content ('value1');
  } catch Message::DOM::DOMException with {
    ok shift->type, 'NO_MODIFICATION_ALLOWED_ERR', $node->node_name . '->tc.ro';
  };

  try {
    $node->data ('value1');
  } catch Message::DOM::DOMException with {
    ok shift->type, 'NO_MODIFICATION_ALLOWED_ERR', $node->node_name . '->d.ro';
  };
}

## |length|
{
  my $text = $doc->create_text_node ('');
  for my $testdata (
                    # id, data, length
                    ['empty', '', 0],
                    ['small.a', 'a', 1],
                    ['han.4e00', "\x{4E00}", 1],
                    ['a-z', 'abcdefghijklmnopqrstuvwxyz', 26],
                    ['U+10000', "\x{10000}", 2],
                    ['aU+10000', "a\x{10000}", 3],
                    ['U+10000U+11111', "\x{10000}\x{11111}", 4],
                   ) {
    $text->data ($testdata->[1]);
    ok $text->length, $testdata->[2], $testdata->[0] . '->length';
  }

  $text->data ('');
  ok $text->substring_data (0, 0), '', "substring_data [1]";
  ok $text->substring_data (0, 1), '', "substring_data [2]";

  $text->data ('abcdefg');
  ok $text->substring_data (0, 0), '', "substring_data [1]";
  ok $text->substring_data (0, 1), 'a', "substring_data [2]";
  ok $text->substring_data (5, 1), 'f', "substring_data [3]";
  ok $text->substring_data (5, 2), 'fg', "substring_data [4]";
  
  $text->data ('');
  $text->append_data ('');
  ok $text->data, '', "append_data [1]";

  $text->append_data ('a');
  ok $text->data, 'a', "append_data [2]";

  $text->append_data ('abc');
  ok $text->data, 'aabc', "append_data [3]";

  $text->data ('');

  try {
    $text->insert_data (1, 'abc');
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'insert_data [1]';
  };

  try {
    $text->insert_data (-1, 'abc');
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'insert_data [2]';
  };

  $text->insert_data (0, 'abc');
  ok $text->data, 'abc', 'insert_data [3]';

  $text->insert_data (3, 'abc');
  ok $text->data, 'abcabc', 'insert_data [4]';

  $text->insert_data (1, 'abc');
  ok $text->data, 'aabcbcabc', 'insert_data [5]';
 
  $text->data ('');
 
  $text->insert_data (0, "\x{10000}");
  ok $text->data, "\x{10000}", "insert_data [6]";

  $text->insert_data (2, "\x{10001}");
  ok $text->data, "\x{10000}\x{10001}", "insert_data [7]";

  $text->insert_data (2, 'a');
  ok $text->data, "\x{10000}a\x{10001}", "insert_data [8]";

  $text->data ('');

  $text->delete_data (0, 0);
  ok $text->data, '', 'delete_data [1]';

  $text->delete_data (0, 10);
  ok $text->data, '', 'delete_data [2]';

  try {
    $text->delete_data (-1, 0);
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [3]';
  };

  try {
    $text->delete_data (1, 0);
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [4]';
  };

  try {
    $text->delete_data (0, -10);
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [5]';
  };

  $text->append_data ('abcdefg');

  $text->delete_data (0, 0);
  ok $text->data, 'abcdefg', 'delete_data [6]';

  $text->delete_data (0, 2);
  ok $text->data, 'cdefg', 'delete_data [7]';

  try {
    $text->delete_data (-1, 0);
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [8]';
  };

  try {
    $text->delete_data (20, 0);
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [9]';
  };

  try {
    $text->delete_data (0, -10);
  } catch Message::DOM::DOMException with {
    ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [10]';
  };

  $text->delete_data (2, 12);
  ok $text->data, 'cd', 'delete_data [11]';

  $text->delete_data (0, 2);
  ok $text->data, '', 'delete_data [12]';

  $text->data ("ab\x{10000}cdefg");

  $text->delete_data (0, 4);
  ok $text->data, 'cdefg', 'delete_data [13]';

  $text->data ("ab\x{10000}cdefg");

  $text->delete_data (4, 2);
  ok $text->data, "ab\x{10000}efg", 'delete_data [14]';

  $text->data ('abcdefg');
  $text->replace_data (0, 2, 'ABCD');
  ok $text->data, 'ABCDcdefg', 'replace_data [1]';

  $text->replace_data (3, 32, "\x{3000}\x{4E00}");
  ok $text->data, "ABC\x{3000}\x{4E00}", 'replace_data [2]';
}

=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 => 121 }
5
6			require Message::DOM::DOMImplementation;
7			use Message::Util::Error;
8
9			my $dom = Message::DOM::DOMImplementation->____new;
10			my $doc = $dom->create_document;
11
12			for my $node (
13			$doc->create_text_node ('initial value'),
14			$doc->create_comment ('initial value'),
15			$doc->create_cdata_section ('initial value'),
16			) {
17			ok $node->node_value, 'initial value', $node->node_name . '->node_value get';
18			ok $node->text_content, 'initial value', $node->node_name . '->tc get';
19			ok $node->data, 'initial value', $node->node_name . '->data get';
20
21			$node->manakai_set_read_only (0);
22
23			$node->node_value ('value1');
24
25			ok $node->node_value, 'value1', $node->node_name . '->node_value nv.set';
26			ok $node->text_content, 'value1', $node->node_name . '->text_content nv.set';
27			ok $node->data, 'value1', $node->node_name . '->data nv.set';
28
29			$node->node_value ('');
30
31			ok $node->node_value, '', $node->node_name . '->node_value nv.empty';
32			ok $node->text_content, '', $node->node_name . '->text_content nv.empty';
33			ok $node->data, '', $node->node_name . '->data nv.empty';
34
35			$node->text_content ('value3');
36
37			ok $node->node_value, 'value3', $node->node_name . '->node_value tc.set';
38			ok $node->text_content, 'value3', $node->node_name . '->text_content tc.set';
39			ok $node->data, 'value3', $node->node_name . '->data tc.set';
40
41			$node->text_content ('');
42
43			ok $node->node_value, '', $node->node_name . '->node_value tc.empty';
44			ok $node->text_content, '', $node->node_name . '->text_content tc.empty';
45			ok $node->data, '', $node->node_name . '->data tc.empty';
46
47			$node->text_content ('value4');
48			$node->text_content (undef);
49
50			ok $node->node_value, '', $node->node_name . '->node_value tc.undef';
51			ok $node->text_content, '', $node->node_name . '->text_content tc.undef';
52			ok $node->data, '', $node->node_name . '->data tc.undef';
53
54			$node->data ('value2');
55
56			ok $node->node_value, 'value2', $node->node_name . '->node_value d.set';
57			ok $node->text_content, 'value2', $node->node_name . '->text_content d.set';
58			ok $node->data, 'value2', $node->node_name . '->data d.set';
59
60			$node->data ('');
61
62			ok $node->node_value, '', $node->node_name . '->node_value d.empty';
63			ok $node->text_content, '', $node->node_name . '->text_content d.empty';
64			ok $node->data, '', $node->node_name . '->data d.empty';
65
66			$node->manakai_set_read_only (1);
67
68			try {
69			$node->node_value ('value1');
70			} catch Message::DOM::DOMException with {
71			ok shift->type, 'NO_MODIFICATION_ALLOWED_ERR', $node->node_name . '->nv.ro';
72			};
73
74			try {
75			$node->text_content ('value1');
76			} catch Message::DOM::DOMException with {
77			ok shift->type, 'NO_MODIFICATION_ALLOWED_ERR', $node->node_name . '->tc.ro';
78			};
79
80			try {
81			$node->data ('value1');
82			} catch Message::DOM::DOMException with {
83			ok shift->type, 'NO_MODIFICATION_ALLOWED_ERR', $node->node_name . '->d.ro';
84			};
85			}
86
87			## \|length\|
88			{
89			my $text = $doc->create_text_node ('');
90			for my $testdata (
91			# id, data, length
92			['empty', '', 0],
93			['small.a', 'a', 1],
94			['han.4e00', "\x{4E00}", 1],
95			['a-z', 'abcdefghijklmnopqrstuvwxyz', 26],
96			['U+10000', "\x{10000}", 2],
97			['aU+10000', "a\x{10000}", 3],
98			['U+10000U+11111', "\x{10000}\x{11111}", 4],
99			) {
100			$text->data ($testdata->[1]);
101			ok $text->length, $testdata->[2], $testdata->[0] . '->length';
102			}
103
104			$text->data ('');
105			ok $text->substring_data (0, 0), '', "substring_data [1]";
106			ok $text->substring_data (0, 1), '', "substring_data [2]";
107
108			$text->data ('abcdefg');
109			ok $text->substring_data (0, 0), '', "substring_data [1]";
110			ok $text->substring_data (0, 1), 'a', "substring_data [2]";
111			ok $text->substring_data (5, 1), 'f', "substring_data [3]";
112			ok $text->substring_data (5, 2), 'fg', "substring_data [4]";
113
114			$text->data ('');
115			$text->append_data ('');
116			ok $text->data, '', "append_data [1]";
117
118			$text->append_data ('a');
119			ok $text->data, 'a', "append_data [2]";
120
121			$text->append_data ('abc');
122			ok $text->data, 'aabc', "append_data [3]";
123
124			$text->data ('');
125
126			try {
127			$text->insert_data (1, 'abc');
128			} catch Message::DOM::DOMException with {
129			ok shift->type, 'INDEX_SIZE_ERR', 'insert_data [1]';
130			};
131
132			try {
133			$text->insert_data (-1, 'abc');
134			} catch Message::DOM::DOMException with {
135			ok shift->type, 'INDEX_SIZE_ERR', 'insert_data [2]';
136			};
137
138			$text->insert_data (0, 'abc');
139			ok $text->data, 'abc', 'insert_data [3]';
140
141			$text->insert_data (3, 'abc');
142			ok $text->data, 'abcabc', 'insert_data [4]';
143
144			$text->insert_data (1, 'abc');
145			ok $text->data, 'aabcbcabc', 'insert_data [5]';
146
147			$text->data ('');
148
149			$text->insert_data (0, "\x{10000}");
150			ok $text->data, "\x{10000}", "insert_data [6]";
151
152			$text->insert_data (2, "\x{10001}");
153			ok $text->data, "\x{10000}\x{10001}", "insert_data [7]";
154
155			$text->insert_data (2, 'a');
156			ok $text->data, "\x{10000}a\x{10001}", "insert_data [8]";
157
158			$text->data ('');
159
160			$text->delete_data (0, 0);
161			ok $text->data, '', 'delete_data [1]';
162
163			$text->delete_data (0, 10);
164			ok $text->data, '', 'delete_data [2]';
165
166			try {
167			$text->delete_data (-1, 0);
168			} catch Message::DOM::DOMException with {
169			ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [3]';
170			};
171
172			try {
173			$text->delete_data (1, 0);
174			} catch Message::DOM::DOMException with {
175			ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [4]';
176			};
177
178			try {
179			$text->delete_data (0, -10);
180			} catch Message::DOM::DOMException with {
181			ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [5]';
182			};
183
184			$text->append_data ('abcdefg');
185
186			$text->delete_data (0, 0);
187			ok $text->data, 'abcdefg', 'delete_data [6]';
188
189			$text->delete_data (0, 2);
190			ok $text->data, 'cdefg', 'delete_data [7]';
191
192			try {
193			$text->delete_data (-1, 0);
194			} catch Message::DOM::DOMException with {
195			ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [8]';
196			};
197
198			try {
199			$text->delete_data (20, 0);
200			} catch Message::DOM::DOMException with {
201			ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [9]';
202			};
203
204			try {
205			$text->delete_data (0, -10);
206			} catch Message::DOM::DOMException with {
207			ok shift->type, 'INDEX_SIZE_ERR', 'delete_data [10]';
208			};
209
210			$text->delete_data (2, 12);
211			ok $text->data, 'cd', 'delete_data [11]';
212
213			$text->delete_data (0, 2);
214			ok $text->data, '', 'delete_data [12]';
215
216			$text->data ("ab\x{10000}cdefg");
217
218			$text->delete_data (0, 4);
219			ok $text->data, 'cdefg', 'delete_data [13]';
220
221			$text->data ("ab\x{10000}cdefg");
222
223			$text->delete_data (4, 2);
224			ok $text->data, "ab\x{10000}efg", 'delete_data [14]';
225
226			$text->data ('abcdefg');
227			$text->replace_data (0, 2, 'ABCD');
228			ok $text->data, 'ABCDcdefg', 'replace_data [1]';
229
230			$text->replace_data (3, 32, "\x{3000}\x{4E00}");
231			ok $text->data, "ABC\x{3000}\x{4E00}", 'replace_data [2]';
232			}
233
234			=head1 LICENSE
235
236			Copyright 2007 Wakaba <w@suika.fam.cx>
237
238			This program is free software; you can redistribute it and/or
239			modify it under the same terms as Perl itself.
240
241			=cut
242
243			## $Date: 2007/06/17 13:37:42 $