Quote large numbers to avoid Perl possibly using scientific notation.

This commit is contained in:
Daniel Nichter
2011-08-22 11:08:00 -06:00
parent 5b31ee0359
commit f2559cfd96

View File

@@ -144,15 +144,15 @@ $rows = $dbh->selectall_arrayref("select * from mk.queries order by query_id");
is_deeply( is_deeply(
$rows, $rows,
[ [
[ 4950186562421969363, [ "4950186562421969363",
"select * from sakila.actor where last_name like ?", "select * from sakila.actor where last_name like ?",
"select * from sakila.actor where last_name like 'A%'", "select * from sakila.actor where last_name like 'A%'",
], ],
[ 10334408417593890092, [ "10334408417593890092",
"select * from sakila.actor where last_name like ? order by actor_id", "select * from sakila.actor where last_name like ? order by actor_id",
"select * from sakila.actor where last_name like 'A%' order by actor_id", "select * from sakila.actor where last_name like 'A%' order by actor_id",
], ],
[ 10891801448710051322, [ "10891801448710051322",
"select * from sakila.actor where actor_id>?", "select * from sakila.actor where actor_id>?",
"select * from sakila.actor where actor_id>10", "select * from sakila.actor where actor_id>10",
], ],
@@ -165,19 +165,19 @@ $res = $sandbox_version ge '5.1' ?
# v5.1 and newer # v5.1 and newer
[ [
[ [
4950186562421969363, "4950186562421969363",
qw(sakila actor idx_actor_last_name), qw(sakila actor idx_actor_last_name),
"select * from sakila.actor where last_name like 'A%'", "select * from sakila.actor where last_name like 'A%'",
1, 1,
], ],
[ [
10891801448710051322, "10891801448710051322",
qw(sakila actor PRIMARY), qw(sakila actor PRIMARY),
"select * from sakila.actor where actor_id>10", "select * from sakila.actor where actor_id>10",
2, 2,
], ],
[ [
10334408417593890092, "10334408417593890092",
qw(sakila actor PRIMARY), qw(sakila actor PRIMARY),
"select * from sakila.actor where last_name like 'A%' order by actor_id", "select * from sakila.actor where last_name like 'A%' order by actor_id",
1, 1,
@@ -187,19 +187,19 @@ $res = $sandbox_version ge '5.1' ?
# v5.0 and older # v5.0 and older
[ [
[ [
4950186562421969363, "4950186562421969363",
qw(sakila actor idx_actor_last_name), qw(sakila actor idx_actor_last_name),
"select * from sakila.actor where last_name like 'A%'", "select * from sakila.actor where last_name like 'A%'",
1, 1,
], ],
[ [
10334408417593890092, "10334408417593890092",
qw(sakila actor idx_actor_last_name), qw(sakila actor idx_actor_last_name),
"select * from sakila.actor where last_name like 'A%' order by actor_id", "select * from sakila.actor where last_name like 'A%' order by actor_id",
1, 1,
], ],
[ [
10891801448710051322, "10891801448710051322",
qw(sakila actor PRIMARY), qw(sakila actor PRIMARY),
"select * from sakila.actor where actor_id>10", "select * from sakila.actor where actor_id>10",
2, 2,
@@ -266,15 +266,15 @@ $rows = $dbh->selectall_arrayref("select * from mk.queries order by query_id");
is_deeply( is_deeply(
$rows, $rows,
[ [
[ 4950186562421969363, [ "4950186562421969363",
"select * from sakila.actor where last_name like ?", "select * from sakila.actor where last_name like ?",
"select * from sakila.actor where last_name like 'A%'", "select * from sakila.actor where last_name like 'A%'",
], ],
[ 10334408417593890092, [ "10334408417593890092",
"select * from sakila.actor where last_name like ? order by actor_id", "select * from sakila.actor where last_name like ? order by actor_id",
"select * from sakila.actor where last_name like 'A%' order by actor_id", "select * from sakila.actor where last_name like 'A%' order by actor_id",
], ],
[ 10891801448710051322, [ "10891801448710051322",
"select * from sakila.actor where actor_id>?", "select * from sakila.actor where actor_id>?",
"select * from sakila.actor where actor_id>10", "select * from sakila.actor where actor_id>10",
], ],
@@ -287,19 +287,19 @@ $res = $sandbox_version ge '5.1' ?
# v5.1 and newer # v5.1 and newer
[ [
[ [
4950186562421969363, "4950186562421969363",
qw(sakila actor idx_actor_last_name), qw(sakila actor idx_actor_last_name),
"select * from sakila.actor where last_name like 'A%'", "select * from sakila.actor where last_name like 'A%'",
2, 2,
], ],
[ [
10891801448710051322, "10891801448710051322",
qw(sakila actor PRIMARY), qw(sakila actor PRIMARY),
"select * from sakila.actor where actor_id>10", "select * from sakila.actor where actor_id>10",
4, 4,
], ],
[ [
10334408417593890092, "10334408417593890092",
qw(sakila actor PRIMARY), qw(sakila actor PRIMARY),
"select * from sakila.actor where last_name like 'A%' order by actor_id", "select * from sakila.actor where last_name like 'A%' order by actor_id",
2, 2,
@@ -309,19 +309,19 @@ $res = $sandbox_version ge '5.1' ?
# v5.0 and older # v5.0 and older
[ [
[ [
4950186562421969363, "4950186562421969363",
qw(sakila actor idx_actor_last_name), qw(sakila actor idx_actor_last_name),
"select * from sakila.actor where last_name like 'A%'", "select * from sakila.actor where last_name like 'A%'",
2, 2,
], ],
[ [
10334408417593890092, "10334408417593890092",
qw(sakila actor idx_actor_last_name), qw(sakila actor idx_actor_last_name),
"select * from sakila.actor where last_name like 'A%' order by actor_id", "select * from sakila.actor where last_name like 'A%' order by actor_id",
2, 2,
], ],
[ [
10891801448710051322, "10891801448710051322",
qw(sakila actor PRIMARY), qw(sakila actor PRIMARY),
"select * from sakila.actor where actor_id>10", "select * from sakila.actor where actor_id>10",
4, 4,