diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-06-05 07:30:46 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-06-05 07:30:46 -0700 |
| commit | 4508e338c224bae1b6c5c4492c1f26f8720467cc (patch) | |
| tree | 0d4d9cd888a04c3bdc82217ef35617988173d3d5 /tests/018 | |
| parent | 872fb35a878a0a4d6df4f48ce3683eb432db7a31 (diff) | |
| download | txr-4508e338c224bae1b6c5c4492c1f26f8720467cc.tar.gz txr-4508e338c224bae1b6c5c4492c1f26f8720467cc.tar.bz2 txr-4508e338c224bae1b6c5c4492c1f26f8720467cc.zip | |
clean-file: tests.
* tests/018/clean.tl: New file.
* tests/018/clean.expected: New file.
Diffstat (limited to 'tests/018')
| -rw-r--r-- | tests/018/clean.expected | 100 | ||||
| -rw-r--r-- | tests/018/clean.tl | 10 |
2 files changed, 110 insertions, 0 deletions
diff --git a/tests/018/clean.expected b/tests/018/clean.expected new file mode 100644 index 00000000..25b0c86c --- /dev/null +++ b/tests/018/clean.expected @@ -0,0 +1,100 @@ +(let ((*load-path* + ())) + (clean-file "nabuchodonosor.tl")) +--> +(remove-path ("nabuchodonosor.tlo" nil) + nil) +(remove-path ("nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + ())) + (clean-file "nabuchodonosor.txr")) +--> +(remove-path ("nabuchodonosor.tlo" nil) + nil) +(remove-path ("nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + ())) + (clean-file "nabuchodonosor.tlo")) +--> +(remove-path ("nabuchodonosor.tlo" nil) + nil) + +(let ((*load-path* + ())) + (clean-file "nabuchodonosor.tlo.gz")) +--> +(remove-path ("nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + ())) + (clean-file "nabuchodonosor.abc")) +--> +(remove-path ("nabuchodonosor.abc.tlo" nil) + nil) +(remove-path ("nabuchodonosor.abc.tlo.gz" nil) + nil) + +(let ((*load-path* + ())) + (clean-file "nabuchodonosor")) +--> +(remove-path ("nabuchodonosor.tlo" nil) + nil) +(remove-path ("nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + "/tmp/foo.tlo")) + (clean-file "nabuchodonosor.tl")) +--> +(remove-path ("/tmp/nabuchodonosor.tlo" nil) + nil) +(remove-path ("/tmp/nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + "/tmp/foo.tlo")) + (clean-file "nabuchodonosor.txr")) +--> +(remove-path ("/tmp/nabuchodonosor.tlo" nil) + nil) +(remove-path ("/tmp/nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + "/tmp/foo.tlo")) + (clean-file "nabuchodonosor.tlo")) +--> +(remove-path ("/tmp/nabuchodonosor.tlo" nil) + nil) + +(let ((*load-path* + "/tmp/foo.tlo")) + (clean-file "nabuchodonosor.tlo.gz")) +--> +(remove-path ("/tmp/nabuchodonosor.tlo.gz" nil) + nil) + +(let ((*load-path* + "/tmp/foo.tlo")) + (clean-file "nabuchodonosor.abc")) +--> +(remove-path ("/tmp/nabuchodonosor.abc.tlo" nil) + nil) +(remove-path ("/tmp/nabuchodonosor.abc.tlo.gz" nil) + nil) + +(let ((*load-path* + "/tmp/foo.tlo")) + (clean-file "nabuchodonosor")) +--> +(remove-path ("/tmp/nabuchodonosor.tlo" nil) + nil) +(remove-path ("/tmp/nabuchodonosor.tlo.gz" nil) + nil) + diff --git a/tests/018/clean.tl b/tests/018/clean.tl new file mode 100644 index 00000000..ed6f29a3 --- /dev/null +++ b/tests/018/clean.tl @@ -0,0 +1,10 @@ +(trace remove-path) + +(each ((*load-path* '(nil "/tmp/foo.tlo"))) + (each ((name '#"nabuchodonosor.tl nabuchodonosor.txr \ + nabuchodonosor.tlo nabuchodonosor.tlo.gz \ + nabuchodonosor.abc nabuchodonosor")) + (prinl ^(let ((*load-path* , *load-path*)) (clean-file ,name))) + (put-line "-->") + (clean-file name) + (put-line))) |