diff options
| author | Kaz Kyheku <kaz@kylheku.com> | 2020-02-07 21:07:54 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-02-07 21:07:54 -0800 |
| commit | 92d77f69a4224c50ced57b32844c0f464b137e92 (patch) | |
| tree | 679a02226d6874b3bcdef18c46f5b924d3572bca /tests/perm.tl | |
| parent | 6d6bb0cae29be50cb3e69d85df6cc0b6fee1ab9d (diff) | |
| download | txr-92d77f69a4224c50ced57b32844c0f464b137e92.tar.gz txr-92d77f69a4224c50ced57b32844c0f464b137e92.tar.bz2 txr-92d77f69a4224c50ced57b32844c0f464b137e92.zip | |
New tests for chmod.
The chmod fixes in the previous several commits were
caught by this.
* Makefile (tst/tests/018/chmod.ok): Set up TXR_ARGS for this
test to give it the location of the temporary file to use
as the object for testing permissions.
(tst/tests/018): Disable TXR_DBG_OPTS for new directory.
* tests/018/chmod.tl: New file.
* tests/018/chmod.expected: Likewise.
* tests/perm.tl: Likewise.
Diffstat (limited to 'tests/perm.tl')
| -rw-r--r-- | tests/perm.tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/perm.tl b/tests/perm.tl new file mode 100644 index 00000000..d9df0b85 --- /dev/null +++ b/tests/perm.tl @@ -0,0 +1,11 @@ +(defun enc-perm (p) + (let ((d (digits (logior 4096 p) 2))) + (mapcar (do if (zerop @2) #\- @1) "sgtrwxrwxrwx" (rest d)))) + +(defun dec-perm (s) + (let ((d (mapcar (do cond + ((eql @1 @2) 1) + ((eql #\- @2) 0) + (t (error `decode-perm: invalid input @s`))) + "sgtrwxrwxrwx" s))) + (poly 2 d))) |