/[suikacvs]/messaging/manakai/t/DOM-Node.t
Suika

Diff of /messaging/manakai/t/DOM-Node.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by wakaba, Thu Jul 12 13:54:47 2007 UTC revision 1.15 by wakaba, Sat Jul 14 06:12:56 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  use strict;  use strict;
3  use Test;  use Test;
4  BEGIN { plan tests => 4429 }  BEGIN { plan tests => 4451 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 94  my $tests = { Line 94  my $tests = {
94      attr_get_bool => {      attr_get_bool => {
95        has_attributes => 0,        has_attributes => 0,
96        has_child_nodes => 0,        has_child_nodes => 0,
97          is_id => 0,
98        manakai_read_only => 0,        manakai_read_only => 0,
99        specified => 1,        specified => 1,
100      },      },
# Line 126  my $tests = { Line 127  my $tests = {
127      attr_get_bool => {      attr_get_bool => {
128        has_attributes => 0,        has_attributes => 0,
129        has_child_nodes => 1,        has_child_nodes => 1,
130          is_id => 0,
131        manakai_read_only => 0,        manakai_read_only => 0,
132        specified => 1,        specified => 1,
133      },      },
# Line 153  my $tests = { Line 155  my $tests = {
155      attr_get_bool => {      attr_get_bool => {
156        has_attributes => 0,        has_attributes => 0,
157        has_child_nodes => 0,        has_child_nodes => 0,
158          is_id => 0,
159        manakai_read_only => 0,        manakai_read_only => 0,
160        specified => 1,        specified => 1,
161      },      },
# Line 180  my $tests = { Line 183  my $tests = {
183      attr_get_bool => {      attr_get_bool => {
184        has_attributes => 0,        has_attributes => 0,
185        has_child_nodes => 0,        has_child_nodes => 0,
186          is_id => 0,
187        manakai_read_only => 0,        manakai_read_only => 0,
188        specified => 1,        specified => 1,
189      },      },
# Line 207  my $tests = { Line 211  my $tests = {
211      attr_get_bool => {      attr_get_bool => {
212        has_attributes => 0,        has_attributes => 0,
213        has_child_nodes => 0,        has_child_nodes => 0,
214          is_id => 0,
215        manakai_read_only => 0,        manakai_read_only => 0,
216        specified => 1,        specified => 1,
217      },      },
# Line 1251  for my $i (0..1) { Line 1256  for my $i (0..1) {
1256             ]->[$i];             ]->[$i];
1257    
1258    my $doc2 = $doc->implementation->create_document;    my $doc2 = $doc->implementation->create_document;
1259      $doc2->strict_error_checking (0);
1260        
1261    my $el = $doc2->create_element_ns (undef, 'el');    my $el = $doc2->create_element_ns (undef, 'el');
1262    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24  
Google Analytics is used in this page; Cookies are used. 忍者AdMax is used in this page; Cookies are used. Privacy policy.