From 678faa0f4175dfec56f6766434c7ff431f7974f1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 5 Aug 2004 03:16:14 +0000
Subject: [PATCH] forgot test.factor

---
 library/platform/jvm/test.factor | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 library/platform/jvm/test.factor

diff --git a/library/platform/jvm/test.factor b/library/platform/jvm/test.factor
new file mode 100644
index 0000000000..2a4df6f9c3
--- /dev/null
+++ b/library/platform/jvm/test.factor
@@ -0,0 +1,16 @@
+IN: test
+USE: compiler
+USE: namespaces
+USE: stdio
+USE: stack
+USE: test
+USE: words
+
+: must-compile ( word -- )
+    "compile" get [
+        "Checking if " write dup write " was compiled" print
+        dup compile
+        worddef compiled? assert
+    ] [
+        drop
+    ] ifte ;