0030694: Data Exchange - support non-standard GB2312-encoded STEP files
[occt.git] / tests / bugs / step / bug25694
1 puts "========"
2 puts "OCC25694"
3 puts "========"
4 puts ""
5 ###################################################
6 # Change STEP exporter to use AP214 IS by default
7 ###################################################
8
9 box b 1 2 3
10 stepwrite a b
11
12 set bug_info [data g]
13
14 set bug_info [string trim [string range $bug_info [string first "FILE_SCHEMA" $bug_info] [expr {[string length $bug_info] - 1}]]]
15 set bug_info [string trim [string range $bug_info 0 [string first ";" $bug_info]]]
16 set bug_info [string trim [string range $bug_info [expr {[string first "'" $bug_info] + 1}] [expr {[string last "'" $bug_info] - 1}]]]
17
18 if {$bug_info != "AUTOMOTIVE_DESIGN { 1 0 10303 214 1 1 1 1 }"} {
19    puts "ERROR: OCC25694 is reproduced."
20 }