ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

records: Adjust to test changes in 'record-abi-mismatch-error'.

Browse source 
Fixes a test failure introduced in
de5cbd4a38.

* guix/records.scm (abi-check): Refer to TYPE in an unquoted context so
we get at the RTD.
* tests/records.scm ("ABI checks"): Adjust 'catch' handler to changes
in the 'record-abi-mismatch-error' arguments.
This commit is contained in:
Ludovic Courtès 2018-08-31 17:23:38 +02:00
parent 220458b098
commit 8e1395be5c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/records.scm
View file

@ -74,7 +74,7 @@ (define (abi-check type cookie)
;; recompiled.
(throw 'record-abi-mismatch-error 'abi-check
"~a: record ABI mismatch; recompilation needed"
'(#,type) '())))))
(list #,type) '())))))
(define-syntax make-syntactic-constructor
(syntax-rules ()

5
tests/records.scm
View file

@ -313,8 +313,9 @@ (define (make-me-a-record) (foo)))
(lambda ()
(eval '(foo? (make-me-a-record)) module)
#f)
(lambda (key rtd . _)
(eq? rtd (eval '<foo> module))))))
(match-lambda*
((key 'abi-check (? string? message) (rtd) . _)
(eq? rtd (eval '<foo> module)))))))
(test-equal "recutils->alist"
'((("Name" . "foo")