fixing XML tests

leto · Nov 17, 2010 · 326d014 · 326d014
1 parent 4ac939a
commit 326d014
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/t/01_config/05_serializers.t b/t/01_config/05_serializers.t
@@ -31,6 +31,11 @@ SKIP: {
 SKIP: {
     skip 'XML::Simple is needed to run this test', 3
       unless Dancer::ModuleLoader->load('XML::Simple');
+
+    skip 'XML::Parser or XML::SAX are needed to run this test', 3
+        unless Dancer::ModuleLoader->load('XML::Parser') or
+               Dancer::ModuleLoader->load('XML::SAX');
+
     ok my $test         = to_xml($struct), 'to xml';
     ok my $final_struct = from_xml($test), 'from xml';
     is_deeply $final_struct, $struct, 'from => to works';

diff --git a/t/12_response/03_charset.t b/t/12_response/03_charset.t
@@ -70,6 +70,10 @@ SKIP: {
     skip "XML::Simple is needed for this test" , 1
         unless Dancer::ModuleLoader->load('XML::Simple');
 
+    skip "XML::Parser or XML::SAX are needed to run this test", 1
+        unless Dancer::ModuleLoader->load('XML::Parser') or
+               Dancer::ModuleLoader->load('XML::SAX');
+
     setting serializer => 'XML';
     $res->{content_type} = 'text/xml';
     $res->{content} = { key => "\x{0429}" };