Test output for glls [fail]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

-- testing renaming ----------------------------------------------------------
(symbol->glsl 'gl:position) .......................................... [ PASS]
(symbol->glsl 'float-bits-to-uint) ................................... [ PASS]
(symbol->glsl 'shadow-2d-proj-lod) ................................... [ PASS]
(symbol->glsl 'sampler-2d-ms-array) .................................. [ PASS]
(symbol->glsl '=) .................................................... [ PASS]
(symbol->glsl '==) ................................................... [ PASS]
(symbol->glsl 'rgb->hsl) ............................................. [ PASS]
(symbol->glsl 'emit-vertex) .......................................... [ PASS]
(symbol->glsl 'end-primitive) ........................................ [ PASS]
9 tests completed in 1/250 seconds.
9 out of 9 (100%) tests passed.
-- done testing renaming -----------------------------------------------------


-- testing expressions -------------------------------------------------------
(compile-expr '(vec4 position 0.0 1.0)) .............................. [ PASS]
(compile-expr '(+ 1 2)) .............................................. [ PASS]
(compile-expr '(expt a 2)) ........................................... [ PASS]
(compile-expr '(vec4 position 0.0 (+ 0.5 x y))) ...................... [ PASS]
(compile-expr '(vec4 position 0.0 (+ 0.5 (* x (+ y z))))) ............ [ PASS]
(compile-expr '(swizzle position x y z)) ............................. [ PASS]
(compile-expr '(length array)) ....................................... [ PASS]
(compile-expr '(if (= i 0) (begin (set! foo 4) (set! bar 5)) (s... ... [ PASS]
(compile-expr '(let ((foo #:int 1)) foo)) ............................ [ERROR]
    
Error: Poorly formed assignment:: (foo #:int 1)
(compile-expr '(let ((foo #:int) (bar #:int 4) (quox (#:array #... ... [ERROR]
    
Error: Poorly formed assignment:: (foo #:int)
    (compile-expr
      '(let ((foo #:int)
             (bar #:int 4)
             (quox (#:array #:vec4))
             (baz (#:array #:vec4 4))
             (box (#:array #:vec4 4) #(1 3 3 4)))
         (cond ((= foo 1) (set! foo 4)))))
(compile-expr '(cond ((< x 0) (set! y 1)) ((< x 5) (set! x 1) (... ... [ PASS]
(compile-expr '(define (foo (x (#:in #:int)) (y #:int)) #:vec3 ... ... [ERROR]
    
Error: Poorly formed assignment:: ((foo (x (#:in #:int)) (y #:int)) #:vec3 (set! x y) bar)
    (compile-expr '(define (foo (x (#:in #:int)) (y #:int)) #:vec3 (set! x y) bar))
(compile-expr '(define (foo (x (#:in #:int)) (y #:int)) (#:arra... ... [ERROR]
    
Error: Poorly formed assignment:: ((foo (x (#:in #:int)) (y #:int)) (#:array #:vec3 2) (set! x y) bar)
    (compile-expr
      '(define (foo (x (#:in #:int)) (y #:int)) (#:array #:vec3 2) (set! x y) bar))
(compile-expr '(do-times (i 5) (foo i))) ............................. [ PASS]
(compile-expr '(while (> i 4) (if thing (break)) (foo i))) ........... [ PASS]
(compile-expr '(let ((foo (#:array #:int 4) (1 2))))) ................ [ PASS]
(compile-expr '(array-ref a 1)) ...................................... [ PASS]
(compile-expr '(array-set! a 1 x)) ................................... [ PASS]
(compile-expr '(vec4 position 0.0 1.0)) .............................. [ PASS]
(compile-expr '(do-times (i 2 4) (break))) ........................... [ PASS]
(compile-expr '(for (set! i 0) (< i 4) (++ i) (break))) .............. [ PASS]
(compile-expr '(define-record foo (x #:int) (y (#:array #:int)))) .... [ERROR]
    
Error: Invalid parameter:: (x #:int)
(compile-expr '(let ((x int 4) (y int)) (set! y 1) (+ x y))) ......... [ PASS]
(compile-expr '(let ((x int 4)) (+ x 1))) ............................ [ PASS]
(compile-expr '(let ((x int) (y (#:array int))) (+ x y))) ............ [ PASS]
(compile-expr '(define (foo (x int) (y int)) int (+ x y))) ........... [ PASS]
(compile-expr '(define (foo) int 5)) ................................. [ PASS]
(compile-expr '(define (foo (x int)) int x)) ......................... [ PASS]
(compile-expr '(define foo (#:array int 5) #(1 (bar 1) 3 4 5))) ...... [ PASS]
(compile-expr '(%define foo 1)) ...................................... [ PASS]
(compile-expr '(%pragma #:stdgl (invariant all))) .................... [ PASS]
(compile-expr '(%extension GL_ARB_arrays_of_arrays enable)) .......... [ PASS]
32 tests completed in 51/500 seconds.
5 errors (78/5%).
27 out of 32 (422/5%) tests passed.
-- done testing expressions --------------------------------------------------


-- testing shaders -----------------------------------------------------------
(compile-glls '((#:vertex #:input ((vertex #:vec2) (color #:vec... ... [ERROR]
    
Error: Invalid parameter:: (vertex #:vec2)
    (compile-glls
      '((#:vertex
         #:input
         ((vertex #:vec2) (color #:vec3))
         #:uniform
         ((view-matrix #:mat4))
         #:output
         ((c #:vec3))
         #:version
         410)
        (define (main)
          #:void
          (set! gl:position (* view-matrix (vec4 vertex 0.0 1.0)))
          (set! c color))))
(compile-glls '((#:vertex #:input ((vertex #:vec2) (color #:vec... ... [ERROR]
    
Error: Invalid parameter:: (vertex #:vec2)
    (compile-glls
      '((#:vertex
         #:input
         ((vertex #:vec2) (color #:vec3))
         #:uniform
         ((view-matrix #:mat4))
         #:output
         ((c #:vec3))
         #:version
         120)
        (define (main)
          #:void
          (set! gl:position (* view-matrix (vec4 vertex 0.0 1.0)))
          (set! c color))))
(compile-glls '((#:fragment #:input ((c #:vec3)) #:version 120)... ... [ERROR]
    
Error: Invalid parameter:: (c #:vec3)
    (compile-glls
      '((#:fragment #:input ((c #:vec3)) #:version 120)
        (define (main) #:void (set! gl:frag-color (vec4 c 1.0)))))
es version 100 uses in (not attributes) .............................. 
Error: during expansion of (define-shader ...) - Poorly formed assignment:: ((quox (x #:int)) #:float (* x 2.0))

	Call history:

	<eval>	  (cons642 (cons642 (quote643 name644) #f) (quote643 ((source645 compile-glls (quote ((#:vertex #:inpu...
	<eval>	  (cons642 (quote643 name644) #f)
	<eval>	  (compile-glls (quote ((#:vertex #:input ((vertex #:vec2) (color #:vec3)) #:uniform ((view-matrix #:m...
	<eval>	  (test-run650 (lambda651 () "#version 120\n\nvarying vec3 c;\nvoid main () {\n    gl_FragColor = vec4...
	<eval>	  (cons652 (cons652 (quote653 name654) #f) (quote653 ((source655 compile-glls (quote ((#:fragment #:in...
	<eval>	  (cons652 (quote653 name654) #f)
	<eval>	  (compile-glls (quote ((#:fragment #:input ((c #:vec3)) #:version 120) (define (main) #:void (set! gl...
	<eval>	  (test-run659 (lambda660 () "#version 100 es plus anything\n\nin vec3 c;\n;\n") (lambda660 () (compil...
	<eval>	  (cons661 (cons661 (quote662 name663) "es version 100 uses in (not attributes)") (quote662 ((source66...
	<eval>	  (cons661 (quote662 name663) "es version 100 uses in (not attributes)")
	<eval>	  (compile-glls (quote ((#:fragment #:input ((c #:vec3)) #:version (100 es plus anything)) "")))
	<eval>	  (k615 (##core#lambda () (##sys#apply ##sys#values args616)))
	<eval>	  (##sys#apply ##sys#values args616)
	<eval>	  (test-end605 name585)
	<eval>	  (current-test-group587 old-group586)
	<syntax>	  (define-shader foo (#:vertex #:export (quox)) (define (quox (x #:int)) #:float (* x 2.0)))	<--
[ERROR]
    
Error: Invalid parameter:: (c #:vec3)
    (compile-glls
      '((#:fragment #:input ((c #:vec3)) #:version (100 es plus anything)) ""))
4 tests completed in 1/1000 seconds.
4 errors (100%).
0 out of 4 (0%) tests passed.
-- done testing shaders ------------------------------------------------------