1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
(ns puppetlabs.i18n.bin-test
(:require [clojure.java.io :as io]
[clojure.string :as str]
[clojure.test :refer :all]
[clojure.java.shell :refer [sh]]
[puppetlabs.kitchensink.core :as ks])
(:import
(java.nio.file Path)))
(defn git-head-sha
[]
(-> (sh "git" "rev-parse" "HEAD")
:out
str/trim))
(defn temp-file-from-resource
"Given a prefix & suffix for a temp filename, and the classpath of a Java
resource, create a new temp file with the resource's content that will be
deleted when the JVM shuts down. Returns a File object for the temp file."
[prefix suffix resource-path]
(let [temp-file (ks/temp-file prefix suffix)
resource (io/resource resource-path)]
(io/copy (io/file resource) temp-file)
temp-file))
(defn- path [^Path f] (.getPath f))
(deftest add-gitref-test
(testing "the src/leiningen/i18n/bin/add-gitref.sh script"
(let [current-git-ref-line (re-pattern (str "\n\"X-Git-Ref: "
(git-head-sha)
"\\\\n\"\\s*\n"))]
(testing "adds a git ref header when none is present"
(let [po (temp-file-from-resource "i18n-add-gitref-test" ".po"
"test-pos/no-git-ref.po")
proc (sh "src/leiningen/i18n/bin/add-gitref.sh"
(path po))]
(is (zero? (:exit proc)))
(is (re-find current-git-ref-line (slurp po)))))
(testing "replaces git ref header when one is already present"
(let [fake-git-ref-line #"\n\"X-Git-Ref: deadb33f\\n\""
po (temp-file-from-resource "i18n-add-gitref-test" ".po"
"test-pos/git-ref.po")
_ (is (re-find fake-git-ref-line (slurp po)))
proc (sh "src/leiningen/i18n/bin/add-gitref.sh"
(path po))]
(is (zero? (:exit proc)))
(let [post-script-contents (slurp po)]
(is (re-find current-git-ref-line post-script-contents))
(is (nil? (re-find fake-git-ref-line post-script-contents)))))))
(testing "when given a PO file without a Project-Id-Version header"
(let [po (temp-file-from-resource "i18n-add-gitref-test" ".po"
"test-pos/no-project-id-version.po")
{:keys [exit err]} (sh "src/leiningen/i18n/bin/add-gitref.sh"
(path po))]
(is (= 1 exit))
(is (re-find #"X-Git-Ref\s+header\s+must\s+follow\s+the\s+Project-Id-Version" err))
(is (re-find #"no\s+Project-Id-Version\s+header\s+was\s+found" err))
(is (re-find (re-pattern (path po)) err))))))
(deftest remove-line-numbers-test
(testing "the remove-line-numbers.sh script behaves as expected"
(let [numbered-po (temp-file-from-resource "i18n-rm-line-nos-test" ".po"
"test-pos/line-numbers.po")
proc (sh "src/leiningen/i18n/bin/remove-line-numbers.sh"
(path numbered-po))]
(is (zero? (:exit proc)))
(let [post-script-contents (slurp numbered-po)]
(is (= post-script-contents
(-> (io/resource "test-pos/no-line-numbers.po")
io/file
slurp)))))))
(deftest compare-POTs-test
(testing "the compare-POTs.sh script"
(let [ref-pot (temp-file-from-resource "i18n-ref" ".pot"
"test-pos/diff-ref.pot")
cmp-script "src/leiningen/i18n/bin/compare-POTs.sh"
cmp-with (fn [resource-path]
(let [tmp-prefix (-> resource-path
(str/replace #"^test-pos/" "")
(str/replace #"\.pot$" ""))
diff-pot (temp-file-from-resource tmp-prefix ".pot"
resource-path)]
(sh cmp-script (path ref-pot) (path diff-pot))))]
(testing "finds differences when"
(let [diff-pot (temp-file-from-resource
"i18n-whole-string" ".pot"
"test-pos/diff-whole-string.pot")]
(testing "a string is added"
(let [cmp (sh cmp-script (path ref-pot) (path diff-pot))]
(is (not (zero? (:exit cmp))))))
(testing "a string is removed"
(let [cmp (sh cmp-script (path diff-pot) (path ref-pot))]
(is (not (zero? (:exit cmp)))))))
(testing "a string is changed only slightly"
(is (not (zero? (:exit (cmp-with "test-pos/diff-string-edit.pot")))))))
(testing "considers the POTs identical when only"
(testing "the order of the strings changes"
(is (zero? (:exit (cmp-with "test-pos/diff-order.pot")))))
(testing "the location comment of a string changes"
(is (zero? (:exit (cmp-with "test-pos/diff-location.pot")))))
(testing "a translation is added for a string"
(is (zero? (:exit (cmp-with "test-pos/diff-translated.pot")))))))))
|
