File: TestEmptyInput.tcl

package info (click to toggle)
vtk7 7.1.1%2Bdfsg2-8
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 127,396 kB
  • sloc: cpp: 1,539,584; ansic: 124,382; python: 78,038; tcl: 47,013; xml: 8,142; yacc: 5,040; java: 4,439; perl: 3,132; lex: 1,926; sh: 1,500; makefile: 126; objc: 83
file content (106 lines) | stat: -rw-r--r-- 2,102 bytes parent folder | download | duplicates (8)
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