1 ! Copyright (C) 2009 Daniel Ehrenberg.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test regexp.negation regexp.transition-tables regexp.classes ;
4 IN: regexp.negation.tests
10 { 0 H{ { CHAR: a 1 } { T{ not-class f CHAR: a } -1 } } }
15 { final-states HS{ 0 -1 } }
21 { 0 H{ { CHAR: a 1 } } }
25 { final-states HS{ 1 } }