mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
28 lines
708 B
Plaintext
28 lines
708 B
Plaintext
puts "==========================================================="
|
|
puts "0033318: Data Exchange - Modifying the BRep flag after exporting the shape"
|
|
puts "==========================================================="
|
|
|
|
pload XDE
|
|
|
|
set filepath [locate_data_file bug28620.brep]
|
|
set f1 [open $filepath "r"]
|
|
set string1 [read $f1]
|
|
close $f1
|
|
|
|
set conf {provider.BREP.OCC.write.binary : 0}
|
|
|
|
set aTmpFile ${imagedir}/tmpfile1.brep
|
|
readfile sh1 $filepath
|
|
writefile sh1 $aTmpFile -conf $conf
|
|
|
|
set f2 [open $aTmpFile "r"]
|
|
set string2 [read $f2]
|
|
close $f2
|
|
|
|
set newstr [string trim $string2]
|
|
if { [string first $newstr [string trim $string1]] == -1 } {
|
|
puts "Error: strings is not equal"
|
|
}
|
|
|
|
file delete -force $aTmpFile
|