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)))