Fix recent test case changes so that they also work on Windows.

FossilOrigin-Name: 38578b5af2e97c420f3106bc486318604aecbaa327365bbc2e9518be84491495

test/pragma4.test

@@ -83,7 +83,7 @@ foreach {tn sql} {
 # Verify that that P4_INTARRAY argument to OP_IntegrityCk is rendered
 # correctly.
 #
-db close
+catch {db close}
 forcedelete test.db
 sqlite3 db test.db
 do_test pragma4-2.100 {
@@ -266,8 +266,12 @@ do_execsql_test 5.0 {
 
 # 2024-03-24 https://sqlite.org/forum/forumpost/85b6a8b6705fb77a
 #
+catch {db2 close}
+catch {db3 close}
 reset_db
 do_execsql_test 6.0 {
+  DROP TABLE IF EXISTS t1;
+  DROP TABLE IF EXISTS t2;
   CREATE TABLE t1(a INT PRIMARY KEY, b INT);
   CREATE TABLE t2(c INT PRIMARY KEY, d INT REFERENCES t1);
   SELECT t.name, f."table", f."from", i.name, i.pk

test/readonly.test

@@ -15,6 +15,7 @@
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+if {$tcl_platform(platform)=="windows"} finish_test
 source $testdir/lock_common.tcl
 source $testdir/wal_common.tcl
 set ::testprefix readonly