0023570: Command param in DRAW outputs non-readable symbols
[occt.git] / tests / bugs / xde / bug23570
1 puts "============"
2 puts "OCC23570"
3 puts "============"
4 puts ""
5 ###########################################################################
6 # Command param in DRAW outputs non-readable symbols
7 ###########################################################################
8
9 set info [param write.surfacecurve.mode]
10
11 set result1 [regexp {\-\-\- Type : Enum \[in 0-1\] 0:Off 1:On , alpha: +(.*):0 +(.*):1 +\n\-\-\-} $info full alpha_0 alpha_1]
12
13 if { ${result1} == 0 } {
14    puts "Error: bad message or regexp"
15 } else {
16    puts "alpha_0=${alpha_0}"
17    puts "alpha_1=${alpha_1}"
18    set result2 [regexp {([^A-Za-z0-9]+)} ${alpha_0} full non_readable_symbols_0]
19    set result3 [regexp {([^A-Za-z0-9]+)} ${alpha_1} full non_readable_symbols_1]
20    if { ${result2} == 1 } {
21       puts "non_readable_symbols_0=${non_readable_symbols_0}"
22       puts "Error: Command param in DRAW outputs non-readable symbols for enumerated parameters, after \"alpha\"; (0)"
23    }
24    if { ${result3} == 1 } {
25       puts "non_readable_symbols_1=${non_readable_symbols_1}"
26       puts "Error: Command param in DRAW outputs non-readable symbols for enumerated parameters, after \"alpha\"; (1)"
27    }
28 }