parse [ .. ] into plain command. fixes 10-if-bracket-false, 100-bracket-file.

gash/grammar.scm

@@ -115,9 +115,8 @@
 
      until-clause     <--  until-keyword compound do-group
 
-     test             <-- ltest sp+ (word sp+)+ rtest#
-     ltest            <   '['
-     rtest            <   ']'
+     test             <-  '[' sp+ test-args sp+ ']'#
+     test-args        <-- (sp* word)+
 
      literal          <-  !reserved (escaped / !allowed .)+
      escaped          <-  escape [ \"$]
@@ -285,5 +284,8 @@
 
     (('pipeline ('command ('word "shift"))) '(shift))
 
+    (('command ('word "[" ('test-args test-args ...) "]"))
+     `(command (word "[") ,@(map transform test-args) (word "]")))
+
     ((h t ...) (map transform o))
     (_ o)))

gash/script.scm

@@ -96,6 +96,8 @@
                                                         escape-builtin?))
                  (lambda _ (status:exit-val (apply system* command))))))
           (else (lambda () #t))))
+  (when (> %debug-level 1)
+    (format (current-error-port) "command: ~s\n" args))
   (match args
     (((or "." "source") file-name)
      (let* ((string (with-input-from-file file-name read-string))
@@ -424,8 +426,5 @@
 (define (regex-sep o)
   o)
 
-(define (test . o) ;; TODO replace with implementation in scheme
-  (command (cons "test" o)))
-
 (define (shift . o)
   (apply (shift-command) o))