#!perl
#
# $Id: login.t,v 1.4 2007/04/12 16:09:36 mpeppler Exp $
use lib 'blib/lib';
use lib 'blib/arch';
use lib 't';
use _test;
use strict;
use Test::More tests => 6;
use vars qw($Pwd $Uid $Srv $Db);
BEGIN { use_ok('DBI');
use_ok('DBD::Sybase');}
($Uid, $Pwd, $Srv, $Db) = _test::get_info();
#DBI->trace(3);
my $dbh = DBI->connect("dbi:Sybase:server=$Srv;database=$Db", $Uid, $Pwd, {PrintError => 1});
#DBI->trace(0);
ok($dbh, 'Connect');
ok $dbh->ping, "ping should pass after connect";
$dbh->disconnect if $dbh;
ok !$dbh->ping, "ping should fail after disconnect";
$dbh = DBI->connect("dbi:Sybase:server=$Srv;database=$Db", 'ohmygod', 'xzyzzy', {PrintError => 0});
ok(!$dbh, 'Connect fail');
$dbh->disconnect if $dbh;
exit(0);