0023119: TNaming_Selector::Solve() fails (changes from single face to compound of...

[occt.git] / tests / caf / named_shape / E9

diff --git a/tests/caf/named_shape/E9 b/tests/caf/named_shape/E9
index 02628ad..c1b9e5f 100644 (file)
--- a/tests/caf/named_shape/E9
+++ b/tests/caf/named_shape/E9
@@ -1,11 +1,27 @@
+# ============= OCAF ============================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E9 (ShapeOrientation is not used)
+#
+# 1. Create Box B1
+# 2. Create 4 spheres ($Sph1 - $Sph4)
+# 3. Rotate all spheres around line
+# 4. Fuse all spheres with box B1
+# 5. Make selection for all sub-shapes
+# 6. Modify B1
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
 isos 12
+
 #1 - create Box using short-cut
 NewCommand D
 AddDriver D Box;                       ## add box driver to driver table
@@ -17,7 +33,7 @@ whatis Box1
 GetReference D $B1;                    ## check is reference set 
 
 
-#2 - create 8 spheres
+#2 - create 4 spheres
 AddDriver D Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 NewCommand D
 explode Box1 V
@@ -122,7 +138,7 @@ erase
 GetShape D $FS4:2 Box1
 
 
-#recomputation of entities of the TestSelection commands
+#8 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D