]> gitweb.factorcode.org Git - factor.git/blob - extra/benchmark/regex-dna/regex-dna-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / extra / benchmark / regex-dna / regex-dna-tests.factor
1 USING: benchmark.regex-dna io io.files io.encodings.ascii
2 io.streams.string kernel tools.test splitting ;
3 IN: benchmark.regex-dna.tests
4
5 [ t ] [
6     "resource:extra/benchmark/regex-dna/regex-dna-test-in.txt"
7     [ regex-dna ] with-string-writer
8     "resource:extra/benchmark/regex-dna/regex-dna-test-out.txt"
9     ascii file-contents =
10 ] unit-test