Fix VACUUM so that it works on files whose name contains '. Ticket #873 (CVS 1930)

FossilOrigin-Name: 8dd938e48048ffeb11181db9d98112ea2adbcfa6

test/vacuum.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing the VACUUM statement.
 #
-# $Id: vacuum.test,v 1.24 2004/07/26 23:07:52 drh Exp $
+# $Id: vacuum.test,v 1.25 2004/09/02 15:27:42 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -219,4 +219,17 @@ do_test vacuum-7.0 {
 } {}
 db2 close
 
+# Ticket #873.  VACUUM a database that has ' in its name.
+#
+do_test vacuum-8.1 {
+  file delete -force a'z.db
+  file delete -force a'z.db-journal
+  sqlite3 db2 a'z.db
+  execsql {
+    CREATE TABLE t1(t);
+    VACUUM;
+  } db2
+} {}
+db2 close
+
 # finish_test