Index: src/test_config.c
==================================================================
--- src/test_config.c
+++ src/test_config.c
@@ -140,10 +140,16 @@
 #ifdef SQLITE_ENABLE_MEMSYS5
   Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY);
 #else
   Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY);
 #endif
+
+#ifdef SQLITE_ENABLE_SNAPSHOT
+  Tcl_SetVar2(interp, "sqlite_options", "snapshot", "1", TCL_GLOBAL_ONLY);
+#else
+  Tcl_SetVar2(interp, "sqlite_options", "snapshot", "0", TCL_GLOBAL_ONLY);
+#endif
 
 #ifdef SQLITE_MUTEX_OMIT
   Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY);
 #else
   Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY);

Index: test/snapshot.test
==================================================================
--- test/snapshot.test
+++ test/snapshot.test
@@ -12,10 +12,11 @@
 # of this file is the sqlite3_snapshot_xxx() APIs.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+ifcapable !snapshot {finish_test; return}
 set testprefix snapshot
 
 #-------------------------------------------------------------------------
 # Check some error conditions in snapshot_get(). It is an error if:
 #
@@ -335,6 +336,5 @@
   db2 eval { SELECT * FROM x1 }
 } {z zz zzz}
 sqlite3_snapshot_free $snapshot
 
 finish_test
-

Index: test/snapshot_fault.test
==================================================================
--- test/snapshot_fault.test
+++ test/snapshot_fault.test
@@ -12,10 +12,11 @@
 # of this file is the sqlite3_snapshot_xxx() APIs.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+ifcapable !snapshot {finish_test; return}
 set testprefix snapshot_fault
 
 #-------------------------------------------------------------------------
 # Check that an sqlite3_snapshot_open() client cannot be tricked into
 # reading a corrupt snapshot even if a second client fails while 
@@ -159,6 +160,5 @@
 }
 
 
 
 finish_test
-