From 8a40ef0cdda5d4d8dc84720c47112ab26dadb5b6 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-122.local>
Date: Mon, 2 Mar 2009 16:30:42 -0600
Subject: [PATCH] Adding unit tests

---
 basis/regexp/disambiguate/disambiguate.factor | 6 ++++--
 basis/regexp/regexp-tests.factor              | 2 ++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/basis/regexp/disambiguate/disambiguate.factor b/basis/regexp/disambiguate/disambiguate.factor
index 0b63351e0c..b8c03d7a3b 100644
--- a/basis/regexp/disambiguate/disambiguate.factor
+++ b/basis/regexp/disambiguate/disambiguate.factor
@@ -33,7 +33,9 @@ TUPLE: parts in out ;
         ] assoc-map
     ] change-transitions ;
 
+USE: sorting
+
 : nfa>dfa ( nfa -- dfa )
-    construct-dfa
-    minimize disambiguate
+    construct-dfa minimize
+    disambiguate
     construct-dfa minimize ;
diff --git a/basis/regexp/regexp-tests.factor b/basis/regexp/regexp-tests.factor
index 742b16dc41..9d94c4126b 100644
--- a/basis/regexp/regexp-tests.factor
+++ b/basis/regexp/regexp-tests.factor
@@ -3,6 +3,8 @@ regexp.traversal eval strings multiline accessors regexp.matchers ;
 IN: regexp-tests
 
 \ <regexp> must-infer
+\ compile-regexp must-infer
+\ compile-dfa-quot must-infer
 \ matches? must-infer
 
 [ f ] [ "b" "a*" <regexp> matches? ] unit-test