diff _test/Test/DOM/Navigator.pm @ 36:1828103371d0

DOM in works
author Sergey
date Fri, 20 Nov 2009 16:48:08 +0300
parents 7f00786f8210
children 16ada169ca75
line wrap: on
line diff
--- a/_test/Test/DOM/Navigator.pm	Tue Nov 17 17:46:24 2009 +0300
+++ b/_test/Test/DOM/Navigator.pm	Fri Nov 20 16:48:08 2009 +0300
@@ -145,7 +145,7 @@
     $navi->NavigateName('Node') or failed "Failed to navigate to a simple node";
     $navi->restoreState;
     
-    failed "Can't navigate from simple node" if $navi->NavigateName('Property');
+    failed "Can't navigate from simple node" if $navi->dosafe(sub { $navi->NavigateName('Property') || die } );
     
     $navi->NavigateName('ComplexType') or failed "Failed to navigate to a complex node";
     $navi->NavigateName('NodeSet') or failed "Failed to navigate to NodeSet";