#!perl -w

# Base DBD Driver Test

print "1..$tests\n";

require DBI;
print "ok 1\n";

import DBI;
print "ok 2\n";

$switch = DBI->internal;
(ref $switch eq 'DBI::dr') ? print "ok 3\n" : print "not ok 3\n";

eval {

# This is a special case. install_driver should not normally be used.
$drh = DBI->install_driver('Oracle');
(ref $drh eq 'DBI::dr') ? print "ok 4\n" : print "not ok 4\n";

};
if ($@) {
	$@ =~ s/\n\n+/\n/g if $@;
    warn "Failed to load Oracle extension and/or shared libraries:\n$@" if $@;
    warn "The remaining tests will probably also fail with the same error.\a\n\n";
    # try to provide some useful pointers for some cases
    if ($@ =~ /Solaris patch.*Java/i) {
	warn "*** Please read the README.java.txt file for help. ***\n";
    }
    else {
	warn "*** Please read the README and README.help.txt files for help. ***\n";
    }
    warn "\n";
	sleep 5;
}

print "ok 5\n" if $drh->{Version};

BEGIN { $tests = 5 }
exit 0;
# end.

__END__

You must install a Solaris patch to run this version of
the Java runtime.
Please see the README and release notes for more information.