set testdir [file dirname $argv0] source $testdir/tester.tcl do_execsql_test integrity-check { PRAGMA integrity_check; } {ok}