| Subject: | main.t crashes (no UNSIGNED SMALLINT, CURRENT_BIGDATETIME) |
SQL Server has no UNSIGNED SMALLINT or CURRENT_BIGDATETIME.
Sam
--- t\main#6.t 2014-02-14 12:36:54.000000000 +-0100
+++ t\main.t 2014-02-14 12:35:11.000000000 +-0100
@@ -196,25 +196,27 @@
}
# Test new datatypes available with ASE 15
#
SKIP: {
- skip 'requires ASE 15 ', 2 unless $dbh->{syb_server_version} ge '15';
+ skip 'requires ASE 15 ', 2
+ if $dbh->{syb_server_version} eq 'Unknown' || $dbh->{syb_server_version} lt '15';
$dbh->{PrintError} = 1;
my $sth = $dbh->prepare("select convert(unsigned smallint, power(2, 15)), convert(bigint, power(convert(bigint, 2), 32))");
$sth->execute;
while(my $r = $sth->fetch) {
print "@$r\n";
ok($r->[0] == 32768, "unsigned smallint");
ok($r->[1] == 4294967296, "bigint");
}
}
SKIP: {
- skip 'requires ASE 15.5 ', 2 unless $dbh->{syb_server_version} ge '15.5';
+ skip 'requires ASE 15.5 ', 2
+ if $dbh->{syb_server_version} eq 'Unknown' || $dbh->{syb_server_version} lt '15.5';
$dbh->{PrintError} = 1;
$dbh->syb_date_fmt('LONGMS');
my $sth = $dbh->prepare("select current_bigdatetime(), current_bigtime()");
$sth->execute;
while(my $r = $sth->fetch) {
print "@$r\n";