1 files changed, 11 insertions, 1 deletions
diff --git a/test/shared_err.test b/test/shared_err.test
index e070056a2..296c743bb 100644
--- a/test/shared_err.test
+++ b/test/shared_err.test
@@ -13,7 +13,7 @@
 # cache context. What happens to connection B if one connection A encounters
 # an IO-error whilst reading or writing the file-system?
 #
-# $Id: shared_err.test,v 1.3 2006/01/21 12:08:55 danielk1977 Exp $
+# $Id: shared_err.test,v 1.4 2006/01/23 05:50:58 danielk1977 Exp $
 
 proc skip {args} {}
 
@@ -310,6 +310,16 @@ do_malloc_test 4 -tclprep {
   db2 close
 }
 
+do_malloc_test 5 -tclbody {
+  sqlite3 dbX test.db
+  sqlite3 dbY test.db
+  dbX close
+  dbY close
+} -cleanup {
+  catch {dbX close}
+  catch {dbY close}
+}
+
 catch {db close}
 sqlite3_enable_shared_cache $::enable_shared_cache
 finish_test