alysbrooks-public/project-checkup Files · test/project_checkup/core_test.clj

alysbrooks-public » project-checkup

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

Commit Description:

Add tests (and bug fix as a result of a test).

Commit Description:

Add tests (and bug fix as a result of a test).

References:

r7:3f636ffe886d default

File last commit:

r7:3f636ffe886d default

Show/Diff file:

Action:

            
                    test/project_checkup/core_test.clj
                
            44 lines
             | 1.2 KiB
             | text/x-clojure 
             | ClojureLexer

            History
        
           Show Full 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"]}) )

          (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"))

          )

        )

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository permissions settings

Sign in to your account

Last Author

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"]}) )
		(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"))
		)
		)