From 0dd41aefb337a6913471784cfb6f3361651264f0 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Sun, 5 Apr 2009 05:28:53 +0000
Subject: [PATCH] DBD-SQLite: added a test for RT #36838; seems no problem for
 me, though

---
 t/rt_36838_unique_and_bus_error.t | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 t/rt_36838_unique_and_bus_error.t

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..a84572e
--- /dev/null
+++ b/t/rt_36838_unique_and_bus_error.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use Test::More tests => 3;
+use t::lib::Test;
+
+my $dbh = connect_ok( RaiseError => 1 );
+
+$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