 
 ;; test variables, declarations, literals
 
-
-(->glsl (gamma.ast/literal {:tag :variable :name "v" :type :vec4}))
-
-(def vec4-variable {:tag :variable :id "v" :type :vec4})
-;; operators
+;; FIXME make these actual tests?
+;; (->glsl (gamma.ast/literal {:tag :variable :name "v" :type :vec4}))
+;;
+;; (def vec4-variable {:tag :variable :id "v" :type :vec4})
 
 ;;;;;;; OPERATORS WITH VARIABLES
 

    (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 sampler v2 f)) "texture2DLod(sampler,v2,f);"))
    (is (= (->glsl (g/texture2DProjLod sampler v3 f)) "texture2DProjLod(sampler,v3,f);"))
    (is (= (->glsl (g/texture2DProjLod sampler v4 f)) "texture2DProjLod(sampler,v4,f);"))
    (is (= (->glsl (g/textureCubeLod sampler v4 f)) "textureCubeLod(sampler,v4,f);"))
    (is (= (->glsl (g/texture2D sampler v2 f)) "texture2D(sampler,v2,f);"))
    (is (= (->glsl (g/texture2DProj sampler v3 f)) "texture2DProj(sampler,v3,f);"))
    (is (= (->glsl (g/texture2DProj sampler v4 f)) "texture2DProj(sampler,v4,f);"))
    (is (= (->glsl (g/textureCube sampler v3 f)) "textureCube(sampler,v3,f);"))
    (is (= (->glsl (g/texture2D sampler v2)) "texture2D(sampler,v2);"))
    (is (= (->glsl (g/texture2DProj sampler v3 f)) "texture2DProj(sampler,v3,f);"))
    (is (= (->glsl (g/texture2DProj sampler v4 f)) "texture2DProj(sampler,v4,f);"))
    (is (= (->glsl (g/textureCube sampler v3)) "textureCube(sampler,v3);"))))

    (is (= (->glsl (g/xor b b)) "(b^^b);"))
    (is (= (->glsl (g/not b)) "(!b);"))))

;; FIXME need swizzle tests

(deftest
  variables
