builtins: test: Fix a = b.
This commit is contained in:
parent
d4f58ffa19
commit
f7617fce47
1
check.sh
1
check.sh
|
@ -124,6 +124,7 @@ tests='
|
||||||
100-cd
|
100-cd
|
||||||
100-cd-foo
|
100-cd-foo
|
||||||
|
|
||||||
|
100-test
|
||||||
100-test-file
|
100-test-file
|
||||||
100-bracket-file
|
100-bracket-file
|
||||||
|
|
||||||
|
|
|
@ -298,10 +298,11 @@ Options:
|
||||||
"))
|
"))
|
||||||
(version? (format #t "test (GASH) ~a\n" %version))
|
(version? (format #t "test (GASH) ~a\n" %version))
|
||||||
((null? files) #f)
|
((null? files) #f)
|
||||||
((or (option-ref options 'n #f)
|
((or (option-ref options 'string-not-null #f)
|
||||||
no-options?)
|
(and no-options?
|
||||||
|
(= (length files) 1)))
|
||||||
(not (string-null? file)))
|
(not (string-null? file)))
|
||||||
((option-ref options 'z #f)
|
((option-ref options 'string-null #f)
|
||||||
(string-null? file))
|
(string-null? file))
|
||||||
((and (= (length files) 3)
|
((and (= (length files) 3)
|
||||||
(member (cadr files) '("=" "==")))
|
(member (cadr files) '("=" "==")))
|
||||||
|
|
|
@ -0,0 +1,3 @@
|
||||||
|
if test a = b; then
|
||||||
|
exit 1;
|
||||||
|
fi
|
Loading…
Reference in New Issue