steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding unit tests

db4
Daniel Ehrenberg 2009-03-02 16:30:42 -06:00
parent 0b5ebce339
commit 8a40ef0cdd
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/regexp/disambiguate/disambiguate.factor
View File

@ -33,7 +33,9 @@ TUPLE: parts in out ;
] assoc-map ] assoc-map
] change-transitions ; ] change-transitions ;
USE: sorting
: nfa>dfa ( nfa -- dfa ) : nfa>dfa ( nfa -- dfa )
construct-dfa construct-dfa minimize
minimize disambiguate disambiguate
construct-dfa minimize ; construct-dfa minimize ;

2
basis/regexp/regexp-tests.factor
View File

@ -3,6 +3,8 @@ regexp.traversal eval strings multiline accessors regexp.matchers ;
IN: regexp-tests IN: regexp-tests
\ <regexp> must-infer \ <regexp> must-infer
\ compile-regexp must-infer
\ compile-dfa-quot must-infer
\ matches? must-infer \ matches? must-infer
[ f ] [ "b" "a*" <regexp> matches? ] unit-test [ f ] [ "b" "a*" <regexp> matches? ] unit-test