Test cases which check Boolean Operation algorithm on memory leaks have been rewritten to test the whole algorithm and not a part of it.
   aLC.Append(aS1);
   aLC.Append(aS2);
   //
-  if (!pPF) {
+  if (pPF!=NULL) {
     delete pPF;
-    Handle(NCollection_BaseAllocator)aAL=new NCollection_IncAllocator;
-    pPF=new BOPAlgo_PaveFiller(aAL);
+    pPF=NULL;
   }
+  Handle(NCollection_BaseAllocator)aAL=new NCollection_IncAllocator;
+  pPF=new BOPAlgo_PaveFiller(aAL);
   //
   pPF->SetArguments(aLC);
   //
 
 
 set BugNumber OCC7287
 
-set NCycles 1000
+set NCycles 100
 box b1 100 100 100
 box b2 50 50 50
-bop b1 b2
 
 set listmem {}
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     bopcut r
     
     lappend listmem [meminfo h]
 
 
 set BugNumber OCC7287
 
-set NCycles 1000
+set NCycles 100
 box b1 10 10 10 100 100 100
 box b2 50 50 50
-bop b1 b2
 
 set listmem {}
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     bopcut r
     lappend listmem [meminfo h]
     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
 
 set BugNumber OCC7287
 
 
-set NCycles 1000
+set NCycles 100
 box b1 10 10 10 100 100 100
 box b2 50 50 50
-bop b1 b2
 
 set listmem {}
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     boptuc r
 
     lappend listmem [meminfo h]
 
 
 set BugNumber OCC7287
 
-set NCycles 1000
+set NCycles 100
 box b1 10 10 10 100 100 100
 box b2 50 50 50
-bop b1 b2
 
 set listmem {}
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     bopcommon r
 
     lappend listmem [meminfo h]
 
 
 set BugNumber OCC7287
 
-set NCycles 1000
+set NCycles 100
 box b1 10 10 10 100 100 100
 box b2 50 50 50
-bop b1 b2
 
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     bopfuse r
 
     lappend listmem [meminfo h]
 
 
 set BugNumber OCC7287
 
-set NCycles 1000
+set NCycles 100
 box b1 10 10 10 100 100 100
 box b2 50 50 50
-bop b1 b2
 
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     bopsection r
 
     lappend listmem [meminfo h]