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