Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.HEADDBD-SQLite-1.38_01masterbaserock/morph

1 files changed, 23 insertions, 0 deletions

diff --git a/t/rt_73787_exponential_buffer_overflow.t b/t/rt_73787_exponential_buffer_overflow.t
new file mode 100644
index 0000000..6115864
--- /dev/null
+++ b/t/rt_73787_exponential_buffer_overflow.t
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use t::lib::Test qw/connect_ok/;
+use Test::More tests => 6;
+use Test::NoWarnings;
+
+my $dbh = connect_ok(sqlite_see_if_its_a_number => 1);
+$dbh->do('create table foo (id integer primary key, exp)');
+my $ct = 0;
+for my $value (qw/2e100 10.04e100/) {
+    eval {
+        $dbh->do('insert into foo values (?, ?)', undef, $ct++, $value);
+        my $got = $dbh->selectrow_arrayref('select * from foo where exp = ?', undef, $value);
+        is $value => $got->[1], "got ".$got->[0];
+    };
+    ok !$@, "and without errors";
+}