From e8b7ce94cf8a1f386e7d0fb4eb4961cc85157b4d Mon Sep 17 00:00:00 2001 From: Joel Holdbrooks Date: Tue, 20 Aug 2013 00:24:15 -0700 Subject: [PATCH] Minor test refactoring --- test/frak_test.clj | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/test/frak_test.clj b/test/frak_test.clj index 6f71e3c..3af8cb6 100644 --- a/test/frak_test.clj +++ b/test/frak_test.clj @@ -34,20 +34,20 @@ (deftest pattern-test (let [strs1 ["foo" "bar" "baz"] strs2 ["baz" "bar" "foo"] - pat1 (pattern strs1) - pat2 (pattern strs2)] - (is (every? #(re-matches pat1 %) strs1)) + match1 (partial re-matches (pattern strs1)) + match2 (partial re-matches (pattern strs2))] + (is (every? match1 strs1)) - (is (every? #(re-matches pat2 %) strs1)) + (is (every? match2 strs1)) - (is (every? #(re-matches pat1 %) strs2)) + (is (every? match1 strs2)) - (is (every? #(re-matches pat2 %) strs2)) + (is (every? match2 strs2)) - (is (not (or (re-matches pat1 "f") - (re-matches pat1 "b") - (re-matches pat1 "ba") - (re-matches pat1 "fo"))))) + (is (not (or (match1 "f") + (match1 "b") + (match1 "ba") + (match1 "fo"))))) (is (= (string-pattern ["foo" "foot"] nil) (string-pattern ["foo" "" "foot"] nil))) -- 2.25.1