oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add more quote tests and fix broken test for hash buckets

Browse source
This commit is contained in:
Colin Kuskie 2005-12-05 01:49:05 +00:00
parent 0b46abc6fb
commit ba142f3888
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/SQL.t
View file

@ -13,10 +13,11 @@ use strict;
use lib '../lib';
use Getopt::Long;
use WebGUI::Session;
use Data::Dumper;
# ---- 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;
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()");
# hashRef
is(scalar(%{$sth->hashRef}), "2/8", "hashRef()");
my %hash = %{ $sth->hashRef };
is(scalar(%hash), "2/8", "hashRef()");
# rows
ok($sth->rows > 1, "rows()");
@ -51,12 +53,14 @@ ok(my $sth = WebGUI::SQL->unconditionalRead("select * from tableThatDoesntExist"
is($sth->errorCode, "1146" ,"errorCode()");
# errorMessage
ok($sth->errorMessage =~ m/Table .*\.tablethatdoesntexist. doesn.t exist/ , "errorMessage()");
like ($sth->errorMessage, qr/Table [^.]*\.tableThatDoesntExist' doesn't exist/ , "errorMessage()");
$sth->finish;
# quote
is(quote("that's great"), "'that\\\'s great'", "quote()");
is(quote(0), "'0'", "quote(0)");
is(quote(''), "''", "quote('')");
# quoteAndJoin
my @quoteAndJoin = ("that's great", '"Howdy partner!"');