Index: test/incrblob2.test
==================================================================
--- test/incrblob2.test
+++ test/incrblob2.test
@@ -10,11 +10,11 @@
 #***********************************************************************
 #
 # Test that it is possible to have two open blob handles on a single
 # blob object.
 #
-# $Id: incrblob2.test,v 1.4 2008/06/16 14:19:58 danielk1977 Exp $
+# $Id: incrblob2.test,v 1.5 2008/06/16 14:36:01 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
@@ -345,8 +345,12 @@
 } [expr 10 * 1024 * 1024]
 
 do_test incrblob2-7.4 {
   expr {[sqlite3_memory_highwater]<(5 * 1024 * 1024)}
 } {1}
+
+do_test incrblob2-7.5 {
+  close $h
+} {}
 
 finish_test