File tree 3 files changed +8
-6
lines changed
3 files changed +8
-6
lines changed Original file line number Diff line number Diff line change 9
9
- uses : actions/checkout@v2
10
10
- name : Install dependencies
11
11
run : lein -U deps
12
+ - name : Lint code
13
+ run : lein clj-kondo
12
14
- name : Run tests
13
15
run : lein test
14
16
- name : Deploy
Original file line number Diff line number Diff line change @@ -12,3 +12,4 @@ pom.xml.asc
12
12
.hg /
13
13
/grape
14
14
/grape- *
15
+ .clj-kondo /.cache
Original file line number Diff line number Diff line change 1
1
(ns grape.impl.match-test
2
2
(:require [clojure.test :refer :all ]
3
- [grape.impl.match :as match]
4
- [grape.impl.match :as m]))
3
+ [grape.impl.match :as match]))
5
4
6
5
(deftest parse-pattern-test
7
6
(testing " leading whitespace and comments"
22
21
(deftest match-multi-wildcards?-test
23
22
(testing " matches"
24
23
(are [trees nodes]
25
- (#'m /match-multi-wildcards? trees nodes)
24
+ (#'match /match-multi-wildcards? trees nodes)
26
25
[] [(list :symbol " $keyword&" )]
27
26
[] [(list :symbol " $&" )]
28
27
[(list :keyword " foo" ) (list :map )] [(list :symbol " $&" )]
31
30
32
31
(testing " mismatches"
33
32
(are [trees nodes]
34
- (not (#'m /match-multi-wildcards? trees nodes))
33
+ (not (#'match /match-multi-wildcards? trees nodes))
35
34
[(list :keyword " foo" ) (list :map )] [(list :symbol " $map&" ) (list :symbol " $&" )]
36
35
[(list :keyword " a" ) (list :keyword " b" ) (list :keyword " c" )] [(list :symbol " $number&" )])))
37
36
42
41
sym (list :symbol " bar" )]
43
42
(testing " matches"
44
43
(are [trees patterns]
45
- (#'m /match-seq? trees patterns)
44
+ (#'match /match-seq? trees patterns)
46
45
[] []
47
46
[] [$&]
48
47
[] [$& $&]
57
56
58
57
(testing " mismatches"
59
58
(are [trees patterns]
60
- (not (#'m /match-seq? trees patterns))
59
+ (not (#'match /match-seq? trees patterns))
61
60
[kw kw kw kw sym] [(list :symbol " $keyword&" )]
62
61
))))
63
62
You can’t perform that action at this time.
0 commit comments