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.
89 lines
1.6 KiB
89 lines
1.6 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
|
||
|
|
|
||
|
|
|
||
|
|
vtkPolyData emptyPD
|
||
|
|
vtkImageData emptyID
|
||
|
|
vtkStructuredGrid emptySG
|
||
|
|
vtkUnstructuredGrid emptyUG
|
||
|
|
vtkRectilinearGrid emptyRG
|
||
|
|
|
||
|
|
proc TestOne {cname} {
|
||
|
|
|
||
|
|
$cname b
|
||
|
|
|
||
|
|
if {[b IsA "vtkAlgorithm"]} {
|
||
|
|
catch {b Update}
|
||
|
|
if {[catch {b SetInput emptyPD}] == 0} {
|
||
|
|
catch {b Update}
|
||
|
|
}
|
||
|
|
if {[catch {b SetInput emptyID}] == 0} {
|
||
|
|
catch {b Update}
|
||
|
|
}
|
||
|
|
if {[catch {b SetInput emptySG}] == 0} {
|
||
|
|
catch {b Update}
|
||
|
|
}
|
||
|
|
if {[catch {b SetInput emptyUG}] == 0} {
|
||
|
|
catch {b Update}
|
||
|
|
}
|
||
|
|
if {[catch {b SetInput emptyRG}] == 0} {
|
||
|
|
catch {b Update}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
b Delete
|
||
|
|
}
|
||
|
|
|
||
|
|
set classExceptions {
|
||
|
|
vtkCommand
|
||
|
|
vtkIndent
|
||
|
|
vtkTimeStamp
|
||
|
|
vtkTkImageViewerWidget
|
||
|
|
vtkTkImageWindowWidget
|
||
|
|
vtkTkRenderWidget
|
||
|
|
vtkImageDataToTkPhoto
|
||
|
|
vtkJPEGReader
|
||
|
|
vtkWin32VideoSource
|
||
|
|
vtkDistributedDataFilter
|
||
|
|
}
|
||
|
|
|
||
|
|
proc rtTestEmptyInputTest { fileid } {
|
||
|
|
global classExceptions
|
||
|
|
# for every class
|
||
|
|
set all [lsort [info command vtk*]]
|
||
|
|
foreach a $all {
|
||
|
|
if {[lsearch $classExceptions $a] == -1} {
|
||
|
|
# test some set get methods
|
||
|
|
puts -nonewline "Testing -- $a - "
|
||
|
|
flush stdout
|
||
|
|
TestOne $a
|
||
|
|
puts "done"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
puts "All Passed"
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
rtTestEmptyInputTest stdout
|
||
|
|
|
||
|
|
emptyPD Delete
|
||
|
|
emptyID Delete
|
||
|
|
emptySG Delete
|
||
|
|
emptyUG Delete
|
||
|
|
emptyRG Delete
|
||
|
|
|
||
|
|
exit
|
||
|
|
|
||
|
|
|