/[suikacvs]/messaging/manakai/t/markup-xml-xpath.t
Suika

Diff of /messaging/manakai/t/markup-xml-xpath.t

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

revision 1.1 by wakaba, Fri Oct 31 04:51:56 2003 UTC revision 1.2 by wakaba, Fri Oct 31 08:39:27 2003 UTC
# Line 3  use strict; Line 3  use strict;
3  require Test::Simple; sub ok ($;$);  require Test::Simple; sub ok ($;$);
4  use Message::Markup::XML::XPath;  use Message::Markup::XML::XPath;
5  use Message::Markup::XML;  use Message::Markup::XML;
6    use Message::Markup::XML::QName qw/NULL_URI DEFAULT_PFX UNDEF_URI/;
7    
8  my $e = Message::Markup::XML->new (type => '#element',  my $e = Message::Markup::XML->new (type => '#element',
9                                     namespace_uri => q<http://e.test/>,                                     namespace_uri => q<http://e.test/>,
# Line 49  my @s = ( Line 50  my @s = (
50              ok $expr eq $xpr, $expr;              ok $expr eq $xpr, $expr;
51                            
52              $e->{ns} = {};              $e->{ns} = {};
53              $e->define_new_namespace ('' => q<http://e.test/>);              $e->define_new_namespace ((DEFAULT_PFX) => q<http://e.test/>);
54              $e->set_attribute (expr => $p);              $e->set_attribute (expr => $p);
55              my $el = $e . '';              my $el = $e . '';
56              ok $el eq qq<<e expr="$xpr" xmlns="http://e.test/" xmlns:xpath.test="http://xpath.test/"></e>>, $el;              ok $el eq qq<<e expr="$xpr" xmlns="http://e.test/" xmlns:xpath.test="http://xpath.test/"></e>>, $el;
57            },1,            },
58           },           },1,
59          );          );
60    
61    
# Line 101  Test::Simple->import (tests => scalar @s Line 102  Test::Simple->import (tests => scalar @s
102    
103                                                                
104  for (@s) {  for (@s) {
105    &{$_->{g}};    $_->{g}->() if ref $_;
106  }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24