[uim-commit] r2806 - branches/r5rs/sigscheme/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-06 05:55:30 -0800 (Fri, 06 Jan 2006)
New Revision: 2806

Modified:
   branches/r5rs/sigscheme/test/test-syntax.scm
Log:
* sigscheme/test/test-syntax.scm
  - Add tests for function calling and syntax application for fixed_0


Modified: branches/r5rs/sigscheme/test/test-syntax.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-syntax.scm	2006-01-06 13:47:30 UTC (rev 2805)
+++ branches/r5rs/sigscheme/test/test-syntax.scm	2006-01-06 13:55:30 UTC (rev 2806)
@@ -180,6 +180,16 @@
   (assert "dot pair without both space" "(\"foo\".\"bar\")")
   (assert "dot pair without both space" "(\"foo\" \"bar\".\"baz\")"))
 
+(tn "function calling fixed_0")
+(define f (lambda () #t))
+(assert-equal? (tn) #t         (f))
+(assert-error  (tn) (lambda () (f . #t)))
+(assert-error  (tn) (lambda () (f #t)))
+(assert-error  (tn) (lambda () (f #t . #t)))
+(assert-error  (tn) (lambda () (f #t #t)))
+(assert-error  (tn) (lambda () (f #t #t . #t)))
+(assert-error  (tn) (lambda () (f #t #t #t)))
+(assert-error  (tn) (lambda () (f #t #t #t . #t)))
 (tn "function calling variadic_0")
 (define f (lambda args args))
 (assert-equal? (tn) '()         (f))
@@ -234,6 +244,17 @@
 ;; Although SigScheme's eval facility itself does not ensure properness of
 ;; syntax args, each syntax implementation must check it. These tests only
 ;; indicate what should be done.
+(tn "syntax application fixed_0")
+(define s (lambda () #t))  ;; FIXME: no syntax with syntax_fixed_0
+(assert-equal? (tn) #t         (s))
+(assert-error  (tn) (lambda () (s)))
+(assert-error  (tn) (lambda () (s . #t)))
+(assert-error  (tn) (lambda () (s #t)))
+(assert-error  (tn) (lambda () (s #t . #t)))
+(assert-error  (tn) (lambda () (s #t #t)))
+(assert-error  (tn) (lambda () (s #t #t . #t)))
+(assert-error  (tn) (lambda () (s #t #t #t)))
+(assert-error  (tn) (lambda () (s #t #t #t . #t)))
 (tn "syntax application variadic_0")
 (define s and)
 (assert-equal? (tn) #t          (s))