diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-27 09:07:36 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-27 09:07:36 -0700 |
| commit | 7264a34446de3b4760d00af7873ee3558fc9145b (patch) | |
| tree | f30101fea0ce9c3447afbfd6bb7c50680b4e2faa /tests | |
| parent | dc9e7657334b68f9acb8ca2145ffe1dad9908b57 (diff) | |
| download | txr-7264a34446de3b4760d00af7873ee3558fc9145b.tar.gz txr-7264a34446de3b4760d00af7873ee3558fc9145b.tar.bz2 txr-7264a34446de3b4760d00af7873ee3558fc9145b.zip | |
regex-from-trie: bugfix: incomplete regex.
* filter.c (regex_from_trie): The code is neglecting to check
whether there is a match of the input *at* the given hash
table, which is true if it has user data. In that case, the
empty regex must be added as a parallel branch.
* tests/015/trie.tl: The first regex test case works now.
The second one is incorrect and is replaced.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/015/trie.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/015/trie.tl b/tests/015/trie.tl index f233c76e..48e7e050 100644 --- a/tests/015/trie.tl +++ b/tests/015/trie.tl @@ -46,4 +46,4 @@ (mvtest (build (each ((d dat)) (add [rx0 d]))) dat - (build (each ((n enu)) (add [rx0 n]))) (repeat '(nil) (len dat))) + (build (each ((n ndt)) (add [rx0 n]))) (repeat '(nil) (len dat))) |