From 4f1e737cddb9075a006e37fe7ad9d4f92963c116 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Wed, 18 Jul 2018 14:21:55 -0400
Subject: [PATCH] Make test examples more plausible

* tests/lexer.scm: Replace fake '<sh-cmd>' forms with '<sh-exec>'.
---
 tests/lexer.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/lexer.scm b/tests/lexer.scm
index db3417c..f924795 100644
--- a/tests/lexer.scm
+++ b/tests/lexer.scm
@@ -336,11 +336,11 @@
 ;;;
 
 (test-equal "Recognizes a bracketed command substition"
-  '((WORD (0 . 6) (<sh-cmd-sub> (<sh-cmd> "foo"))))
+  '((WORD (0 . 6) (<sh-cmd-sub> (<sh-exec> "foo"))))
   (parameterize ((read-bracketed-command
                   (lambda (port)
                     (string-for-each (lambda _ (read-char port)) "foo")
-                    '(<sh-cmd> "foo"))))
+                    '(<sh-exec> "foo"))))
     (tokenize "$(foo)")))
 
 ;;;
@@ -348,11 +348,11 @@
 ;;;
 
 (test-equal "Recognizes a backquoted command substition"
-  '((WORD (0 . 5) (<sh-cmd-sub> (<sh-cmd> "foo"))))
+  '((WORD (0 . 5) (<sh-cmd-sub> (<sh-exec> "foo"))))
   (parameterize ((read-backquoted-command
                   (lambda (port)
                     (string-for-each (lambda _ (read-char port)) "foo")
-                    '(<sh-cmd> "foo"))))
+                    '(<sh-exec> "foo"))))
     (tokenize "`foo`")))
 
 (test-end)