proc runTest { testFile } {
    global argc argv

    set cmdArgs ""
    if { $argc >= 1 } {
        set cmdArgs [lindex $argv 0]
    }
    if { $::tcl_platform(platform) eq "windows" } {
        set tclsh "tclsh.exe"
    } else {
        set tclsh "tclsh"
    }
    puts "Running test $testFile $cmdArgs ..."
    catch {exec $tclsh $testFile $cmdArgs}
}

runTest oglu_projtexture/oglu_projtexture.tcl
runTest ogl_alpha_blending_framebuffer/ogl_alpha_blending_framebuffer.tcl
runTest ogl_alpha_blending_texture/ogl_alpha_blending_texture.tcl
runTest ogl_axis_aligned_billboard/ogl_axis_aligned_billboard.tcl
runTest ogl_benchmark_sphere/ogl_benchmark_sphere.tcl
runTest ogl_color_tracking/ogl_color_tracking.tcl
runTest ogl_fps_controls/ogl_fps_controls.tcl
runTest ogl_frame_buffer_object/ogl_frame_buffer_object.tcl
runTest ogl_glslang_simple_vs2ps/ogl_glslang_simple_vs2ps.tcl
runTest ogl_lighting/ogl_lighting.tcl
runTest ogl_material/ogl_material.tcl
runTest ogl_multitexture_blending/ogl_multitexture_blending.tcl
runTest ogl_near_far_clip/ogl_near_far_clip.tcl
runTest ogl_occlusion_query/ogl_occlusion_query.tcl
runTest ogl_planar_shadow/ogl_planar_shadow.tcl
runTest ogl_point_rotated_billboard/ogl_point_rotated_billboard.tcl
runTest ogl_point_sprites/ogl_point_sprites.tcl
runTest ogl_polygon_offset/ogl_polygon_offset.tcl
runTest ogl_texture_addressing/ogl_texture_addressing.tcl

