0028389: Data Exchange - Import of STEP Saved Views and Clipping Planes
[occt.git] / tests / gdt / view / end
1 set mist 0
2 # Read original file
3 if { [string length $filename] > 1} {
4   set path_file [locate_data_file $filename]
5   if { [catch { ReadStep D_First $path_file } catch_result] } {
6     set err_msg "Error: First - file was not read - exception "
7     puts $err_msg
8     append todo_msg $todo_mask $err_msg $end_line
9     set mist 1
10   }
11 } else {
12   set mist 1
13 }
14
15 # Get information about translation
16 if { $mist < 1} {
17   set ref_list [split $ref_data \n]
18   puts [llength $ref_list]
19   for { set i 1 } { $i < [llength $ref_list] - 1 } { incr i } {
20     set ref [lindex $ref_list $i]
21     set res [OCC28389 {*}$ref]
22   }
23 }
24
25 puts "TEST COMPLETED"