Adding unit tests

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 ;

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