From 0e6562013accadc70824af9d790c4fb334dcf972 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 30 Nov 2006 22:24:36 +0000
Subject: [PATCH] test-module now loads the module first if necessary

---
 core/modules.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/modules.factor b/core/modules.factor
index 70441e2044..4e5acb4663 100644
--- a/core/modules.factor
+++ b/core/modules.factor
@@ -75,7 +75,9 @@ M: module-link module-name module-link-name ;
     [ module-files* run-files ] keep
     modules get push ;
 
-: test-module ( name -- ) module module-tests* run-tests ;
+: test-module ( name -- )
+    dup require
+    module module-tests* run-tests ;
 
 : test-modules ( -- )
     modules get [ module-tests* ] map concat run-tests ;