Browse Source

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

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.
gn-latest-20200428
Ludovic Courtès 3 years ago
parent
commit
8e1395be5c
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
2 changed files with 4 additions and 3 deletions
  1. +1
    -1
      guix/records.scm
  2. +3
    -2
      tests/records.scm

+ 1
- 1
guix/records.scm View File

@ -74,7 +74,7 @@ interface\" (ABI) for TYPE is equal to 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 ()


+ 3
- 2
tests/records.scm View File

@ -313,8 +313,9 @@
(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")


Loading…
Cancel
Save