From 2cc873e2a2bfa0a63690c38f94fe10c81723fed5 Mon Sep 17 00:00:00 2001 From: bugmaster Date: Mon, 15 Aug 2016 15:53:02 +0300 Subject: [PATCH] 0021246: checkshape command does not return faulty shapes. Adding testing case --- tests/bugs/modalg_6/bug21246 | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 tests/bugs/modalg_6/bug21246 diff --git a/tests/bugs/modalg_6/bug21246 b/tests/bugs/modalg_6/bug21246 new file mode 100644 index 0000000000..97ee7e4ad4 --- /dev/null +++ b/tests/bugs/modalg_6/bug21246 @@ -0,0 +1,26 @@ +puts "REQUIRED ALL: Faulty shapes in variables faulty_1 to faulty_1" + +puts "========" +puts "OCC21246" +puts "========" +puts "Checkshape command does not return faulty shapes." +puts "========" + +######################################################### +## Command "checkshape" "gives" exception during attempt to check attached shape. +######################################################### + +restore [locate_data_file bug21246.brep] result + +set info [checkshape result] + +if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" ${info}] != 1 } { + + puts "OK : Good result of checkshape" + +} elseif { [regexp "Problems are not detected" $info] == 1 } { + + puts "Error : Wrong result of checkshape" + +} +checkview -display result -2d -path ${imagedir}/${test_image}.png \ No newline at end of file