diff options
Diffstat (limited to 't/rt_36836_duplicate_key.t')
-rw-r--r-- | t/rt_36836_duplicate_key.t | 25 |
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' ); |