78 lines
3.1 KiB
Scheme
78 lines
3.1 KiB
Scheme
|
; vararg tests
|
||
|
|
|
||
|
|
|
||
|
|
(add-tests-with-string-output "vararg not using rest argument"
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f)) => "12\n"]
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f 10)) => "12\n"]
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f 10 20)) => "12\n"]
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f 10 20 30)) => "12\n"]
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f 10 20 30 40)) => "12\n"]
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f 10 20 30 40 50)) => "12\n"]
|
||
|
|
[(let ([f (lambda args 12)])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90)) => "12\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) 12)])
|
||
|
|
(f 10)) => "12\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) a0)])
|
||
|
|
(f 10)) => "10\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) 12)])
|
||
|
|
(f 10 20)) => "12\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) a0)])
|
||
|
|
(f 10 20)) => "10\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) 12)])
|
||
|
|
(f 10 20 30)) => "12\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) a0)])
|
||
|
|
(f 10 20 30)) => "10\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) 12)])
|
||
|
|
(f 10 20 30 40)) => "12\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) a0)])
|
||
|
|
(f 10 20 30 40)) => "10\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 . args) (vector a0 a1))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90 100)) => "#(10 20)\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 . args) (vector a0 a1 a2))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90 100)) => "#(10 20 30)\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 a3 . args) (vector a0 a1 a2 a3))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90 100)) => "#(10 20 30 40)\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 a3 a4 . args) (vector a0 a1 a2 a3 a4))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90 100)) => "#(10 20 30 40 50)\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 a3 a4 a5 . args) (vector a0 a1 a2 a3 a4 a5))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90 100)) => "#(10 20 30 40 50 60)\n"]
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
(add-tests-with-string-output "vararg using rest argument"
|
||
|
|
[(let ([f (lambda args args)])
|
||
|
|
(f)) => "()\n"]
|
||
|
|
[(let ([f (lambda args args)])
|
||
|
|
(f 10)) => "(10)\n"]
|
||
|
|
[(let ([f (lambda args args)])
|
||
|
|
(f 10 20)) => "(10 20)\n"]
|
||
|
|
[(let ([f (lambda args args)])
|
||
|
|
(f 10 20 30)) => "(10 20 30)\n"]
|
||
|
|
[(let ([f (lambda args args)])
|
||
|
|
(f 10 20 30 40)) => "(10 20 30 40)\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) (vector a0 args))])
|
||
|
|
(f 10)) => "#(10 ())\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) (vector a0 args))])
|
||
|
|
(f 10 20)) => "#(10 (20))\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) (vector a0 args))])
|
||
|
|
(f 10 20 30)) => "#(10 (20 30))\n"]
|
||
|
|
[(let ([f (lambda (a0 . args) (vector a0 args))])
|
||
|
|
(f 10 20 30 40)) => "#(10 (20 30 40))\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 . args) (vector a0 a1 args))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90)) => "#(10 20 (30 40 50 60 70 80 90))\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 . args) (vector a0 a1 a2 args))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90)) => "#(10 20 30 (40 50 60 70 80 90))\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 a3 . args) (vector a0 a1 a2 a3 args))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90)) => "#(10 20 30 40 (50 60 70 80 90))\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 a3 a4 . args) (vector a0 a1 a2 a3 a4 args))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90)) => "#(10 20 30 40 50 (60 70 80 90))\n"]
|
||
|
|
[(let ([f (lambda (a0 a1 a2 a3 a4 a5 . args)(vector a0 a1 a2 a3 a4 a5 args))])
|
||
|
|
(f 10 20 30 40 50 60 70 80 90)) => "#(10 20 30 40 50 60 (70 80 90))\n"]
|
||
|
|
)
|