Showing the changes to test (1 of 4 files). Show all
Unified · Split
| @@ -839,9 +839,9 @@ · 838 unmodified lines | ||
| 839 | 839 | |
| 840 | 840 | (assert (eq? (sym 'blah) 'blah)) |
| 841 | 841 | (assert (eq? (sym "hi" "there" 'symbol 123) 'hitheresymbol123)) |
| 842 | −(assert-fail (sym) arg-error) | |
| 842 | +(assert-fail (sym) arity-error) | |
| 843 | 843 | |
| 844 | −(assert-fail (exit "error" 2) arg-error) | |
| 844 | +(assert-fail (exit "error" 2) arity-error) | |
| 845 | 845 | |
| 846 | 846 | (assert (not (int-valued? T))) |
| 847 | 847 | (assert (not (int-valued? NIL))) |
| @@ -991,7 +991,7 @@ · 143 unmodified lines | ||
| 991 | 991 | ; path-cwd |
| 992 | 992 | (assert (str? (path-cwd))) |
| 993 | 993 | (assert (path-cwd ".")) |
| 994 | −(assert-fail (path-cwd "." ".") arg-error) | |
| 994 | +(assert-fail (path-cwd "." ".") arity-error) | |
| 995 | 995 | (assert-fail (path-cwd "does/not/exist") io-error) |
| 996 | 996 | |
| 997 | 997 | ; path-exists? + delete-file |
| @@ -1014,9 +1014,9 @@ · 16 unmodified lines | ||
| 1014 | 1014 | (assert (os-setenv "thisvarisdefined" NIL)) |
| 1015 | 1015 | (assert (not (os-getenv "thisvarisdefined"))) |
| 1016 | 1016 | (assert-fail (os-getenv)) |
| 1017 | −(assert-fail (os-getenv "abc" "def")) | |
| 1018 | −(assert-fail (os-setenv)) | |
| 1019 | −(assert-fail (os-setenv "" "def")) | |
| 1017 | +(assert-fail (os-getenv "abc" "def") arity-error) | |
| 1018 | +(assert-fail (os-setenv) arity-error) | |
| 1019 | +(assert-fail (os-setenv "" "def") arg-error) | |
| 1020 | 1020 | (if (equal? *os-name* "plan9") |
| 1021 | 1021 | (begin (assert-fail (os-setenv ".." "def")) |
| 1022 | 1022 | (assert (not (os-getenv "..")))) |