0023570: Command param in DRAW outputs non-readable symbols
[occt.git] / tests / bugs / xde / bug23570
CommitLineData
381a6d0e 1puts "============"
2puts "OCC23570"
3puts "============"
4puts ""
5###########################################################################
6# Command param in DRAW outputs non-readable symbols
7###########################################################################
8
9set info [param write.surfacecurve.mode]
10
11set result1 [regexp {\-\-\- Type : Enum \[in 0-1\] 0:Off 1:On , alpha: +(.*):0 +(.*):1 +\n\-\-\-} $info full alpha_0 alpha_1]
12
13if { ${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}