1#!perl 2# 3# $Id: login.t,v 1.4 2007/04/12 16:09:36 mpeppler Exp $ 4 5use lib 'blib/lib'; 6use lib 'blib/arch'; 7 8use lib 't'; 9use _test; 10 11use strict; 12 13use Test::More tests => 6; 14 15use vars qw($Pwd $Uid $Srv $Db); 16 17BEGIN { use_ok('DBI'); 18 use_ok('DBD::Sybase');} 19 20($Uid, $Pwd, $Srv, $Db) = _test::get_info(); 21 22#DBI->trace(3); 23my $dbh = DBI->connect("dbi:Sybase:server=$Srv;database=$Db", $Uid, $Pwd, {PrintError => 1}); 24#DBI->trace(0); 25 26ok($dbh, 'Connect'); 27 28ok $dbh->ping, "ping should pass after connect"; 29 30$dbh->disconnect if $dbh; 31 32ok !$dbh->ping, "ping should fail after disconnect"; 33 34 35$dbh = DBI->connect("dbi:Sybase:server=$Srv;database=$Db", 'ohmygod', 'xzyzzy', {PrintError => 0}); 36 37ok(!$dbh, 'Connect fail'); 38 39$dbh->disconnect if $dbh; 40 41exit(0); 42