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

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

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

revision 1.2 by wakaba, Thu Jun 14 13:10:07 2007 UTC revision 1.3 by wakaba, Sun Jun 17 13:37:42 2007 UTC
# Line 11  ok $dom->isa ('Message::DOM::DOMImplemen Line 11  ok $dom->isa ('Message::DOM::DOMImplemen
11  ok $dom->isa ('Message::IF::DOMImplementation');  ok $dom->isa ('Message::IF::DOMImplementation');
12    
13  ## AUTOLOAD test  ## AUTOLOAD test
14  ok $dom->can ('create_uri_reference');  {
15  my $uri = $dom->create_uri_reference ('http://www.uri.test/');    ok $dom->can ('create_uri_reference') ? 1 : 0, 1, "can create_uri_reference";
16  ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference');    my $uri = $dom->create_uri_reference ('http://www.uri.test/');
17      ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference');
18    }
19    
20  ok $dom->can ('create_document');  {
21  my $doc = $dom->create_document;    ok $dom->can ('create_document') ? 1 : 0, 1, "can create_document";
22  ok UNIVERSAL::isa ($doc, 'Message::IF::Document');    my $doc = $dom->create_document;
23      ok UNIVERSAL::isa ($doc, 'Message::IF::Document');
24    }
25    
26  ok $dom->can ('create_document_type');  {
27  my $doc = $dom->create_document_type;    ok $dom->can ('create_document_type') ? 1 : 0, 1, "can create_document_type";
28  ok UNIVERSAL::isa ($doc, 'Message::IF::DocumentType');    my $doc = $dom->create_document_type;
29      ok UNIVERSAL::isa ($doc, 'Message::IF::DocumentType');
30    }
31    
32  ok $dom->can ('no_such_method') ? 1 : 0, 0;  ok $dom->can ('no_such_method') ? 1 : 0, 0;
33  my $something_called = 0;  my $something_called = 0;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24