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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
#!/usr/bin/perl
#
#
# This is a test for all data types handling.
#
# 2011-01-23 stefansbv
# New version based on testlib and Firebird.dbtest
# NOW and TOMORROW tests replaced with simple TIME and DATE tests
# there is a separate test for them anyway
use strict;
use warnings;
use Test::More;
use lib 't','.';
use TestFirebird;
my $T = TestFirebird->new;
my ($dbh, $error_str) = $T->connect_to_database();
if ($error_str) {
BAIL_OUT("Unknown: $error_str!");
}
unless ( $dbh->isa('DBI::db') ) {
plan skip_all => 'Connection to database failed, cannot continue testing';
}
else {
plan tests => 24;
}
ok($dbh, 'Connected to the database');
# ------- TESTS ------------------------------------------------------------- #
my %expected = (
0 => 30000,
1 => 1000,
2 => 'Edwin ',
3 => 'Edwin Pratomo ',
4 => 'A string',
5 => 5000,
6 => '1.20000004768372',
7 => 1.44,
8 => '2011-01-23 17:14',
9 => '2011-01-23',
10 => '17:14',
11 => 32.71,
12 => -32.71,
13 => 123456.79,
14 => -123456.79,
15 => '86753090000.868',
);
#
# Find a possible new table name
#
my $table = find_new_table($dbh);
ok($table, qq{Table is '$table'});
#
# Create a new table
#
my $def =<<"DEF";
CREATE TABLE $table (
INTEGER_ INTEGER,
SMALLINT_ SMALLINT,
CHAR13_ CHAR(13),
CHAR20_ CHAR(20),
VARCHAR13_ VARCHAR(13),
DECIMAL_ DECIMAL,
FLOAT_ FLOAT,
DOUBLE_ DOUBLE PRECISION,
A_TIMESTAMP TIMESTAMP,
A_DATE DATE,
A_TIME TIME,
NUMERIC_AS_SMALLINT NUMERIC(4,3),
NUMERIC_AS_SMALLINT2 NUMERIC(4,3),
NUMERIC_AS_INTEGER NUMERIC(9,3),
NUMERIC_AS_INTEGER2 NUMERIC(9,3),
A_SIXTYFOUR NUMERIC(18,3)
)
DEF
ok($dbh->do($def));
#
# Prepare insert
#
my $stmt =<<"END_OF_QUERY";
INSERT INTO $table (
INTEGER_,
SMALLINT_,
CHAR13_,
CHAR20_,
VARCHAR13_,
DECIMAL_,
FLOAT_,
DOUBLE_,
A_TIMESTAMP,
A_DATE,
A_TIME,
NUMERIC_AS_SMALLINT,
NUMERIC_AS_SMALLINT2,
NUMERIC_AS_INTEGER,
NUMERIC_AS_INTEGER2,
A_SIXTYFOUR
) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
END_OF_QUERY
my $cursor = $dbh->prepare($stmt);
ok($cursor->execute(
30000,
1000,
'Edwin',
'Edwin Pratomo',
'A string',
5000,
1.2,
1.44,
'2011-01-23 17:14',
'2011-01-23',
'17:14',
32.71,
-32.71,
123456.7895,
-123456.7895,
86753090000.8675309
), "INSERT in $table");
my $cursor2 = $dbh->prepare("SELECT * FROM $table", {
ib_timestampformat => '%Y-%m-%d %H:%M',
ib_dateformat => '%Y-%m-%d',
ib_timeformat => '%H:%M',
});
ok($cursor2->execute);
ok(my $res = $cursor2->fetchall_arrayref, 'FETCHALL arrayref');
my ($types, $names, $fields) = @{$cursor2}{qw(TYPE NAME NUM_OF_FIELDS)};
for (my $i = 0; $i < $fields; $i++) {
is($res->[0][$i], $expected{$i}, "TEST No $i");
}
#
# Drop the test table
#
ok($dbh->do("DROP TABLE $table"), "DROP TABLE '$table'");
#
# Finally disconnect.
#
ok($dbh->disconnect());
|
