Changeset 6066 for trunk/gui/test/vtkisosurfaceviewer.test
- Timestamp:
- Feb 27, 2016, 7:51:53 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/test/vtkisosurfaceviewer.test
r5687 r6066 1 1 # Commands covered: 2 # Rappture::Gauge 3 # Rappture::Gauge::value 2 # Rappture::VtkIsosurfaceViewer 4 3 # 5 4 # This file contains a collection of tests for one of the Rappture Tcl … … 8 7 # 9 8 # ====================================================================== 10 # AUTHOR: Derrick Kearney, Purdue University 11 # Copyright (c) 2004-2012 HUBzero Foundation, LLC 9 # AUTHORS: 10 # Derrick Kearney, Purdue University 11 # Leif Delgass, Purdue University 12 # Copyright (c) 2004-2016 HUBzero Foundation, LLC 12 13 # 13 14 # See the file "license.terms" for information on usage and redistribution … … 17 18 if {[lsearch [namespace children] ::tcltest] == -1} { 18 19 package require tcltest 20 package require Rappture 19 21 package require RapptureGUI 20 22 namespace import -force ::tcltest::* 21 23 } 22 23 set servers [Rappture::VisViewer::GetServerList "vtkvis"]24 25 Rappture::VtkIsosurfaceViewer .#auto $servers26 24 27 25 #---------------------------------------------------------- … … 32 30 #---------------------------------------------------------- 33 31 test vtkisosurfaceviewer.constructor.1 { 34 value command, 0 args, missing server list error32 constructor, 0 args, auto named 35 33 } -setup { 36 34 } -body { 37 35 list [catch {Rappture::VtkIsosurfaceViewer .#auto} msg] $msg 38 36 } -cleanup { 39 } -result {1 {wrong # args: should be "::Rappture::VtkIsosurfaceViewer .vtkIsosurfaceViewer1 hostlist ?arg arg ...?"}} 37 destroy .vtkIsosurfaceViewer0 38 } -result {0 .vtkIsosurfaceViewer0} 40 39 41 40 test vtkisosurfaceviewer.constructor.2 { 42 value command, 1 args empty hostlist, empty hostlist uses visviewer defaults41 value command, explicit name, -plotbackground option 43 42 } -setup { 44 43 } -body { 45 catch {Rappture::VtkIsosurfaceViewer . #auto {}} msg44 catch {Rappture::VtkIsosurfaceViewer .foo -plotbackground red} msg 46 45 } -cleanup { 46 destroy .foo 47 47 } -result {0} 48 48 49 49 test vtkisosurfaceviewer.constructor.3 { 50 value command, 1 args valid hostlist50 value command, bad option 51 51 } -setup { 52 52 } -body { 53 catch {Rappture::VtkIsosurfaceViewer .#auto $servers}msg53 list [catch {Rappture::VtkIsosurfaceViewer .foo -nonexistent foo} msg] $msg 54 54 } -cleanup { 55 } -result {0} 56 57 #test vtkisosurfaceviewer.constructor.5 { 58 # value command, 1 args valid hostlist 59 #} -setup { 60 #} -body { 61 # set w [Rappture::VtkIsosurfaceViewer .#auto $servers] 62 #} -cleanup { 63 # destroy $w 64 # catch {unset w} 65 #} -result {} 55 destroy .foo 56 } -result {1 {unknown option "-nonexistent"}} 66 57 67 58 ::tcltest::cleanupTests
Note: See TracChangeset
for help on using the changeset viewer.