<commit_before>(ns cake.tasks.test-test
  (:use clojure.test helpers cake))

(use-fixtures :once in-test-project)

(deftest test-context
  (is (= 'test (:context *project*))))

(deftest test-tags
  (let [results (cake "test" ":foo" ":bar" ":baz")]
    (is (re-find #":baz:"    (:out results)))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" ":foo" ":bar")]
    (is (not (re-find #":baz:" (:out results))))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" ":foo")]
    (is (not (re-find #":baz:" (:out results))))
    (is (not (re-find #":bar:" (:out results))))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" ":baz")]
    (is (not (re-find #":foo:"    (:out results))))
    (is (not (re-find #":bar:"    (:out results))))
    (is (not (re-find #":foobar:" (:out results))))
    (is (re-find #":baz:" (:out results))))
  (let [results (cake "test" ":bar")]
    (is (not (re-find #":baz:" (:out results))))
    (is (not (re-find #":foo:" (:out results))))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results)))))


(deftest test-namespaces
  (let [results (cake "test" "test-foo-bar")]
    (is (not (re-find #":baz:" (:out results))))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" "test-baz")]
    (is (not (re-find #":foo:"    (:out results))))
    (is (not (re-find #":bar:"    (:out results))))
    (is (not (re-find #":foobar:" (:out results))))
    (is (re-find #":baz:" (:out results)))))

(deftest test-functions
  (let [results (cake "test" "test-foo-bar/foo")]
    (is (not (re-find #":baz:"    (:out results))))
    (is (not (re-find #":bar:"    (:out results))))
    (is (not (re-find #":foobar:" (:out results))))<commit_msg>empty line<commit_after>(ns cake.tasks.test-test
  (:use clojure.test helpers cake))

(use-fixtures :once in-test-project)

(deftest test-context
  (is (= 'test (:context *project*))))

(deftest test-tags
  (let [results (cake "test" ":foo" ":bar" ":baz")]
    (is (re-find #":baz:"    (:out results)))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" ":foo" ":bar")]
    (is (not (re-find #":baz:" (:out results))))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" ":foo")]
    (is (not (re-find #":baz:" (:out results))))
    (is (not (re-find #":bar:" (:out results))))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" ":baz")]
    (is (not (re-find #":foo:"    (:out results))))
    (is (not (re-find #":bar:"    (:out results))))
    (is (not (re-find #":foobar:" (:out results))))
    (is (re-find #":baz:" (:out results))))
  (let [results (cake "test" ":bar")]
    (is (not (re-find #":baz:" (:out results))))
    (is (not (re-find #":foo:" (:out results))))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results)))))

(deftest test-namespaces
  (let [results (cake "test" "test-foo-bar")]
    (is (not (re-find #":baz:" (:out results))))
    (is (re-find #":foo:"    (:out results)))
    (is (re-find #":bar:"    (:out results)))
    (is (re-find #":foobar:" (:out results))))
  (let [results (cake "test" "test-baz")]
    (is (not (re-find #":foo:"    (:out results))))
    (is (not (re-find #":bar:"    (:out results))))
    (is (not (re-find #":foobar:" (:out results))))
    (is (re-find #":baz:" (:out results)))))

(deftest test-functions
  (let [results (cake "test" "test-foo-bar/foo")]
    (is (not (re-find #":baz:"    (:out results))))
    (is (not (re-find #":bar:"    (:out results))))
    (is (not (re-find #":foobar:" (:out results))))
{'fraction_non_alphanumeric': 0.27147603227337447, 'fraction_numerical': 0.0, 'mean_word_length': 3.413612565445026, 'pattern_counts': {'":': 78, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6118101', 'n_tokens_mistral': 1681, 'n_tokens_neox': 1557, 'n_words': 468}