TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

records: Add tests for error cases.

Browse source 
* tests/records.scm (test-module): New procedure.
  ("define-record-type* & missing initializers",
  "define-record-type* & extra initializers"): New tests.
This commit is contained in:
Ludovic Courtès 2014-07-17 16:06:36 +02:00
parent 62ca0fdf9e
commit 23e9a68088
1 changed files with 41 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
tests/records.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -19,8 +19,16 @@
(define-module (test-records)
#:use-module (srfi srfi-64)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (guix records))
(define (test-module)
;; A module in which to evaluate things that are known to fail.
(let ((module (make-fresh-user-module)))
(module-use! module (resolve-interface '(guix records)))
module))
(test-begin "records")
(test-assert "define-record-type*"
@ -131,6 +139,38 @@ (define-record-type* <foo> foo make-foo
(parameterize ((mark (cons 'a 'b)))
(eq? (foo-baz y) (mark))))))))
(test-assert "define-record-type* & missing initializers"
(catch 'syntax-error
(lambda ()
(eval '(begin
(define-record-type* <foo> foo make-foo
foo?
(bar foo-bar (default 42))
(baz foo-baz))
(foo))
(test-module))
#f)
(lambda (key proc message location form . args)
(and (eq? proc 'foo)
(string-match "missing .*initialize.*baz" message)
(equal? form '(foo))))))
(test-assert "define-record-type* & extra initializers"
(catch 'syntax-error
(lambda ()
(eval '(begin
(define-record-type* <foo> foo make-foo
foo?
(bar foo-bar (default 42)))
(foo (baz 'what?)))
(test-module))
#f)
(lambda (key proc message location form . args)
(and (string-match "extra.*initializer.*baz" message)
(eq? proc 'foo)))))
(test-equal "recutils->alist"
'((("Name" . "foo")
("Version" . "0.1")