summaryrefslogtreecommitdiffstats
path: root/tests/018
diff options
context:
space:
mode:
Diffstat (limited to 'tests/018')
-rw-r--r--tests/018/chmod.tl6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/018/chmod.tl b/tests/018/chmod.tl
index 8cde28eb..7963f303 100644
--- a/tests/018/chmod.tl
+++ b/tests/018/chmod.tl
@@ -4,20 +4,20 @@
(defvarl tgt [*args* 0])
(defmacro mode-bits (st-mode)
- (logand st-mode #xFFF))
+ ^(logand ,st-mode #xFFF))
(defun cht (init mode expected)
(let ((ini (dec-perm init))
(exp (dec-perm expected)))
(chmod tgt ini)
(let* ((st (stat tgt))
- (m (logand st.mode #xFFF)))
+ (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 (logand st.mode #xFFF)))
+ (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))))))