better namespace tests

mojolicious · Apr 27, 2012 · c7b06bf · c7b06bf
1 parent b245acb
commit c7b06bf
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,7 @@ This file documents the revision history for Perl extension Mojolicious.
 
 2.92  2012-04-27
   - Improved documentation.
+  - Improved tests.
 
 2.91  2012-04-26
   - Added cookies method to Mojo::Message.

diff --git a/t/mojo/dom.t b/t/mojo/dom.t
@@ -2,7 +2,7 @@ use Mojo::Base -strict;
 
 use utf8;
 
-use Test::More tests => 725;
+use Test::More tests => 735;
 
 # "Homer gave me a kidney: it wasn't his, I didn't need it,
 #  and it came postage due- but I appreciated the gesture!"
@@ -432,7 +432,7 @@ is $s->[0]->at('Type')->text, 'http://o.r.g/sso/2.0', 'right text';
 is $s->[0]->namespace, 'xri://$xrd*($v*2.0)', 'right namespace';
 is $s->[1]->at('Type')->text, 'http://o.r.g/sso/1.0', 'right text';
 is $s->[1]->namespace, 'xri://$xrd*($v*2.0)', 'right namespace';
-is $s->[2], undef, 'no text';
+is $s->[2], undef, 'no result';
 is $s->size, 2, 'right number of elements';
 
 # Yadis (roundtrip with namespace)
@@ -470,10 +470,25 @@ is $s->[2]->at('Type')->text, 'http://o.r.g/sso/2.0', 'right text';
 is $s->[2]->namespace, 'xri://$xrd*($v*2.0)', 'right namespace';
 is $s->[3]->at('Type')->text, 'http://o.r.g/sso/1.0', 'right text';
 is $s->[3]->namespace, 'xri://$xrd*($v*2.0)', 'right namespace';
-is $s->[4], undef, 'no text';
+is $s->[4], undef, 'no result';
 is $s->size, 4, 'right number of elements';
 is $dom->at('[Test="23"]')->text, 'http://o.r.g/sso/1.0', 'right text';
 is $dom->at('[test="23"]')->text, 'http://o.r.g/sso/2.0', 'right text';
+is $dom->find('xrds\:Service > Type')->[0]->text, 'http://o.r.g/sso/4.0',
+  'right text';
+is $dom->find('xrds\:Service > Type')->[1], undef, 'no result';
+is $dom->find('xrds\3AService > Type')->[0]->text, 'http://o.r.g/sso/4.0',
+  'right text';
+is $dom->find('xrds\3AService > Type')->[1], undef, 'no result';
+is $dom->find('xrds\3A Service > Type')->[0]->text, 'http://o.r.g/sso/4.0',
+  'right text';
+is $dom->find('xrds\3A Service > Type')->[1], undef, 'no result';
+is $dom->find('xrds\00003AService > Type')->[0]->text, 'http://o.r.g/sso/4.0',
+  'right text';
+is $dom->find('xrds\00003AService > Type')->[1], undef, 'no result';
+is $dom->find('xrds\00003A Service > Type')->[0]->text, 'http://o.r.g/sso/4.0',
+  'right text';
+is $dom->find('xrds\00003A Service > Type')->[1], undef, 'no result';
 is "$dom", $yadis, 'successful roundtrip';
 
 # Result and iterator order