-puts "TODO OCC24036 ALL: Faulty shapes in variables faulty_1 to faulty_2"
-puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 642 vertices instead of 966"
-puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 955 edges instead of 1224"
-puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 3 shells instead of 18"
-puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 2133 shapes instead of 2741"
+puts "TODO OCC24036 ALL: Faulty shapes in variables faulty_1 to faulty_"
+#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 642 vertices instead of 966"
+#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 955 edges instead of 1224"
+#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 3 shells instead of 18"
+#puts "TODO OCC24036 ALL: Error : Result shape is WRONG because it must contains 2133 shapes instead of 2741"
puts "================"
puts "OCC22770"
# Create a new document and set UndoLimit
-# NewDocument D MDTV-XCAF
+# NewDocument D BinXCAF
# UndoLimit D 100
# Open a transaction
restore [locate_data_file 22770-trans.brep] b
sewing result a b +c
-set square 1.8847e+07
+checkprops result -s 1.8847e+07
+checkshape result
-set nb_v_good 642
-set nb_e_good 955
-set nb_w_good 273
-set nb_f_good 259
-set nb_sh_good 3
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 2133
-
-checkmaxtol result 0.000126867229511314
+checknbshapes result -vertex 964 -edge 1222 -wire 273 -face 259 -shell 18 -solid 0 -compsolid 0 -compound 1 -shape 2737
+checkmaxtol result -ref 0.0451323239933289
checknbshapes result -shell 18
-checkfreebounds result 927
-
-set 3dviewer 0
+checkfreebounds result 926
+checkview -display result -3d -path ${imagedir}/${test_image}.png