andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Make test examples more plausible 

* tests/lexer.scm: Replace fake '<sh-cmd>' forms with '<sh-exec>'.
This commit is contained in:
Timothy Sample 2018-07-18 14:21:55 -04:00
parent 5605ea993a
commit 4f1e737cdd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/lexer.scm
View File

@ -336,11 +336,11 @@
;;; ;;;
(test-equal "Recognizes a bracketed command substition" (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 (parameterize ((read-bracketed-command
(lambda (port) (lambda (port)
(string-for-each (lambda _ (read-char port)) "foo") (string-for-each (lambda _ (read-char port)) "foo")
'(<sh-cmd> "foo")))) '(<sh-exec> "foo"))))
(tokenize "$(foo)"))) (tokenize "$(foo)")))
;;; ;;;
@ -348,11 +348,11 @@
;;; ;;;
(test-equal "Recognizes a backquoted command substition" (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 (parameterize ((read-backquoted-command
(lambda (port) (lambda (port)
(string-for-each (lambda _ (read-char port)) "foo") (string-for-each (lambda _ (read-char port)) "foo")
'(<sh-cmd> "foo")))) '(<sh-exec> "foo"))))
(tokenize "`foo`"))) (tokenize "`foo`")))
(test-end) (test-end)