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

test: 04-word-at.

This commit is contained in:
Jan Nieuwenhuizen 2018-12-02 09:42:35 +01:00
parent 632295fa18
commit 39761c0087
4 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
check.sh
View File

@ -31,6 +31,7 @@ tests='
04-echo-var 04-echo-var
04-echo-equal 04-echo-equal
04-echo-word-at
05-assignment 05-assignment
05-assignment-echo 05-assignment-echo

4
gash/script.scm
View File

@ -105,8 +105,8 @@
(run ast) (run ast)
0)) 0))
(((? string?) ..1) (exec (append-map glob args))) (((? string?) ..1) (exec (append-map glob args)))
(((and (or (? string?)) c) ((and (? string?) a) ...)) (((and (or (? string?)) c) ... ((and (? string?) a) ...))
(exec (append-map glob (cons c a)))) (apply command (append c a)))
(_ (exec (append-map glob args))))) (_ (exec (append-map glob args)))))
(define (glob? pattern) (define (glob? pattern)

1
test/04-echo-word-at.sh Normal file
View File

@ -0,0 +1 @@
echo command $@

1
test/04-echo-word-at.stdout Normal file
View File

@ -0,0 +1 @@
command -s --long file0 file1