From a95fcc0fc1bcae8befc7d36264d0398764c6d31b Mon Sep 17 00:00:00 2001
From: Kim Seon Woo <69591622+seonwoo960000@users.noreply.github.com>
Date: Sun, 18 Aug 2024 06:08:08 +0200
Subject: [PATCH] Fix test to check whether error message is included

---
 testing/tester.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/testing/tester.tcl b/testing/tester.tcl
index d8a715c8f..de3d9683d 100644
--- a/testing/tester.tcl
+++ b/testing/tester.tcl
@@ -16,9 +16,9 @@ proc run_test {sqlite_exec sql expected_output} {
     }
 }
 
-proc run_failing_test {sqlite_exec sql expected_err_msg} {
+proc run_test_check_err_msg {sqlite_exec sql expected_err_msg} {
     set actual_output [catch {set actual_output [evaluate_sql $sqlite_exec $sql]} err_msg]
-    if {$err_msg ne $expected_err_msg} {
+    if {[string first $expected_err_msg $err_msg] == -1} {
         puts "Test FAILED: '$sql'"
         puts "returned '$err_msg'"
         puts "expected '$expected_err_msg'"
@@ -48,7 +48,7 @@ proc do_execsql_test {test_name sql_statements expected_outputs} {
 proc do_execsql_check_err_msg {test_name sql_statements expected_err_msg} {
     puts "Running test: $test_name"
     set combined_sql [string trim $sql_statements]
-    run_failing_test $::sqlite_exec $combined_sql $expected_err_msg
+    run_test_check_err_msg $::sqlite_exec $combined_sql $expected_err_msg
 }
 
 proc do_execsql_with_cleanup_test {test_name sql_statements expected_outputs cleanup_statements} {