diff options
| -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" |