alysbrooks-public » project-checkup

Location: alysbrooks-public/project-checkup/test/project_checkup/core_test.clj - annotation

Show More
Commit Description:
Update documentation and TODO.
Commit Description:
Update documentation and TODO.
References:
r35:36a04b939ac0 default
File last commit:
r30:00e4925d221b default
Show/Diff file:
Action:
test/project_checkup/core_test.clj
52 lines | 1.8 KiB | text/x-clojure | ClojureLexer
History | Source | Raw | Download
alys
Add associated files.
 r1 (ns project-checkup.core-test
(:require [clojure.test :refer :all]
[project-checkup.core :refer :all]))
alys
Add tests (and bug fix as a result of a test).
 r7 (deftest test-check-vcs
(testing "Ensure the check works."
(is
(check-vcs {:files [".git"]}) )
(is
(check-vcs {:files [".hg"]}) )
alys
Small tweaks to tests.
 r30 (is
(check-vcs {:files [".hg" ".git"]}) ))
(testing "Ensure no false positives."
alys
Add tests (and bug fix as a result of a test).
 r7 (is
(not (check-vcs {:files []})) )
(is ;various almost-correct entries
(not (check-vcs {:files ["hg" "git" "."]})) )))
(deftest test-check-readme
(testing "Ensure READMEs are found correctly."
(is
(check-readme {:files ["README.md"]})))
alys
Small tweaks to tests.
 r30 (testing "Ensure no false positives"
(is
(not (check-readme {:files ["readme.exe"]})))
alys
Add tests (and bug fix as a result of a test).
 r7 (is
(not (check-readme {:files []})))))
(deftest test-check-untracked
(testing "Ensure empty returns true"
alys
Small tweaks to tests.
 r30 (is (check-untracked {:untracked-files []})))
alys
Add tests (and bug fix as a result of a test).
 r7 (testing "Ensure non-empty returns false"
(is (not (check-untracked {:untracked-files [".hg"]})))))
alys
Add license check.
 r15 (deftest test-check-license
(testing "Ensure license is counted"
(is (check-license {:files ["LICENSE.mkd"]}))
(is (check-license {:files ["LICENSE"]})))
(testing "Ensure non-plain text licenses don't count."
(is (not (check-license {:files ["LICENSE.docx"]})))
(is (not (check-license {:files ["LICENSE.pdf"]}))))
(testing "Ensure blank is false."
(is (not (check-license {:files []})))
(is (not (check-license {})))
(is (not (check-license {:files ["licens" "README"]})))))
alys
Add tests (and bug fix as a result of a test).
 r7 (deftest test-get-extension
(testing "test various paths with extensions"
(is (= (get-extension "test.txt") ".txt"))
(is (= (get-extension "./test.txt") ".txt"))
(is (= (get-extension "test.txt.bak") ".bak"))
alys
Add property-based testing (and fix a bug).
 r8 (is (= (get-extension ".hg/test.txt.bak") ".bak"))))