From 3f61844afa305473550be140e520c16bcf87eef6 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Sat, 10 Oct 2015 09:36:22 +0900
Subject: [PATCH] added a failing test for rt-106950

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

diff --git a/t/rt_106950_extra_warnings_with_savepoints.t b/t/rt_106950_extra_warnings_with_savepoints.t
new file mode 100644
index 0000000..173f1c9
--- /dev/null
+++ b/t/rt_106950_extra_warnings_with_savepoints.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use t::lib::Test;
+use Test::More;
+
+BEGIN { requires_sqlite('3.6.8') }
+
+plan tests => 2;
+use Test::NoWarnings;
+
+{ # simple case
+	my $dbh = connect_ok(
+		AutoCommit => 1,
+		RaiseError => 1,
+	);
+	$dbh->begin_work;
+	$dbh->do("SAVEPOINT svp_0");
+	$dbh->do("RELEASE SAVEPOINT svp_0");
+	$dbh->commit;
+	# should not spit the "Issuing rollback()" warning
+}