unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / triggers / triggers-tests.factor

diff --git a/triggers/triggers-tests.factor b/triggers/triggers-tests.factor
new file mode 100644 (file)
index 0000000..744a4b1
--- /dev/null
+++ b/triggers/triggers-tests.factor
@@ -0,0 +1,14 @@
+USING: triggers kernel tools.test ;
+IN: triggers.tests
+
+SYMBOL: test-trigger
+test-trigger reset-trigger
+: add-test-trigger test-trigger add-trigger ;
+[ ] [ test-trigger call-trigger ] unit-test
+[ "op called" ] [ "op" [ "op called" ] add-test-trigger test-trigger call-trigger ] unit-test
+[ "first called" "second called" ] [
+    test-trigger reset-trigger
+    "second op" [ "second called" ] add-test-trigger
+    "first op" [ "first called" ] add-test-trigger
+    test-trigger call-trigger
+] unit-test