mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
21 lines
719 B
Plaintext
21 lines
719 B
Plaintext
puts "========"
|
|
puts "OCC25694"
|
|
puts "========"
|
|
puts ""
|
|
###################################################
|
|
# Change STEP exporter to use AP214 IS by default
|
|
###################################################
|
|
|
|
box b 1 2 3
|
|
stepwrite a b
|
|
|
|
set bug_info [data g]
|
|
|
|
set bug_info [string trim [string range $bug_info [string first "FILE_SCHEMA" $bug_info] [expr {[string length $bug_info] - 1}]]]
|
|
set bug_info [string trim [string range $bug_info 0 [string first ";" $bug_info]]]
|
|
set bug_info [string trim [string range $bug_info [expr {[string first "'" $bug_info] + 1}] [expr {[string last "'" $bug_info] - 1}]]]
|
|
|
|
if {$bug_info != "AUTOMOTIVE_DESIGN { 1 0 10303 214 1 1 1 1 }"} {
|
|
puts "ERROR: OCC25694 is reproduced."
|
|
}
|