mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
395d00e058
- Extended command Close with an option -silent
- Extended command Close to handle */-ALL for closing ALL document
- Replaced catch {Close D} by Close D -silent in tests
22 lines
484 B
Plaintext
22 lines
484 B
Plaintext
puts "========================"
|
|
puts "0032049: Data Exchange - STEP file import problems"
|
|
puts "========================"
|
|
|
|
pload OCAF
|
|
Close D -silent
|
|
|
|
# Read file
|
|
ReadStep D [locate_data_file bug32049_sp7_04dx_242.stp]
|
|
|
|
# Check file
|
|
set xst [ XStat D ]
|
|
if { [regexp {Number of labels with layer link = 191} $xst] != 1 } {
|
|
puts "Error: Incorrect number of layer references"
|
|
}
|
|
|
|
if { [regexp {Number of layers = 5} $xst] != 1 } {
|
|
puts "Error: incorrect number of layers"
|
|
}
|
|
|
|
Close D
|