Parent Directory
| 
Revision Log
++ manakai/t/ChangeLog 17 Jun 2007 13:37:22 -0000 2007-06-17 Wakaba <wakaba@suika.fam.cx> * DOM-Attr.t, DOM-AttributeDefinition.t, DOM-DocumentType.t, DOM-Element.t, DOM-Entity.t, DOM-EntityReference.t, DOM-Notation.t, DOM-ProcessingInstruction.t: New. * DOM-Document.t, DOM-Node.t: Tests for newly-implemented attributes and methods are added. * Makefile (test-module-dom-old): Renamed from |test-module-dom|. (test-module-dom): New. ++ manakai/lib/Message/DOM/ChangeLog 17 Jun 2007 13:34:54 -0000 2007-06-17 Wakaba <wakaba@suika.fam.cx> * Attr.pm (____new): Initialize |specified| as 1. (base_uri, manakai_attribute_type, specified): Implemented. (prefix): Don't check read-only flag unless |strict_error_checking|. (value): Call |text_content| for now. * AttributeDefinition.pm (DeclaredValueType, DefaultValueType): Added. (declared_type, default_type): Implemented. * CharacterData.pm (____new): Allow a scalar reference as an input for the |data| attribute. (base_uri, manakai_append_text): Implemented. * DOMConfiguration.pm (set_parameter): Resetting implemented. * DOMDocument.pm (____new): Set default values to configuration parameter whose default is true. (document_uri, input_encoding): Implemented. (all_declarations_processed, manakai_is_html): Implemented. (base_uri, manakai_append_text, manakai_entity_base_uri, strict_error_checking, xml_encoding, xml_version, xml_standalone): Implemented. * DOMElement.pm (manakai_base_uri, base_uri): Implemented. (get_attribute, get_attribute_node): Alpha version. (set_attribute_node, set_attribute_node_ns): Implemented. (set_attribute_ns): Accept non-ARRAY qualified name. * DOMException.pm (___error_def): |WRONG_DOCUMENT_ERR|, |NOT_SUPPORTED_ERR|, and |INUSE_ATTRIBUTE_ERR| are added. * DocumentType.pm (public_id, system_id): Implemented. (base_uri, declaration_base_uri, manakai_declaration_base_uri, manakai_append_text): Implemented. (element_types, general_entities, notations, set_element_type_definition_node, set_general_entity_node, set_notation_node): Alpha version. * ElementTypeDefinition.pm (manakai_append_text): Implemented. (attribute_definitions, set_attribute_definition_node): Alpha version. * Entity.pm (has_replacement_tree, public_id, system_id, manakai_declaration_base_uri, manakai_entity_base_uri, manakai_entity_uri): Implemented. * EntityReference.pm (manakai_expanded, manakai_external): Implemented. (base_uri, manakai_entity_base_uri): Implemented. * Node.pm (base_uri): Implemented. (text_content): Don't check read-only or not unless |strict_error_checking|. (manakai_append_text): Implemented. (get_feature): Alpha. (manakai_set_read_only): Implemented. * Notation.pm (public_id, system_id, manakai_append_text, manakai_declaration_base_uri): Implemented. * ProcessingInstruction.pm (manakai_base_uri, base_uri, manakai_append_text): Implemented.
| 1 | #!/usr/bin/perl |
| 2 | use strict; |
| 3 | use Test; |
| 4 | BEGIN { plan tests => 38 } |
| 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 | my $el = $doc->create_element ('element'); |
| 13 | |
| 14 | for my $prop (qw/manakai_base_uri/) { |
| 15 | ok $el->can ($prop) ? 1 : 0, 1, 'can ' . $prop; |
| 16 | |
| 17 | for ('http://absuri.test/', 'reluri', 0, '') { |
| 18 | $el->$prop ($_); |
| 19 | ok $el->$prop, $_, $prop . $_; |
| 20 | } |
| 21 | |
| 22 | $el->$prop (undef); |
| 23 | ok $el->$prop, undef, $prop . ' undef'; |
| 24 | } |
| 25 | |
| 26 | for my $method (qw/set_attribute_node set_attribute_node_ns/) { |
| 27 | my $el = $doc->create_element ('element'); |
| 28 | ok $el->can ($method) ? 1 : 0, 1, "can $method"; |
| 29 | |
| 30 | my $a1 = $doc->create_attribute ('attr1'); |
| 31 | $a1->value ('value1'); |
| 32 | $a1->specified (0); |
| 33 | |
| 34 | my $r1 = $el->$method ($a1); |
| 35 | ok $r1, undef, "$method return [1]"; |
| 36 | ok $el->get_attribute ('attr1'), 'value1', "$method get_attribute [1]"; |
| 37 | ok $el->get_attribute_ns (undef, 'attr1'), 'value1', |
| 38 | "$method get_attribute_ns [1]"; |
| 39 | ok $el->get_attribute_node ('attr1'), $a1, "$method get_attribute_node [1]"; |
| 40 | ok $el->get_attribute_node_ns (undef, 'attr1'), $a1, |
| 41 | "$method get_attribute_node_ns [1]"; |
| 42 | ok $a1->owner_element, $el, "$method owner_element [1]"; |
| 43 | ok $a1->specified ? 1 : 0, 1, "$method specified [1]"; |
| 44 | $a1->specified (0); |
| 45 | |
| 46 | my $a2 = $doc->create_attribute ('attr1'); |
| 47 | my $r3 = $el->$method ($a2); |
| 48 | ok $r3, $a1, "$method return [2]"; |
| 49 | ok $a1->owner_element, undef, "$method owner_element [2]"; |
| 50 | ok $a1->specified ? 1 : 0, 1, "$method specified [2]"; |
| 51 | |
| 52 | $el->set_attribute_ns (undef, attr => 'value'); |
| 53 | my $attr = $el->get_attribute_node_ns (undef, 'attr'); |
| 54 | $attr->specified (0); |
| 55 | my $r4 = $el->$method ($attr); |
| 56 | ok $r4, undef, "$method return [3]"; |
| 57 | ok $attr->owner_element, $el, "$method owner_element [3]"; |
| 58 | ok $attr->specified ? 1 : 0, 0, "$method specified [3]"; |
| 59 | ok $el->get_attribute_node_ns (undef, 'attr'), $attr, |
| 60 | "$method get_attribute_node_ns [3]"; |
| 61 | ok $el->get_attribute_ns (undef, 'attr'), 'value', |
| 62 | "$method get_attribute_ns [3]"; |
| 63 | } |
| 64 | |
| 65 | =head1 LICENSE |
| 66 | |
| 67 | Copyright 2007 Wakaba <w@suika.fam.cx> |
| 68 | |
| 69 | This program is free software; you can redistribute it and/or |
| 70 | modify it under the same terms as Perl itself. |
| 71 | |
| 72 | =cut |
| 73 | |
| 74 | ## $Date: 2007/06/16 08:49:00 $ |
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |