     (is (= (->glsl (g/xor b b)) "(b^^b);"))
     (is (= (->glsl (g/not b)) "(!b);"))))
 
-(operators)
-
-;; need swizzle tests
+;; FIXME need swizzle tests
 
 (deftest
   variables

        v2 {:tag :variable :name "v2" :type :vec2}
        v3 {:tag :variable :name "v3" :type :vec3}
        v4 {:tag :variable :name "v4" :type :vec4}
        sampler {:tag :variable :id "sampler" :type :sampler2D}]
    (is (= (->glsl (g/radians t)) "radians(t);"))
    (is (= (->glsl (g/degrees t)) "degrees(t);"))
    (is (= (->glsl (g/sin t)) "sin(t);"))

    (is (= (->glsl (g/faceforward t t t)) "faceforward(t,t,t);"))
    (is (= (->glsl (g/reflect t t)) "reflect(t,t);"))
    (is (= (->glsl (g/refract t t f)) "refract(t,t,f);"))
    (is (= (->glsl (g/texture2DLod sampler2 v2 f)) "texture2DLod(sampler2,v2,f);"))
    (is (= (->glsl (g/texture2DProjLod sampler2 v3 f)) "texture2DProjLod(sampler2,v3,f);"))
    (is (= (->glsl (g/texture2DProjLod sampler2 v4 f)) "texture2DProjLod(sampler2,v4,f);"))
    (is (= (->glsl (g/textureCubeLod samplerC v3 f)) "textureCubeLod(samplerC,v3,f);"))
    (is (= (->glsl (g/texture2D sampler2 v2 f)) "texture2D(sampler2,v2,f);"))
    (is (= (->glsl (g/texture2DProj sampler2 v3 f)) "texture2DProj(sampler2,v3,f);"))
    (is (= (->glsl (g/texture2DProj sampler2 v4 f)) "texture2DProj(sampler2,v4,f);"))
    (is (= (->glsl (g/textureCube samplerC v3 f)) "textureCube(samplerC,v3,f);"))
    (is (= (->glsl (g/texture2D sampler2 v2)) "texture2D(sampler2,v2);"))
    (is (= (->glsl (g/texture2DProj sampler2 v3 f)) "texture2DProj(sampler2,v3,f);"))
    (is (= (->glsl (g/texture2DProj sampler2 v4 f)) "texture2DProj(sampler2,v4,f);"))
    (is (= (->glsl (g/textureCube samplerC v3)) "textureCube(samplerC,v3);"))))
