summaryrefslogtreecommitdiffstats
path: root/tests/019/load-hook.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/019/load-hook.tl')
-rw-r--r--tests/019/load-hook.tl18
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/019/load-hook.tl b/tests/019/load-hook.tl
new file mode 100644
index 00000000..0f33d081
--- /dev/null
+++ b/tests/019/load-hook.tl
@@ -0,0 +1,18 @@
+(load "../common")
+
+(defvarl %dir% (dir-name *load-path*))
+
+(compile-file "../load-hook")
+(test counter 0)
+
+(push (lambda ()
+ (remove-path (path-cat %dir% "../load-hook.tlo")))
+ *load-hooks*)
+
+(set counter nil)
+(load "../load-hook.tl")
+(test counter 1)
+
+(set counter nil)
+(load "../load-hook.tlo")
+(test counter 1)