Telescope.SideOfPier - Only conduct tests if tracking is enabled.

Author: Peter-Simpson

Conform/Devices/TelescopeTester.vb

@@ -3566,6 +3566,19 @@ Friend Class TelescopeTester
 
                     Case OptionalMethodType.SideOfPierWrite
                         'SideOfPier Write
+
+                        ' Tracking must be enabled for the SideOfPier tests so enable it if possible, otherwise skip the test
+                        If g_Settings.DisplayMethodCalls Then LogMsg("SideOfPier Write", MessageLevel.msgComment, $"About to get Tracking property")
+                        If Not telescopeDevice.Tracking Then
+                            If trackingCanActuallybeChanged Then
+                                If g_Settings.DisplayMethodCalls Then LogMsg("SideOfPier Write", MessageLevel.msgComment, $"About to set Tracking property True")
+                                telescopeDevice.Tracking = True
+                            Else
+                                LogMsgInfo("SideOfPier Write", "Tests skipped because Tracking cannot be enabled.")
+                                Exit Select
+                            End If
+                        End If
+
                         If canSetPierside Then 'Can set pier side so test if we can
                             SlewScope(TelescopeRAFromHourAngle(p_Name, -3.0), 0.0, "Slewing to far start point")
                             If TestStop() Then Exit Sub
@@ -4111,6 +4124,18 @@ Friend Class TelescopeTester
         Dim l_PierSideMinus3, l_PierSideMinus9, l_PierSidePlus3, l_PierSidePlus9 As SideOfPierResults
         Dim l_Declination3, l_Declination9, l_StartRA As Double
 
+        ' Tracking must be enabled for the SideOfPier tests so enable it if possible, otherwise skip the test
+        If g_Settings.DisplayMethodCalls Then LogMsg("SideOfPierTests", MessageLevel.msgComment, $"About to get Tracking property")
+        If Not telescopeDevice.Tracking Then
+            If trackingCanActuallybeChanged Then
+                If g_Settings.DisplayMethodCalls Then LogMsg("SideOfPierTests", MessageLevel.msgComment, $"About to set Tracking property True")
+                telescopeDevice.Tracking = True
+            Else
+                LogMsgInfo("SideOfPier", "Tests skipped because Tracking cannot be enabled.")
+                Return
+            End If
+        End If
+
         'Slew to starting position
         LogMsg("SideofPier", MessageLevel.msgDebug, "Starting Side of Pier tests")
 

Conform/GlobalVarsAndCode.vb

@@ -315,6 +315,7 @@ Module GlobalVarsAndCode
         FrmConformMain.staAction.Text = Action
         FrmConformMain.staStatus.Text = Status
     End Sub
+
     Friend Sub ExTest(ByVal p_TestName As String, ByVal p_EXMessage As String, ByVal p_LogMessage As String)
         Dim l_Msg As String
         l_Msg = UCase(p_EXMessage)

Conform/My Project/AssemblyVersionInfo.vb

@@ -11,5 +11,5 @@
 Option Strict Off
 Option Explicit On
 
-<Assembly: System.Reflection.AssemblyVersion("6.5.7873.27935")> 
+<Assembly: System.Reflection.AssemblyVersion("6.5.7875.27420")>