Missing else-clause in strings-test.scm (trivial patch)

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Missing else-clause in strings-test.scm (trivial patch)

Sudarshan S Chawathe

The cond-expand near the end of testsuite/strings-test.scm is missing an
else clause.  It's probably fine as is but the else clause may be worth
adding just for consistency.

Regards,

-chaw


diff --git a/testsuite/strings-test.scm b/testsuite/strings-test.scm
index ef655e1..c12e528 100644
--- a/testsuite/strings-test.scm
+++ b/testsuite/strings-test.scm
@@ -2871,8 +2871,8 @@
   (test-equal "c😼b😂a" (reverse-list->string '(#\a #\😂 #\b #\😼 #\c)))
 
   (test-equal "y😂a😼xy" (xsubstring "a😼xy😂" 3 9))
-  (test-equal "y😂a😼" (xsubstring "a😼xy😂" -2 2))
-))
+  (test-equal "y😂a😼" (xsubstring "a😼xy😂" -2 2)))
 ;; end section with UTF-8 literals
+ (else))
 
 (test-end)