percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-23 21:05:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix lib tests for MySQL 5.0.

Browse Source
This commit is contained in:
Daniel Nichter
2012-02-02 10:56:55 -07:00
parent 4d462bbbdd
commit c40e5db1bf
8 changed files with 35 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
t/lib/Cxn.t
View File

@@ -83,11 +83,12 @@ test_var_val(
test => 'Default wait_timeout',
);
my $set_calls = 0;
my $cxn = make_cxn(
dsn_string => 'h=127.1,P=12345,u=msandbox,p=msandbox',
set => sub {
my ($dbh) = @_;
$dbh->do("SET unique_checks=0");
$set_calls++;
$dbh->do("SET \@a := \@a + 1");
},
);
@@ -122,11 +123,10 @@ test_var_val(
test => 'Sets --set-vars',
);
test_var_val(
$cxn->dbh(),
'unique_checks',
'OFF',
test => 'Calls set callback',
is(
$set_calls,
1,
'Calls set callback'
);
$cxn->dbh()->do("SET \@a := 1");
@@ -172,11 +172,10 @@ test_var_val(
test => 'Reconnect sets --set-vars',
);
test_var_val(
$cxn->dbh(),
'unique_checks',
'OFF',
test => 'Reconnect calls set callback',
is(
$set_calls,
2,
'Reconnect calls set callback'
);
test_var_val(