for {set i  0} {$i < [expr $argc - 1]} {incr i} {
   if {[lindex $argv $i] == "-A"} {
      set auto_path "$auto_path [lindex $argv [expr $i +1]]"
   }
}
package require vtk

proc rtOtherTest { fileid } {
#actual test
    puts $fileid "vtkTclUtil test started"

    vtkCommand DebugOn
    vtkTriangle a
    vtkQuad b
    puts $fileid "a ListInstances: [a ListInstances]"
    puts $fileid "vtkTriangle ListInstances: [vtkTriangle ListInstances]"
    puts $fileid "vtkCommand ListMethods"
    puts $fileid "[vtkCommand ListMethods]"
    puts $fileid "vtkCommand ListAllInstances"
    puts $fileid "[vtkCommand ListAllInstances]"
    puts $fileid "Some error handling..."

    puts $fileid "vtkWedge"
    set rc [catch {puts $fileid "[vtkWedge]"} status]
    puts $fileid "tcl return code: $rc : $status"

    puts $fileid "vtkWedge 1a"
    set rc [catch {puts $fileid "[vtkWedge 1a]"} status]
    puts $fileid "tcl return code: $rc : $status"

    puts $fileid "vtkTransform t; vtkTransform t"
    set rc [catch {puts $fileid "[vtkTransform t; vtkTransform t]"} status]
    puts $fileid "tcl return code: $rc : $status"

    puts $fileid "vtkTransform image;"
    set rc [catch {puts $fileid "[vtkTransform image]"} status]
    puts $fileid "tcl return code: $rc : $status"

    puts $fileid "vtkTclUtil test ended"
}

# All tests should end with the following...

if {![info exists rtOutId]} {
   rtOtherTest stdout
   vtkCommand DebugOff
   vtkCommand DeleteAllObjects
   exit
}

wm withdraw .