Add missing characters to :std/cli/shell/easy-shell-character? (#1081)

This PR adds missing characters (y, Y and 9) to `:std/cli/shell/easy-shell-character?` example and test.
mighty-gerbils · Dec 7, 2023 · e687155 · e687155
1 parent 50e8ac5
commit e687155
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/doc/reference/std/cli/shell.md b/doc/reference/std/cli/shell.md
@@ -29,7 +29,7 @@ For good measure we also quote strings containing non-ASCII characters.
 ::: tip Examples:
 ```scheme
 > (string-for-each (lambda (c) (or (easy-shell-character? c) (error "foo")))
-    "abcdefghijklmnopqrstuvwxzABCDEFGHIJKLMNOPQRSTUVWXZ012345678@%+,-./:=@_") ;; no error
+    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@%+,-./:=@_") ;; no error
 > (string-for-each (lambda (c) (or (not (easy-shell-character? c)) (error "foo")))
     "!`~#$^&*()[{]}\\|;'\"<>? \r\n\t\v") ;; no error either
 ```

diff --git a/src/std/cli/shell-test.ss b/src/std/cli/shell-test.ss
@@ -11,7 +11,7 @@
   (test-suite "test :std/misc/shell"
     (test-case "easy-shell-character?"
       (string-for-each (lambda (c) (check (easy-shell-character? c) => #t))
-                       "abcdefghijklmnopqrstuvwxzABCDEFGHIJKLMNOPQRSTUVWXZ012345678%+,-./:=@_")
+                       "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789%+,-./:=@_")
       (string-for-each (lambda (c) (check (easy-shell-character? c) => #f))
                        "!`~#$^&*()[{]}\\|;'\"<>? \r\n\t\v"))
     (test-case "needs-shell-escape?, escape-shell-token"