aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-08-31 17:23:38 +0200
committerLudovic Courtès <ludo@gnu.org>2018-08-31 17:26:56 +0200
commit8e1395be5c7d1a6e895fb5b1e70bebc0fef161a6 (patch)
tree7015bee08c46edb50c7b531e6ef81df145a5a600 /tests
parent220458b0987959d2920afa7dd8ff35f7d1f531b0 (diff)
downloadguix-8e1395be5c7d1a6e895fb5b1e70bebc0fef161a6.tar
guix-8e1395be5c7d1a6e895fb5b1e70bebc0fef161a6.tar.gz
records: Adjust to test changes in 'record-abi-mismatch-error'.
Fixes a test failure introduced in de5cbd4a38a33e0412f1c481fe8e01a871dc13e5. * 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.
Diffstat (limited to 'tests')
-rw-r--r--tests/records.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/records.scm b/tests/records.scm
index 80e08a9a5f..09ada70c2d 100644
--- a/tests/records.scm
+++ b/tests/records.scm
@@ -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")