diff options
| author | W. Kosior <koszko@koszko.org> | 2024-07-27 22:18:34 +0200 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2024-07-27 22:18:34 +0200 |
| commit | 7dd9f1c93711bc8e099d932058357474956e2ee8 (patch) | |
| tree | 8f04233f2e569ce855a8f03a1e1f482502df696d | |
| parent | c16ddd31b95bfbae290c01aac06c4992b01829fb (diff) | |
| download | de-paul-records-7dd9f1c93711bc8e099d932058357474956e2ee8.tar.gz de-paul-records-7dd9f1c93711bc8e099d932058357474956e2ee8.zip | |
Revert "Test syntactic sugar for initializing fields with list-values."
This reverts commit c16ddd31b95bfbae290c01aac06c4992b01829fb.
| -rw-r--r-- | tests/guile/de-paul-records-test.scm | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/tests/guile/de-paul-records-test.scm b/tests/guile/de-paul-records-test.scm index fff1606..7bcc60d 100644 --- a/tests/guile/de-paul-records-test.scm +++ b/tests/guile/de-paul-records-test.scm @@ -26,7 +26,6 @@ is-scheme? #:export? yes,ofcourse (is-syntactically-scoped? #:default #f) - (authors #:default '()) #:finalize (lambda (the-lisp) (set-field the-lisp (lisp-is-syntactically-scoped?) @@ -50,7 +49,7 @@ '*lisp)) (test-group "lisp paren-3001" - (tu:test-equal '(#f () "paren-3001" #f) + (tu:test-equal '(#f "paren-3001" #f) (eval '(begin (define %paren-3001 (lisp (is-scheme? #f) @@ -58,12 +57,10 @@ (match %paren-3001 (($* lisp - authors is-syntactically-scoped? name is-scheme?) (list is-syntactically-scoped? - authors name is-scheme?)))) (test-env 'lisp))) @@ -86,7 +83,6 @@ (name #:-> ((const 'test-noop)) (string-append name ".1")) - (authors #:list "Jane Doe") (is-syntactically-scoped? #t))) (match `(a . ,%paren-3001.1) @@ -99,11 +95,7 @@ '(match (vector %paren-3001.1) (#(($* lisp is-scheme? name)) (list is-scheme? name))) - (test-env 'lisp))) - - (tu:test-equal '("Jane Doe") - (eval '(lisp-authors %paren-3001.1) - (test-env 'lisp)))) + (test-env 'lisp)))) (test-group "lisp paren-3003" (tu:test-equal '(#t #t) @@ -113,7 +105,6 @@ (let ((name "paren-3003")) (lisp #:<- (lisp) name - (authors #:list "Jane Doe" "John Smith") (is-scheme? (string-suffix? "-3003" name))))) (match %paren-3003 @@ -123,10 +114,6 @@ (tu:test-equal "paren-3003" (eval '(lisp-name %paren-3003) - (test-env 'lisp))) - - (tu:test-equal '("Jane Doe" "John Smith") - (eval '(lisp-authors %paren-3003) (test-env 'lisp)))) (test-group "lisp paren-3004" |