diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gem.scm | 2 | ||||
| -rw-r--r-- | tests/guix-environment-container.sh | 2 | ||||
| -rw-r--r-- | tests/lint.scm | 16 | ||||
| -rw-r--r-- | tests/pypi.scm | 4 |
4 files changed, 19 insertions, 5 deletions
diff --git a/tests/gem.scm b/tests/gem.scm index 0b37c70142..a46c2b1439 100644 --- a/tests/gem.scm +++ b/tests/gem.scm @@ -71,7 +71,7 @@ ('synopsis "A cool gem") ('description "This package provides a cool gem") ('home-page "https://example.com") - ('license ('list 'expat 'asl2.0))) + ('license ('list 'license:expat 'license:asl2.0))) #t) (x (pk 'fail x #f))))) diff --git a/tests/guix-environment-container.sh b/tests/guix-environment-container.sh index 12da950eba..d7c1b7057e 100644 --- a/tests/guix-environment-container.sh +++ b/tests/guix-environment-container.sh @@ -72,7 +72,7 @@ mount_test_code=" ;; correspond to a parent file system. ((_ mount (or \"tmpfs\" \"proc\" \"sysfs\" \"devtmpfs\" \"devpts\" \"cgroup\" \"mqueue\") _ _ _) - (and (string-prefix? mount (getcwd)) + (and (string-prefix? (getcwd) mount) mount)) ((_ mount _ _ _ _) mount))) diff --git a/tests/lint.scm b/tests/lint.scm index 770f43e57f..df69d2b4b1 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013 Cyril Roelandt <tipecaml@gmail.com> -;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; @@ -203,6 +203,20 @@ string) on HTTP requests." "E.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD).")))) (check-description-style pkg))))) +(test-assert "description: may not contain trademark signs" + (and (->bool + (string-contains (with-warnings + (let ((pkg (dummy-package "x" + (description "Does The Right Thing™")))) + (check-description-style pkg))) + "should not contain trademark sign")) + (->bool + (string-contains (with-warnings + (let ((pkg (dummy-package "x" + (description "Works with Format®")))) + (check-description-style pkg))) + "should not contain trademark sign")))) + (test-assert "synopsis: not a string" (->bool (string-contains (with-warnings diff --git a/tests/pypi.scm b/tests/pypi.scm index 01d8a575ab..ab4e9c958b 100644 --- a/tests/pypi.scm +++ b/tests/pypi.scm @@ -130,7 +130,7 @@ baz > 13.37") ('home-page "http://example.com") ('synopsis "summary") ('description "summary") - ('license 'lgpl2.0)) + ('license 'license:lgpl2.0)) (string=? (bytevector->nix-base32-string test-source-hash) hash)) @@ -190,7 +190,7 @@ baz > 13.37") ('home-page "http://example.com") ('synopsis "summary") ('description "summary") - ('license 'lgpl2.0)) + ('license 'license:lgpl2.0)) (string=? (bytevector->nix-base32-string test-source-hash) hash)) |