0025803: Defective tests contaminating current directory
[occt.git] / tests / bugs / xde / bug22728
CommitLineData
809eca9d 1puts "================"
2puts "OCC22728"
3puts "================"
4puts ""
5#######################################################################################
6# STEP export API does not provide possibility to control output stream
7######################################################################################
8
9set BugNumber OCC22728
10
11box b 10 10 10
12
13cd ${imagedir}
14
15set text [stepwrite a b test.step]
16
17if { [regexp "File test.step written" $text] != 1 } {
18 puts "Faulty ${BugNumber}"
19} else {
20 puts "OK ${BugNumber}"
21}
22