Kaydet (Commit) 8d43bc6c authored tarafından Arnaud Versini's avatar Arnaud Versini Kaydeden (comit) Arnaud Versini

basic: cleanup test_math_methods

Change-Id: I11b3ca4c55151de7403ff9980ada9958d8ef12dc
Reviewed-on: https://gerrit.libreoffice.org/31592Tested-by: 's avatarJenkins <ci@libreoffice.org>
Reviewed-by: 's avatarLaurent BP <laurent.balland-poirier@laposte.net>
üst 48120d6c
...@@ -12,62 +12,48 @@ Function doUnitTest as Integer ...@@ -12,62 +12,48 @@ Function doUnitTest as Integer
' ABS ' ABS
If (Abs(-3.5) <> 3.5) Then If (Abs(-3.5) <> 3.5) Then
doUnitTest = 0 doUnitTest = 0
Else If (Abs(3.5) <> 3.5) Then ElseIf (Abs(3.5) <> 3.5) Then
doUnitTest = 0 doUnitTest = 0
' ATN ' ATN
Else If (Atn(1) <> PI/4) Then ElseIf (Atn(1) <> PI/4) Then
doUnitTest = 0 doUnitTest = 0
' COS SIN ' COS SIN
Else If ( Abs(Cos(PI/3) - Sin(PI/6)) > 1E-6 ) Then ElseIf ( Abs(Cos(PI/3) - Sin(PI/6)) > 1E-6 ) Then
doUnitTest = 0 doUnitTest = 0
' EXP LOG ' EXP LOG
Else If ( Log( Exp(1) ) <> 1 ) Then ElseIf ( Log( Exp(1) ) <> 1 ) Then
doUnitTest = 0 doUnitTest = 0
' FIX ' FIX
Else If (Fix(PI) <> 3) Then ElseIf (Fix(PI) <> 3) Then
doUnitTest = 0 doUnitTest = 0
' FRAC ' FRAC
Else If ( 3+Frac(PI) <> PI) Then ElseIf ( 3+Frac(PI) <> PI) Then
doUnitTest = 0 doUnitTest = 0
' HEX ' HEX
Else If ( Hex(100) <> "64") Then ElseIf ( Hex(100) <> "64") Then
doUnitTest = 0 doUnitTest = 0
' INT ' INT
Else If ( Int(PI) <> 3 ) Then ElseIf ( Int(PI) <> 3 ) Then
doUnitTest = 0 doUnitTest = 0
' OCT ' OCT
Else If ( Oct(100) <> "144" ) Then ElseIf ( Oct(100) <> "144" ) Then
doUnitTest = 0 doUnitTest = 0
' ROUND ' ROUND
' Else If ( Round( PI, 2 ) <> 3.14 ) Then ' Else If ( Round( PI, 2 ) <> 3.14 ) Then
' doUnitTest = 0 ' doUnitTest = 0
' RND ' RND
Else If ( Rnd >= 1 ) Then ElseIf ( Rnd >= 1 ) Then
doUnitTest = 0 doUnitTest = 0
' SGN ' SGN
Else If ( Sgn(aVector(3)) <> -1 ) Then ElseIf ( Sgn(aVector(3)) <> -1 ) Then
doUnitTest = 0 doUnitTest = 0
' SQR ' SQR
Else If ( Sqr( 4 ) <> 2 ) Then ElseIf ( Sqr( 4 ) <> 2 ) Then
doUnitTest = 0 doUnitTest = 0
' TAN ' TAN
Else If ( Abs( Tan(PI/4) - 1 ) > 1E-6 ) Then ElseIf ( Abs( Tan(PI/4) - 1 ) > 1E-6 ) Then
doUnitTest = 0 doUnitTest = 0
Else Else
doUnitTest = 1 doUnitTest = 1
End If End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
'End If
End Function End Function
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment