diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-07-05 00:13:19 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-05 14:36:38 -0700 |
| commit | ad177acffef725169f3dcf9bf87e487251da92e5 (patch) | |
| tree | 431c78da98cb9e908e04f7054967ad157bd162ef /tests | |
| parent | ab44f937306b352e82d1c02c0a173748a8b33181 (diff) | |
| download | txr-ad177acffef725169f3dcf9bf87e487251da92e5.tar.gz txr-ad177acffef725169f3dcf9bf87e487251da92e5.tar.bz2 txr-ad177acffef725169f3dcf9bf87e487251da92e5.zip | |
tests: fix malformed chmod.tl.
* tests/018/chmod.tl (os): Fix final parentheses of defvarl form
accidentally encompassing the rest of the source file. Replace tabs with
spaces.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/018/chmod.tl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/tests/018/chmod.tl b/tests/018/chmod.tl index cadfb077..91f61724 100644 --- a/tests/018/chmod.tl +++ b/tests/018/chmod.tl @@ -7,7 +7,7 @@ (with-stream (s (open-file tgt "w"))) (umask #o022) -(defvarl os (os-symbol) +(defvarl os (os-symbol)) (defvarl test-sticky (unless (eq os :openbsd) (chmod tgt s-isvtx) @@ -21,19 +21,19 @@ (when (or test-sticky (not (find #\t `@init@mode@expected`))) (let ((ini (dec-perm init)) - (exp (dec-perm expected))) + (exp (dec-perm expected))) (chmod tgt ini) (let* ((st (stat tgt)) - (m (mode-bits st.mode))) - (unless (eql m ini) - (error "failed to set initial mode: expected: ~s, actual: ~s " - init (enc-perm m)))) + (m (mode-bits st.mode))) + (unless (eql m ini) + (error "failed to set initial mode: expected: ~s, actual: ~s " + init (enc-perm m)))) (chmod tgt mode) (let* ((st (stat tgt)) - (m (mode-bits st.mode))) - (unless (eql m exp) - (error "failed to set mode with ~s: expected ~s, actual ~s" - mode expected (enc-perm m))))))) + (m (mode-bits st.mode))) + (unless (eql m exp) + (error "failed to set mode with ~s: expected ~s, actual ~s" + mode expected (enc-perm m))))))) (cht "------------" "a+strwx" "sgtrwxrwxrwx") (cht "------------" "+strwx" "sgtrwxr-xr-x") @@ -59,4 +59,4 @@ (cht "-----x------" "=,a+X" "------------") (cht "-----x------" "a-x+X" "------------") (cht "------------" "u+x-X" "------------") -(cht "------------" "o+x=o" "-----------x")) +(cht "------------" "o+x=o" "-----------x") |