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 |