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

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

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

revision 1.4 by wakaba, Sat Nov 1 06:09:45 2003 UTC revision 1.5 by wakaba, Fri Dec 26 07:10:26 2003 UTC
# Line 197  my @qname = ( Line 197  my @qname = (
197               {               {
198                qname  => q":bar",                qname  => q":bar",
199                join_qname => q"bar",                join_qname => q"bar",
200                prefix => q"",                prefix => DEFAULT_PFX,
201                lname  => q"bar",                lname  => q"bar",
202                result => 0,                result => 0,
203                join_result => 1,                join_result => 1,
# Line 413  for (@qname) { Line 413  for (@qname) {
413        
414    $chk = Message::Markup::XML::QName::join_qname    $chk = Message::Markup::XML::QName::join_qname
415      ($_->{prefix}, $_->{lname}, %{$_->{opt}||{}});      ($_->{prefix}, $_->{lname}, %{$_->{opt}||{}});
416    if ((defined $_->{join_result} and $_->{join_result}) or $_->{result}) {    if (defined $_->{join_result} ? $_->{join_result} : $_->{result}) {
417      ok $chk->{qname} eq ($_->{join_qname} || $_->{qname}), "Join 1: $_->{prefix}, $_->{lname} => $chk->{qname}";      ok $chk->{qname} eq ($_->{join_qname} || $_->{qname}), qq(Join 1: "$_->{prefix}":"$_->{lname}" => "$chk->{qname}" ("@{[$_->{join_qname} || $_->{qname}]}" expected));
418    } else {    } else {
419      ok $chk->{success} == ((defined $_->{join_result} and $_->{join_result}) or $_->{result}),      ok $chk->{success} == ((defined $_->{join_result} and $_->{join_result}) or $_->{result}),
420         "Join 0: $chk->{success}; $_->{prefix}, $_->{lname} => $chk->{qname}";         "Join 0: $chk->{success}; $_->{prefix}, $_->{lname} => $chk->{qname}";
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24