diff options
Diffstat (limited to 't/rt_36838_unique_and_bus_error.t')
-rw-r--r-- | t/rt_36838_unique_and_bus_error.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/rt_36838_unique_and_bus_error.t b/t/rt_36838_unique_and_bus_error.t new file mode 100644 index 0000000..2c3a819 --- /dev/null +++ b/t/rt_36838_unique_and_bus_error.t @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use t::lib::Test; +use Test::More tests => 4; +use Test::NoWarnings; + +my $dbh = connect_ok( RaiseError => 1, PrintError => 0 ); + +$dbh->do("CREATE TABLE nums (num INTEGER UNIQUE)"); + +ok $dbh->do("INSERT INTO nums (num) VALUES (?)", undef, 1); + +eval { $dbh->do("INSERT INTO nums (num) VALUES (?)", undef, 1); }; +ok $@ =~ /column num is not unique/, $@; # should not be a bus error |