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

vtkObject a
a GlobalWarningDisplayOff
a Delete

proc rtOtherTest { fileid } {
#actual test
    set all [lsort [info command vtk*]]
    foreach a $all {
  if {$a == "vtkIndent"} {
      continue
  }
  if {$a == "vtkOutputPort"} {
      continue
  }
  if {$a == "vtkTimeStamp"} {
      continue
  }
        if {$a == "vtkOutputWindow"} {
           continue
        }
  catch {
           $a b
           b Print
           if {[b IsA $a] == 0} {puts stderr "$a failed IsA test!!!"}
           if {[b IsA "vtkObject"] == 0} {puts stdout "$a is not a sub-class of vtkObject"}
           b GetClassName
           b Delete
        }
  catch {
           $a b 
           $a c 
           set d [b SafeDownCast c]
           b Delete
           c Delete
        }
  catch {
           b Delete
           c Delete
        }
    }
}

# All tests should end with the following...

rtOtherTest stdout

exit


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

vtkObject a
a GlobalWarningDisplayOff
a Delete

proc rtOtherTest { fileid } {
#actual test
    set all [lsort [info command vtk*]]
    foreach a $all {
  if {$a == "vtkIndent"} {
      continue
  }
  if {$a == "vtkOutputPort"} {
      continue
  }
  if {$a == "vtkTimeStamp"} {
      continue
  }
        if {$a == "vtkOutputWindow"} {
           continue
        }
  catch {
           $a b
           puts "calling [b GetClassName]::Print"
           b Print
           if {[b IsA $a] == 0} {puts stderr "$a failed IsA test!!!"}
           if {[b IsA "vtkObject"] == 0} {puts stdout "$a is not a sub-class of vtkObject"}
           b GetClassName
           b Delete
        }
  catch {
           $a b 
           $a c 
           set d [b SafeDownCast c]
           b Delete
           c Delete
        }
  catch {
           b Delete
           c Delete
        }
    }
}

# All tests should end with the following...

rtOtherTest stdout

exit


Add some output to the test about what objects we are attempting to Print so that when it crashes, it is easier way to figure out who is responsible. Now we will be able to tell by inspection on the dashboard test output which class is crashing the test.
BUG: Add some output to the test about what objects we are attempting to Print so that when it crashes, it is easier way to figure out who is responsible. Now we will be able to tell by inspection on the dashboard test output which class is crashing the test.
