[Bps-public-commit] r18986 - in DBIx-CheckConnectivity: lib/DBIx/CheckConnectivity/Driver

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Mar 30 21:38:48 2009
New Revision: 18986

Added:
   DBIx-CheckConnectivity/lib/DBIx/CheckConnectivity/Driver/Oracle.pm
Modified:
   DBIx-CheckConnectivity/t/01.check.t

Log:
add Oracle driver

Added: DBIx-CheckConnectivity/lib/DBIx/CheckConnectivity/Driver/Oracle.pm
==============================================================================
--- (empty file)
+++ DBIx-CheckConnectivity/lib/DBIx/CheckConnectivity/Driver/Oracle.pm	Mon Mar 30 21:38:48 2009
@@ -0,0 +1,32 @@
+package DBIx::CheckConnectivity::Driver::Oracle;
+
+use warnings;
+use strict;
+use base qw/DBIx::CheckConnectivity::Driver/;
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBIx::CheckConnectivity::Oracle - 
+
+=head1 INTERFACE
+
+=over 4
+
+=back
+
+=head1 AUTHOR
+
+sunnavy  C<< <sunnavy at bestpractical.com> >>
+
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright 2009 Best Practical Solutions.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+

Modified: DBIx-CheckConnectivity/t/01.check.t
==============================================================================
--- DBIx-CheckConnectivity/t/01.check.t	(original)
+++ DBIx-CheckConnectivity/t/01.check.t	Mon Mar 30 21:38:48 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 19;
+use Test::More tests => 21;
 use_ok('DBIx::CheckConnectivity');
 use_ok('DBIx::CheckConnectivity::Driver::SQLite');
 use_ok('DBIx::CheckConnectivity::Driver::Pg');
@@ -65,6 +65,8 @@
 ok( check_connectivity( dsn => 'dbi:Pg:database=xx;' ), 'normal pg driver' );
 ok( check_connectivity( dsn => 'dbi:mysql:database=xx;' ),
     'normal mysql driver' );
+ok( check_connectivity( dsn => 'dbi:Oracle:database=xx;' ),
+    'normal oracle driver' );
 ok( !check_connectivity( dsn => 'dbi:Pg:database=not_exist;' ),
     'pg with not_exist db' );
 is( $error, 'not exist', 'err' );