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, 25 insertions, 0 deletions

diff --git a/t/rt_36836_duplicate_key.t b/t/rt_36836_duplicate_key.t
new file mode 100644
index 0000000..7380d8e
--- /dev/null
+++ b/t/rt_36836_duplicate_key.t
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+# This is a simple insert/fetch test.
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use t::lib::Test;
+use Test::More tests => 5;
+use Test::NoWarnings;
+
+# Create a database
+my $dbh = connect_ok( PrintError => 0 );
+
+# Create a database
+ok( $dbh->do('CREATE TABLE one ( num INTEGER UNIQUE)'), 'create table' );
+
+# Insert a row into the test table
+ok( $dbh->do('INSERT INTO one ( num ) values ( 1 )'), 'insert' );
+
+# Insert a duplicate
+ok( ! $dbh->do('INSERT INTO one ( num ) values ( 1 )'), 'duplicate' );