From e7974dd2688483df0a0d9444178f20f2d632cefc Mon Sep 17 00:00:00 2001
From: "D. Bohdan" <dbohdan@dbohdan.com>
Date: Thu, 9 May 2024 15:09:14 +0000
Subject: [PATCH] test: add two Web query translation tests

---
 tests/tests.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/tests/tests.tcl b/tests/tests.tcl
index 5ae3a3d..bc10af0 100755
--- a/tests/tests.tcl
+++ b/tests/tests.tcl
@@ -1,6 +1,7 @@
 #! /usr/bin/env tclsh
 # ==============================================================================
-# Copyright (c) 2019-2022 D. Bohdan and contributors listed in AUTHORS
+# Copyright (c) 2019-2022, 2024 D. Bohdan
+# and contributors listed in AUTHORS
 #
 # Permission is hereby granted, free of charge, to any person obtaining a copy
 # of this software and associated documentation files (the "Software"), to deal
@@ -116,6 +117,13 @@ tcltest::test translate-query-1.3 {} -body {
     translate-query::web foo\\\"bar
 } -result \"foo\\\"bar\"
 
+tcltest::test translate-query-1.4 {} -body {
+    translate-query::web {foo bar's baz}
+} -result {"foo" "bar's" "baz"}
+
+tcltest::test translate-query-1.5 {} -body {
+    translate-query::web {foo "bar's baz"}
+} -result {"foo" "bar's baz"}
 
 
 ### Integration: tools.