me/guix
Archived
1
0
Fork 0
Code Activity

tests: opam: Test additional syntax.

Browse source 
* tests/opam.scm (test-comment): New test.
(test-lists): Add more tests for complex list patterns.
This commit is contained in:
Julien Lepiller 2020-10-02 00:28:30 +02:00
parent a6816618fc
commit 23dc21f05b
No known key found for this signature in database
GPG key ID: 53D457B2D636EE82
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/opam.scm
View file

@ -152,7 +152,11 @@ url {
("[make]" . (list-pat (var "make"))) ("[make]" . (list-pat (var "make")))
("[\"make\"]" . (list-pat (string-pat "make"))) ("[\"make\"]" . (list-pat (string-pat "make")))
("[\n a\n b\n c]" . (list-pat (var "a") (var "b") (var "c"))) ("[\n a\n b\n c]" . (list-pat (var "a") (var "b") (var "c")))
("[a b \"c\"]" . (list-pat (var "a") (var "b") (string-pat "c"))))) ("[a b \"c\"]" . (list-pat (var "a") (var "b") (string-pat "c")))
;; complex lists
("[(a & b)]" . (list-pat (choice-pat (group-pat (var "a") (var "b")))))
("[(a | b & c)]" . (list-pat (choice-pat (var "a") (group-pat (var "b") (var "c")))))
("[a (b | c) d]" . (list-pat (var "a") (choice-pat (var "b") (var "c")) (var "d")))))
(test-opam-syntax (test-opam-syntax
"parse-dicts" dict "parse-dicts" dict
@ -179,4 +183,9 @@ url {
("{ = \"1.0+beta19\" }" . (condition-eq ("{ = \"1.0+beta19\" }" . (condition-eq
(condition-string "1.0+beta19"))))) (condition-string "1.0+beta19")))))
(test-opam-syntax
"parse-comment" list-pat
'(("" . #f)
("[#comment\n]" . list-pat)))
(test-end "opam") (test-end "opam")