diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/base32.scm | 3 | ||||
| -rw-r--r-- | tests/derivations.scm | 1 | ||||
| -rw-r--r-- | tests/hash.scm | 74 | ||||
| -rw-r--r-- | tests/packages.scm | 12 | ||||
| -rw-r--r-- | tests/store.scm | 1 |
5 files changed, 86 insertions, 5 deletions
diff --git a/tests/base32.scm b/tests/base32.scm index d674547557..81d242355a 100644 --- a/tests/base32.scm +++ b/tests/base32.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -17,6 +17,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (test-base32) + #:use-module (guix hash) #:use-module (guix base32) #:use-module (guix utils) #:use-module (srfi srfi-1) diff --git a/tests/derivations.scm b/tests/derivations.scm index 0cba98e1e8..788cffd7ad 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -21,6 +21,7 @@ #:use-module (guix derivations) #:use-module (guix store) #:use-module (guix utils) + #:use-module (guix hash) #:use-module (guix base32) #:use-module ((guix packages) #:select (package-derivation)) #:use-module ((gnu packages) #:select (search-bootstrap-binary)) diff --git a/tests/hash.scm b/tests/hash.scm new file mode 100644 index 0000000000..27751023d3 --- /dev/null +++ b/tests/hash.scm @@ -0,0 +1,74 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (test-hash) + #:use-module (guix hash) + #:use-module (guix utils) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-64) + #:use-module (rnrs bytevectors) + #:use-module (rnrs io ports)) + +;; Test the (guix hash) module. + +(define %empty-sha256 + ;; SHA256 hash of the empty string. + (base16-string->bytevector + "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855")) + +(define %hello-sha256 + ;; SHA256 hash of "hello world" + (base16-string->bytevector + "b94d27b9934d3e08a52e52d7da7dabfac484efe37a5380ee9088f7ace2efcde9")) + +(test-begin "hash") + +(test-equal "sha256, empty" + %empty-sha256 + (sha256 #vu8())) + +(test-equal "sha256, hello" + %hello-sha256 + (sha256 (string->utf8 "hello world"))) + +(test-equal "open-sha256-port, empty" + %empty-sha256 + (let-values (((port get) + (open-sha256-port))) + (close-port port) + (get))) + +(test-equal "open-sha256-port, hello" + %hello-sha256 + (let-values (((port get) + (open-sha256-port))) + (put-bytevector port (string->utf8 "hello world")) + (get))) + +(test-assert "port-sha256" + (let* ((file (search-path %load-path "ice-9/psyntax.scm")) + (size (stat:size (stat file))) + (contents (call-with-input-file file get-bytevector-all))) + (equal? (sha256 contents) + (call-with-input-file file port-sha256)))) + +(test-end) + + +(exit (= (test-runner-fail-count (test-runner-current)) 0)) diff --git a/tests/packages.scm b/tests/packages.scm index a4bb7fbd31..78770c7d94 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -70,10 +70,14 @@ (goto port line column) (read port)))))) - (and (equal? (read-at (package-field-location %bootstrap-guile 'name)) - (package-name %bootstrap-guile)) - (equal? (read-at (package-field-location %bootstrap-guile 'version)) - (package-version %bootstrap-guile)) + ;; Until Guile 2.0.6 included, source properties were added only to pairs. + ;; Thus, check against both VALUE and (FIELD VALUE). + (and (member (read-at (package-field-location %bootstrap-guile 'name)) + (let ((name (package-name %bootstrap-guile))) + (list name `(name ,name)))) + (member (read-at (package-field-location %bootstrap-guile 'version)) + (let ((version (package-version %bootstrap-guile))) + (list version `(version ,version)))) (not (package-field-location %bootstrap-guile 'does-not-exist))))) (test-assert "package-transitive-inputs" diff --git a/tests/store.scm b/tests/store.scm index b42bc97017..3d5d59b991 100644 --- a/tests/store.scm +++ b/tests/store.scm @@ -20,6 +20,7 @@ (define-module (test-store) #:use-module (guix store) #:use-module (guix utils) + #:use-module (guix hash) #:use-module (guix base32) #:use-module (guix packages) #:use-module (guix derivations) |