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

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

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

revision 1.2 by wakaba, Sun Jun 17 13:37:42 2007 UTC revision 1.3 by wakaba, Sat Jun 23 12:47:13 2007 UTC
# Line 180  for my $prop (qw/all_declarations_proces Line 180  for my $prop (qw/all_declarations_proces
180    ok $doc->$prop ? 1 : 0, 0, $prop . ' undef';    ok $doc->$prop ? 1 : 0, 0, $prop . ' undef';
181  }  }
182    
183    ## |manakaiIsHTML|, |compatMode|, and |manakaiCompatMode|
184    {
185      my $doc2 = $doc->implementation->create_document;
186      ok $doc2->can ('manakai_is_html') ? 1 : 0, 1, "can manakai_is_html";
187      ok $doc2->can ('compat_mode') ? 1 : 0, 1, "can compat_mode";
188      ok $doc2->can ('manakai_compat_mode') ? 1 : 0, 1, "can manakai_compat_mode";
189      ok $doc2->manakai_is_html ? 1 : 0, 0, "manakai_is_html [0]";
190      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [0]';
191      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [0]';
192    
193      $doc2->manakai_compat_mode ('quirks');
194      ok $doc2->manakai_is_html ? 1 : 0, 0, "manakai_is_html [1]";
195      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [1]';
196      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [1]';
197    
198      $doc2->manakai_compat_mode ('limited quirks');
199      ok $doc2->manakai_is_html ? 1 : 0, 0, "manakai_is_html [2]";
200      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [2]';
201      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [2]';
202    
203      $doc2->manakai_compat_mode ('no quirks');
204      ok $doc2->manakai_is_html ? 1 : 0, 0, "manakai_is_html [3]";
205      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [3]';
206      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [3]';
207    
208      $doc2->manakai_compat_mode ('bogus');
209      ok $doc2->manakai_is_html ? 1 : 0, 0, "manakai_is_html [4]";
210      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [4]';
211      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [4]';
212    
213      $doc2->manakai_is_html (1);
214      ok $doc2->manakai_is_html ? 1 : 0, 1, "manakai_is_html [5]";
215      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [5]';
216      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [5]';
217    
218      $doc2->manakai_compat_mode ('quirks');
219      ok $doc2->manakai_is_html ? 1 : 0, 1, "manakai_is_html [6]";
220      ok $doc2->compat_mode, 'BackCompat', 'compat_mode [6]';
221      ok $doc2->manakai_compat_mode, 'quirks', 'manakai_compat_mode [6]';
222    
223      $doc2->manakai_compat_mode ('limited quirks');
224      ok $doc2->manakai_is_html ? 1 : 0, 1, "manakai_is_html [7]";
225      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [7]';
226      ok $doc2->manakai_compat_mode, 'limited quirks', 'manakai_compat_mode [7]';
227    
228      $doc2->manakai_compat_mode ('no quirks');
229      ok $doc2->manakai_is_html ? 1 : 0, 1, "manakai_is_html [8]";
230      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [8]';
231      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [8]';
232    
233      $doc2->manakai_compat_mode ('bogus');
234      ok $doc2->manakai_is_html ? 1 : 0, 1, "manakai_is_html [9]";
235      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [9]';
236      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [9]';
237    
238      $doc2->manakai_compat_mode ('quirks');
239      $doc2->manakai_is_html (0);
240      ok $doc2->manakai_is_html ? 1 : 0, 0, "manakai_is_html [10]";
241      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [10]';
242      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [10]';
243    
244      $doc2->manakai_is_html (1);
245      ok $doc2->manakai_is_html ? 1 : 0, 1, "manakai_is_html [11]";
246      ok $doc2->compat_mode, 'CSS1Compat', 'compat_mode [11]';
247      ok $doc2->manakai_compat_mode, 'no quirks', 'manakai_compat_mode [11]';
248    }
249    
250  ## TODO: manakai_entity_base_uri  ## TODO: manakai_entity_base_uri
251    
252  =head1 LICENSE  =head1 LICENSE

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24