From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 13 Sep 2004 18:16:48 +0000 (+0000)
Subject: Some updates to tests to skip when required dependencies are missing.
X-Git-Tag: v0.11008~625
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2f0a9f6eb0de6fbed1e4c19ab70e00ebe8b3abf;p=dbsrgits%2FSQL-Translator.git

Some updates to tests to skip when required dependencies are missing.
---

diff --git a/t/15oracle-parser.t b/t/15oracle-parser.t
index 4660857..a5098e4 100644
--- a/t/15oracle-parser.t
+++ b/t/15oracle-parser.t
@@ -19,7 +19,8 @@ my $sql = q[
         trait_category              VARCHAR2(100)   NOT NULL,
         UNIQUE ( trait_category )
     );
-    comment on table qtl_trait_category is 'hey, hey, hey, hey';
+    COMMENT ON TABLE qtl_trait_category IS 
+    'hey, hey, hey, hey';
     comment on column qtl_trait_category.qtl_trait_category_id 
         is 'the primary key!';
 
diff --git a/t/18ttschema-producer.t b/t/18ttschema-producer.t
index 91d5bd9..9284223 100644
--- a/t/18ttschema-producer.t
+++ b/t/18ttschema-producer.t
@@ -20,7 +20,12 @@ use FindBin qw/$Bin/;
 #=============================================================================
 
 BEGIN {
-    maybe_plan(3, 'Template', 'Test::Differences')
+    maybe_plan(3, 
+        'XML::XPath', 
+        'SQL::Translator::Parser::XML::SQLFairy'
+        'Template', 
+        'Test::Differences'
+    )
 }
 use Test::Differences;
 
diff --git a/t/26sybase.t b/t/26sybase.t
index d512038..b108fdb 100755
--- a/t/26sybase.t
+++ b/t/26sybase.t
@@ -3,11 +3,17 @@
 #
 
 # $Source: /home/faga/work/sqlfairy_svn/sqlfairy-cvsbackup/sqlfairy/t/26sybase.t,v $
-# $Id: 26sybase.t,v 1.1 2003-10-08 18:28:36 phrrngtn Exp $
+# $Id: 26sybase.t,v 1.2 2004-09-13 18:16:48 kycl4rk Exp $
 
 use strict;
+use Test::More;
+use Test::SQL::Translator qw(maybe_plan);
 
-use Test::More tests => 3;
+BEGIN {
+    maybe_plan(3,
+        'SQL::Translator::Parser::DBI::Sybase',
+    );  
+}
 
 use_ok('SQL::Translator::Parser::DBI::Sybase');
 use_ok('SQL::Translator::Parser::Storable');
diff --git a/t/31dumper.t b/t/31dumper.t
index 8c59d62..1f42e13 100644
--- a/t/31dumper.t
+++ b/t/31dumper.t
@@ -16,6 +16,7 @@ use Symbol qw(gensym);
 BEGIN {
     maybe_plan(
         5, 
+        'DBI',
         'SQL::Translator::Parser::SQLite',
         'SQL::Translator::Producer::Dumper'
     );