You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.1 KiB
57 lines
1.1 KiB
2 years ago
|
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
|
||
|
|
|