(ns project-checkup.core-test
  (:require [clojure.test :refer :all]
            [project-checkup.core :refer :all]))



(deftest test-check-vcs 
  (testing "Ensure the check works."
    (is 
      (check-vcs {:files [".git"]}) )
    (is 
      (check-vcs {:files [".hg"]}) )
    (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"]})))
   (testing "Ensure no false positives"
     (is 
       (not (check-readme {:files ["readme.exe"]})))
   (is 
     (not (check-readme {:files []})))))

(deftest test-check-untracked
  (testing "Ensure empty returns true"
    (is (check-untracked {:untracked-files []}))
    )
  (testing "Ensure non-empty returns false"
    (is (not (check-untracked {:untracked-files [".hg"]})))))


(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"))
    (is (= (get-extension ".hg/test.txt.bak") ".bak"))
    )
  )