From 6a7ad2e49efa5946763bffcf2b3d54af2fbc348a Mon Sep 17 00:00:00 2001 From: lkh01 Date: Sat, 21 Mar 2020 07:11:14 +0100 Subject: [PATCH] add some tests for `syntax->string` --- pkgs/racket-test/tests/syntax/to-string.rkt | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test/tests/syntax/to-string.rkt b/pkgs/racket-test/tests/syntax/to-string.rkt index aac5d117ea..61bb57c0e2 100644 --- a/pkgs/racket-test/tests/syntax/to-string.rkt +++ b/pkgs/racket-test/tests/syntax/to-string.rkt @@ -4,6 +4,22 @@ (check-equal? (syntax->string #'((a . b))) "(a . \n b)") -(check-equal? (syntax->string #'((a b c d))) "(a b c d)") +(check-equal? (syntax->string #'(( a b c d))) "( a b c d)") (check-equal? (syntax->string #'(a 'b #(a b c) c)) "a 'b #(a b c) c") (check-equal? (syntax->string #'((a b _ d))) "(a b _ d)") + +(check-equal? (syntax->string #'(( a b ))) "( a b )") +; we can't find where . is, default to earliest position +(check-equal? (syntax->string #'(( a b . c ))) "( a b . c )") + +;; quote tests +(check-equal? (syntax->string #'('a)) "'a") +(check-equal? (syntax->string #'(' a)) "' a") +(check-equal? (syntax->string #'((quote a))) "(quote a)") +(check-equal? (syntax->string #'(( quote a ))) "( quote a )") +(check-equal? (syntax->string #'((quote a b))) "(quote a b)") +(check-equal? (syntax->string #'(( quote a b ))) "( quote a b )") +(check-equal? (syntax->string #'((quote . a))) "(quote . a)") +(check-equal? (syntax->string #'(( quote . a ))) "( quote . a )") +(check-equal? (syntax->string #'((quote a b . c))) "(quote a b . c)") +(check-equal? (syntax->string #'(( quote a b . c ))) "( quote a b . c )")