add more quote tests and fix broken test for hash buckets
This commit is contained in:
parent
0b46abc6fb
commit
ba142f3888
1 changed files with 7 additions and 3 deletions
10
t/SQL.t
10
t/SQL.t
|
|
@ -13,10 +13,11 @@ use strict;
|
||||||
use lib '../lib';
|
use lib '../lib';
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
use WebGUI::Session;
|
use WebGUI::Session;
|
||||||
|
use Data::Dumper;
|
||||||
# ---- END DO NOT EDIT ----
|
# ---- END DO NOT EDIT ----
|
||||||
|
|
||||||
|
|
||||||
use Test::More tests => 31; # increment this value for each test you create
|
use Test::More tests => 33; # increment this value for each test you create
|
||||||
use WebGUI::SQL;
|
use WebGUI::SQL;
|
||||||
|
|
||||||
initialize(); # this line is required
|
initialize(); # this line is required
|
||||||
|
|
@ -36,7 +37,8 @@ ok($columnNames[0] eq "name" && $columnNames[1] eq "value", "geColumnNames()");
|
||||||
is(scalar($sth->hash), "2/8", "hash()");
|
is(scalar($sth->hash), "2/8", "hash()");
|
||||||
|
|
||||||
# hashRef
|
# hashRef
|
||||||
is(scalar(%{$sth->hashRef}), "2/8", "hashRef()");
|
my %hash = %{ $sth->hashRef };
|
||||||
|
is(scalar(%hash), "2/8", "hashRef()");
|
||||||
|
|
||||||
# rows
|
# rows
|
||||||
ok($sth->rows > 1, "rows()");
|
ok($sth->rows > 1, "rows()");
|
||||||
|
|
@ -51,12 +53,14 @@ ok(my $sth = WebGUI::SQL->unconditionalRead("select * from tableThatDoesntExist"
|
||||||
is($sth->errorCode, "1146" ,"errorCode()");
|
is($sth->errorCode, "1146" ,"errorCode()");
|
||||||
|
|
||||||
# errorMessage
|
# errorMessage
|
||||||
ok($sth->errorMessage =~ m/Table .*\.tablethatdoesntexist. doesn.t exist/ , "errorMessage()");
|
like ($sth->errorMessage, qr/Table [^.]*\.tableThatDoesntExist' doesn't exist/ , "errorMessage()");
|
||||||
|
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
|
|
||||||
# quote
|
# quote
|
||||||
is(quote("that's great"), "'that\\\'s great'", "quote()");
|
is(quote("that's great"), "'that\\\'s great'", "quote()");
|
||||||
|
is(quote(0), "'0'", "quote(0)");
|
||||||
|
is(quote(''), "''", "quote('')");
|
||||||
|
|
||||||
# quoteAndJoin
|
# quoteAndJoin
|
||||||
my @quoteAndJoin = ("that's great", '"Howdy partner!"');
|
my @quoteAndJoin = ("that's great", '"Howdy partner!"');
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue