From: nbv <nbv@opencascade.com>
Date: Thu, 5 Feb 2015 14:12:21 +0000 (+0300)
Subject: Test case for this issue is updated
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=b2435ed8e28e48bdd31b9dc4c330511af0e8a1df;p=occt-copy.git

Test case for this issue is updated
---

diff --git a/tests/bugs/modalg_5/bug25772 b/tests/bugs/modalg_5/bug25772
index b9a4302115..c1906dc4b6 100644
--- a/tests/bugs/modalg_5/bug25772
+++ b/tests/bugs/modalg_5/bug25772
@@ -9,24 +9,9 @@ puts ""
 restore [locate_data_file pl1.brep] pl
 restore [locate_data_file selected_holes.brep] hl
 
-set log [bopargcheck pl hl #F]
-
-if{[string compare $log "Shape(s) seem(s) to be valid for BOP.\n"] == 0} {
-  puts "OK: Source shapes are valid in terms of bopargcheck"
-}else{
-  puts "Error: source shapes are invalid in terms of bopargcheck"
-}
-
 bcut result pl hl
 
-set log [bopargcheck result #F]
-
-if{[string compare $log "Shape(s) seem(s) to be valid for BOP.\n"] == 0} {
-  puts "OK: Source shapes are valid in terms of bopargcheck"
-}else{
-  puts "Error: source shapes are invalid in terms of bopargcheck"
-}
-
+checkshape result
 
 # Analysis of "nbshapes res"
 set nb_f_good 2
@@ -35,3 +20,7 @@ set nb_sol_good 0
 set nb_compsol_good 0
 set nb_compound_good 1
 
+smallview
+donly result
+fit
+set only_screen_axo 1