From 81d566cd1c888d2a3e2afd7bc20f9de422b5bd33 Mon Sep 17 00:00:00 2001
From: Pere Diaz Bou <pere-altea@hotmail.com>
Date: Wed, 11 Jun 2025 18:39:06 +0200
Subject: [PATCH] integrity test with tcl

---
 testing/all.test             | 1 +
 testing/integrity_check.test | 7 +++++++
 2 files changed, 8 insertions(+)
 create mode 100644 testing/integrity_check.test

diff --git a/testing/all.test b/testing/all.test
index 474ad1c73..b6e1148f9 100755
--- a/testing/all.test
+++ b/testing/all.test
@@ -36,3 +36,4 @@ source $testdir/null.test
 source $testdir/create_table.test
 source $testdir/collate.test
 source $testdir/values.test
+source $testdir/integrity_check.test
diff --git a/testing/integrity_check.test b/testing/integrity_check.test
new file mode 100644
index 000000000..c62ef282e
--- /dev/null
+++ b/testing/integrity_check.test
@@ -0,0 +1,7 @@
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+do_execsql_test integrity-check {
+    PRAGMA integrity_check;
+} {ok}