1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106
|
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 SetInputData emptyPD}] == 0} {
catch {b Update}
}
if {[catch {b SetInputData emptyID}] == 0} {
catch {b Update}
}
if {[catch {b SetInputData emptySG}] == 0} {
catch {b Update}
}
if {[catch {b SetInputData emptyUG}] == 0} {
catch {b Update}
}
if {[catch {b SetInputData emptyRG}] == 0} {
catch {b Update}
}
}
# If thread creation moves away from the vtkGeoSource constructor, then
# this ShutDown call will not be necessary...
#
if {[b IsA "vtkGeoSource"]} {
catch {b ShutDown}
}
b Delete
}
set classExceptions {
vtkCommand
vtkIndent
vtkTimeStamp
vtkTkImageViewerWidget
vtkTkImageWindowWidget
vtkTkRenderWidget
vtkImageDataToTkPhoto
vtkJPEGReader
vtkWin32VideoSource
vtkDistributedDataFilter
vtkAMREnzoReader
vtkAMRFlashReader
vtkAMRFlashParticlesReader
vtkMathTextUtilities
vtkMatplotlibMathTextUtilities
vtkQImageToImageSource
vtkQtLabelRenderStrategy
vtkQtStringToImage
vtkQtTreeRingLabelMapper
}
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"
} else {
puts "NOT Testing -- $a - "
}
}
puts "All Passed"
}
rtTestEmptyInputTest stdout
emptyPD Delete
emptyID Delete
emptySG Delete
emptyUG Delete
emptyRG Delete
exit
|