diff options
Diffstat (limited to 'tests/018/clean.tl')
-rw-r--r-- | tests/018/clean.tl | 10 |
1 files changed, 10 insertions, 0 deletions
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))) |