Update TestRunner.xba

Author: ws-garcia

src/LO Basic/VBAExpressionsLib/TestRunner.xba

@@ -576,54 +576,6 @@ Private Sub VALIDATEcircleTangents(testName As String)
     	SF_Exception.debugprint("+ Success test " & testName)
     End If
 
-TestExit:
-    Exit Sub
-TestFail:
-    SF_Exception.debugprint("Test " & testName & " raised an error: #" & err.Number & " - " & err.Description)
-    Resume TestExit			
-End Sub
-
-Private Sub LargestSquareInRATriangle(testName As String)
-    On Error GoTo TestFail
-    Dim expect As String
-    Dim contFunct As String
-    
-    tTotal=tTotal+1
-    Set Evaluator = New VBAexpressions
-    contFunct = "FZERO('GET(_side_;DISTANCE(LINESINTERSECT(" _
-                                    & "PERPENDICULAR(hyp;{{x;0}});hyp)" _
-                                & ";{{x;0}}))" _
-                        & "-" _
-                & "DISTANCE(LINESINTERSECT(" _
-                                & "PERPENDICULAR(PERPENDICULAR(" _
-                                                & "hyp;{{x;0}})" _
-                                            & ";{{x;0}})" _
-                                & ";leg.a)" _
-                        & ";{{x;0}})'" _
-                    & ";0;12)"
-    With Evaluator
-		'Triangle hypotenuse
-        .Create "GET('hyp';{{12;0};{0;5}})": .Eval
-        'Leg a definition
-        .Create "GET(_leg.a_;{{0;0};{0;5}})", False: .Eval
-        .Create contFunct, False: .Eval
-        actual = .result
-        If .ErrorType = 0 Then
-            .Create "ROUND(side^2;4)", False: .Eval
-            If .ErrorType = 0 Then
-                actual .result
-            End If
-        End If
-    End With
-    expect = "11.6016"
-    
-    If expect <> actual Then 
-    	SF_Exception.debugprint("x Failed test " & testName, expect,"<>",actual)
-    Else
-    	sAcum=sAcum+1
-    	SF_Exception.debugprint("+ Success test " & testName)
-    End If
-
 TestExit:
     Exit Sub
 TestFail: