Commit 6707ef95 authored by David Gobbi's avatar David Gobbi Committed by Marcus D. Hanwell
Browse files

ENH: Add tcl test for vtkStdString

parent d9fad8a9
......@@ -13,6 +13,8 @@ ADD_TEST(TestSetGet ${VTK_EXECUTABLE}
ADD_TEST(TestArrays ${VTK_EXECUTABLE}
${VTK_SOURCE_DIR}/Common/Testing/Tcl/TestArrays.tcl
-A ${VTK_SOURCE_DIR}/Wrapping/Tcl)
ADD_TEST(TestString ${VTK_EXECUTABLE}
${VTK_SOURCE_DIR}/Common/Testing/Tcl/TestString.tcl)
ADD_TEST(TestAmoebaMinimizer ${VTK_EXECUTABLE}
${VTK_SOURCE_DIR}/Common/Testing/Tcl/TestAmoebaMinimizer.tcl)
ADD_TEST(PrintSelf-Common ${TCL_TCLSH}
......
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
package require vtkcommon
package require vtkio
# Pass and return a string by value.
vtkDelimitedTextWriter r1
set t1 [r1 GetString "hello"]
if { $t1 != "\"hello\"" } {
puts -nonewline "return-string-by-value failed "
puts -nonewline $t1
puts -nonewline " != "
puts "\"hello\""
exit 1
}
# Pass a string by reference - can't find a good example,
# but it is coded identical to passing a string by value
# Return a string by reference.
vtkStringArray a3
set s3 "hello"
a3 InsertNextValue $s3
set t3 [a3 GetValue 0]
if { $t3 != $s3 } {
puts -nonewline "return-string-by-reference failed "
puts -nonewline $t3
puts -nonewline " != "
puts $s3
exit 1
}
exit
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment