projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
irc: Avoid connecting to #f socket, attempt reconnect.
[8sync.git]
/
tests
/
test-rmeta-slot.scm
diff --git
a/tests/test-rmeta-slot.scm
b/tests/test-rmeta-slot.scm
index 46d30dbafe70dd2ab0d1bc83c4b7e0e77ffd9762..7aaa248e84646810c572b77555fb106634403992 100644
(file)
--- a/
tests/test-rmeta-slot.scm
+++ b/
tests/test-rmeta-slot.scm
@@
-1,5
+1,6
@@
;;; 8sync --- Asynchronous programming for Guile
;;; Copyright (C) 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;; 8sync --- Asynchronous programming for Guile
;;; Copyright (C) 2017 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright (C) 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of 8sync.
;;;
;;;
;;; This file is part of 8sync.
;;;
@@
-28,7
+29,7
@@
(define-class <kah-lassy> ()
(entries #:allocation #:each-subclass
#:init-thunk
(define-class <kah-lassy> ()
(entries #:allocation #:each-subclass
#:init-thunk
- (
wrap
-rmeta-slot
+ (
build
-rmeta-slot
`((foo . "bar")
(baz . "basil")))))
`((foo . "bar")
(baz . "basil")))))
@@
-42,7
+43,7
@@
(define-class <sub-lassy> (<kah-lassy>)
(entries #:allocation #:each-subclass
#:init-thunk
(define-class <sub-lassy> (<kah-lassy>)
(entries #:allocation #:each-subclass
#:init-thunk
- (
wrap
-rmeta-slot
+ (
build
-rmeta-slot
`((foo . "foo2")
(peanut . "gallery")))))
`((foo . "foo2")
(peanut . "gallery")))))
@@
-62,5
+63,5
@@
(class-rmeta-ref <sub-lassy> 'entries 'not-defined
#:dflt "no-way"))
(class-rmeta-ref <sub-lassy> 'entries 'not-defined
#:dflt "no-way"))
-(test-end "test-rmeta-slot")
(test-exit)
(test-exit)
+(test-end "test-rmeta-slot")