0031382: Data Exchange - BinXCAF should preserve length unit information

[occt.git] / tests / de_mesh / obj_read / ship_boat

diff --git a/tests/de_mesh/obj_read/ship_boat b/tests/de_mesh/obj_read/ship_boat
index 206876b..d138eaf 100644 (file)
--- a/tests/de_mesh/obj_read/ship_boat
+++ b/tests/de_mesh/obj_read/ship_boat
@@ -3,7 +3,14 @@ puts "0029296: Data Exchange - implement import of mesh data from files in OBJ f
 puts "Ship model with transparent windows"
 puts "========"
 
-ReadObj D [locate_data_file ship_boat.obj]
+XNewDoc D
+XSetLengthUnit D in
+ReadObj D [locate_data_file ship_boat.obj] -nocreatedoc -unit 1
 XGetOneShape s D
 checknbshapes s -face 2359 -compound 2
 checktrinfo s -tri 27297 -nod 40496
+set aLProps [uplevel #0 sprops $s]
+regexp {Mass\s:\s*([0-9\.e\+]+)} $aLProps dummy anArea
+if {abs($anArea - 2.65152e+10) > 1e-8} {
+  puts "Error: invalid area $anArea instead of 2.65152e+10"
+}