1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!perl
#
# $Id: place.t,v 1.10 2008/08/31 08:46:22 mpeppler Exp $
use lib 't';
use _test;
use strict;
use Test::More tests => 19;
BEGIN { use_ok('DBI');
use_ok('DBD::Sybase');}
my ($Uid, $Pwd, $Srv, $Db) = _test::get_info();
my $dbh = DBI->connect("dbi:Sybase:$Srv;database=$Db", $Uid, $Pwd, {PrintError => 1});
plan skip_all => "No connection - did you set the user, password and server name correctly in PWD?\n"
unless $dbh;
#plan tests => 16;
SKIP: {
skip "?-style placeholders aren't supported with this SQL Server", 10 unless $dbh->{syb_dynamic_supported};
my $rc;
my $jan03 = 'Jan 3 1998';
my $jan25 = 'Jan 25 1998';
$rc = $dbh->do("create table #t(string varchar(20), date datetime, val float, other_val numeric(9,3))");
ok($rc, 'Create table');
my $sth = $dbh->prepare("insert #t values(?, ?, ?, ?)");
ok($sth, 'prepare');
$rc = $sth->execute("test", $jan03, 123.4, 222.3334);
ok($rc, 'insert 1');
ok $sth->bind_param(1, "other test");
ok $sth->bind_param(2, $jan25);
# the order of these two bind_param's is swapped on purpose
ok $sth->bind_param(4, 2);
ok $sth->bind_param(3, 4445123.4);
$rc = $sth->execute();
ok($rc, 'insert 2');
do {
local $sth->{PrintError} = 0;
$rc = $sth->execute("test", "Feb 30 1998", 123.4, 222.3334);
};
ok(!$rc, 'insert 3 (fail)');
$sth = $dbh->prepare("select * from #t where date > ? and val > ?");
ok($sth, 'prepare 2');
$rc = $sth->execute('Jan 1 1998', 120);
ok($rc, 'select');
# get the dates in the expected locale format
my $sthDates = $dbh->prepare(
"select convert(datetime, '$jan03'), convert(datetime, '$jan25')");
$sthDates->execute;
my ($jan03formatted, $jan25formatted) = @{$sthDates->fetchall_arrayref->[0]};
my $rows = $sth->fetchall_arrayref;
is(@$rows, 2, 'fetch count');
is_deeply $rows, [
[ 'test', $jan03formatted, '123.4', '222.333' ],
[ 'other test', $jan25formatted, '4445123.4', '2.000' ]
];
ok $sth->execute('Jan 1 1998', 140);
$rows = $sth->fetchall_arrayref;
is(@$rows, 1, 'fetch 2');
is_deeply $rows, [
[ 'other test', $jan25formatted, '4445123.4', '2.000' ]
];
SKIP: {
skip 'requires ASE 15 ', 1 if $dbh->{syb_server_version} lt '15' || $dbh->{syb_server_version} eq 'Unknown' || $dbh->{syb_server_version} eq 'MS-SQL';
$dbh->do("create table #t2(t1 tinyint, t2 bigint, t3 unsigned int)");
my $sth3 = $dbh->prepare("insert #t2 values(?, ?, ?)");
$sth3->bind_param(1, 1); #, SQL_TINYINT);
$sth3->bind_param(2, 3); #, SQL_BIGINT);
$sth3->bind_param(3, 34000);
my $rc = $sth3->execute();
ok($rc, "insert bigint");
}
}
$dbh->disconnect;
exit(0);
|
