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 NPS02_GeometryTest.tcl
runTest NPS03_TexturedGeometry.tcl
runTest NPS04_TestState.tcl
runTest NPS05_TestTutorial.tcl
runTest NPS06_SimpleHUD.tcl
runTest NPS07_TestSwitchDOF.tcl
runTest NPS08_TestUpdateCallback.tcl
runTest NPS09_TestKeyboard.tcl
runTest NPS10_TestManualCamera.tcl
