update tests to skip when optional modules aren't available
authorTony Cook <tony@develop-help.com>
Mon, 20 May 2013 05:20:20 +0000 (15:20 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 20 May 2013 05:24:18 +0000 (15:24 +1000)
t/080-remote/010-save.t
t/080-remote/020-cat.t
t/080-remote/030-parent.t
t/080-remote/040-steps.t
t/130-importer/010-csv.t
t/130-importer/020-article.t
t/130-importer/030-product.t

index efd7588..76bc7c4 100644 (file)
@@ -21,7 +21,7 @@ my $baseurl = base_url;
 
 my $add_url = $baseurl . "/cgi-bin/admin/add.pl";
 
-my @ajax_hdr = qw(X-Requested-With: XMLHttpRequest);
+my @ajax_hdr = qw(X-Requested-With XMLHttpRequest);
 
 my %add_req =
   (
index 115ae9f..76acac4 100644 (file)
@@ -11,7 +11,7 @@ my $baseurl = base_url;
 
 my $add_url = $baseurl . "/cgi-bin/admin/add.pl";
 
-my @ajax_hdr = qw(X-Requested-With: XMLHttpRequest);
+my @ajax_hdr = qw(X-Requested-With XMLHttpRequest);
 
 # make a catalog
 my $cat = do_add($add_url, 
index d689667..34b2925 100644 (file)
@@ -10,7 +10,7 @@ my $baseurl = base_url;
 
 my $add_url = $baseurl . "/cgi-bin/admin/add.pl";
 
-my @ajax_hdr = qw(X-Requested-With: XMLHttpRequest);
+my @ajax_hdr = qw(X-Requested-With XMLHttpRequest);
 
 # make a parent
 my $par = do_add($add_url, 
index 00934b8..380c660 100644 (file)
@@ -11,7 +11,7 @@ my $baseurl = base_url;
 
 my $add_url = $baseurl . "/cgi-bin/admin/add.pl";
 
-my @ajax_hdr = qw(X-Requested-With: XMLHttpRequest);
+my @ajax_hdr = qw(X-Requested-With XMLHttpRequest);
 
 my $parent = do_add({ parentid => -1, title => "parent2" }, "make parent");
 sleep 1;
index b5d0ea4..ed6715c 100644 (file)
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 8;
+use Test::More;
 use BSE::Cfg;
 BEGIN {
   eval "require Text::CSV;"
@@ -8,6 +8,8 @@ BEGIN {
 }
 use BSE::Importer::Source::CSV;
 
+plan tests => 8;
+
 {
   my $cfg = BSE::Cfg->new_from_text(text => <<CFG);
 [import profile test]
index 5840c35..7b39f46 100644 (file)
@@ -3,8 +3,13 @@ use strict;
 use BSE::Test qw(base_url);
 use File::Spec;
 use File::Temp;
+use Test::More;
 
-use Test::More tests => 42;
+BEGIN {
+  eval "require Text::CSV;"
+    or plan skip_all => "Text::CSV not available";
+}
+plan tests => 42;
 
 BEGIN {
   unshift @INC, File::Spec->catdir(BSE::Test::base_dir(), "cgi-bin", "modules");
index e477b5e..e55e874 100644 (file)
@@ -3,8 +3,14 @@ use strict;
 use BSE::Test qw(base_url);
 use File::Spec;
 use File::Temp;
+use Test::More;
 
-use Test::More tests => 8;
+BEGIN {
+  eval "require Text::CSV;"
+    or plan skip_all => "Text::CSV not available";
+}
+
+plan tests => 8;
 
 BEGIN {
   unshift @INC, File::Spec->catdir(BSE::Test::base_dir(), "cgi-bin", "modules");