Fix cleanup timing and history deletion permission bugs

Author: isc-dchui

src/cls/IPM/General/History.cls

@@ -210,10 +210,18 @@ ClassMethod DeleteHistoryGlobally(
         set ns = rs.%Get("Nsp")
         set $namespace = ns
         if ##class(%Dictionary.ClassDefinition).%Exists($listbuild("%IPM.General.History")) {
-            set subcount = ..DeleteHistory(.filter)
-            set count = count + subcount
-            if verbose {
-                write !, "Deleted " _ subcount _ " record(s) from " _ ns, !
+            // Use try/catch to handle permission errors in locked-down namespaces
+            try {
+                set subcount = ..DeleteHistory(.filter)
+                set count = count + subcount
+                if verbose {
+                    write !, "Deleted " _ subcount _ " record(s) from " _ ns, !
+                }
+            } catch ex {
+                // Ignore permission errors in locked namespaces
+                if verbose {
+                    write !, "Skipped " _ ns _ " (no permission): " _ ex.DisplayString(), !
+                }
             }
         }
     }

src/cls/IPM/General/HistoryTemp.cls

@@ -51,6 +51,7 @@ Method PersistToTwin() As %Status
             set ..PersistedTwin.Phases = ..Phases
             // Mark as finalized and record should be locked
             set ..PersistedTwin.Finalized = 1
+            // Ensure the persisted twin is saved (automatically included by saving this temp object)
             set sc = ..%Save()
         }
     }

src/cls/IPM/Test/Manager.cls

@@ -100,6 +100,12 @@ ClassMethod GetAllTestsStatus(
         if (failureCount > 0) {
             set sc = $$$ERROR($$$GeneralError, failureCount_" assertion(s) failed.")
         }
+
+        // Only clean up AllResults at top level (startIndex=0), not in nested phases
+        if (startIndex = 0) {
+            kill ^||%UnitTest.Manager.AllResults
+            kill ^||%UnitTest.Manager.AllResultsCount
+        }
     } catch e {
         set sc = e.AsStatus()
     }
@@ -123,11 +129,6 @@ ClassMethod OutputFailures(startIndex As %Integer = 0)
             }
         }
 
-        // Only clean up AllResults at top level (startIndex=0), not in nested phases
-        if (startIndex = 0) {
-            kill ^||%UnitTest.Manager.AllResults
-            kill ^||%UnitTest.Manager.AllResultsCount
-        }
     } catch e {
         set sc = e.AsStatus()
     }