From 485b97be9f2f2abf5a40923b5fd85f75714a8c02 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Mon, 24 Sep 2012 10:15:50 +0000
Subject: Imported from
 /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.

---
 t/32_inactive_error.t | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 t/32_inactive_error.t

(limited to 't/32_inactive_error.t')

diff --git a/t/32_inactive_error.t b/t/32_inactive_error.t
new file mode 100644
index 0000000..86fcf57
--- /dev/null
+++ b/t/32_inactive_error.t
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use Test::More tests => 4;
+use t::lib::Test;
+
+my $dbh = connect_ok( PrintError => 0, RaiseError => 0 );
+
+my $sth = $dbh->prepare('CREATE TABLE foo (f)');
+
+$dbh->disconnect;
+
+$sth->{PrintError} = 1;
+
+# attempt to execute on inactive database handle
+my @warning = ();
+SCOPE: {
+	local $SIG{__WARN__} = sub { push @warning, @_; return };
+	my $ret = eval { $sth->execute; };
+	# we need PrintError => 1, or warn $@ if $@;
+	ok ! defined $ret;
+}
+
+is( scalar(@warning), 1, 'Got 1 warning' );
+like(
+	$warning[0],
+	qr/attempt to execute on inactive database handle/,
+	'Got the expected warning',
+);
-- 
cgit v1.2.1