diff options
| author | Arnaud Versini <arnaud.versini@gmail.com> | 2016-12-04 10:46:27 +0100 |
|---|---|---|
| committer | Arnaud Versini <arnaud.versini@libreoffice.org> | 2016-12-04 12:21:05 +0000 |
| commit | 8d43bc6ce87001a73cac9842678bcd04b87a61a0 (patch) | |
| tree | 06452ae9252bde02e2ac1f5262fe0fe10478769e /basic | |
| parent | 48120d6ce597472933fa7a8a292ce8d0f1fbe1f9 (diff) | |
basic: cleanup test_math_methods
Change-Id: I11b3ca4c55151de7403ff9980ada9958d8ef12dc
Reviewed-on: https://gerrit.libreoffice.org/31592
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Laurent BP <laurent.balland-poirier@laposte.net>
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/qa/basic_coverage/test_math_methods.vb | 40 |
1 files changed, 13 insertions, 27 deletions
diff --git a/basic/qa/basic_coverage/test_math_methods.vb b/basic/qa/basic_coverage/test_math_methods.vb index 28f27b87e9be..edb90d1b7b1e 100644 --- a/basic/qa/basic_coverage/test_math_methods.vb +++ b/basic/qa/basic_coverage/test_math_methods.vb @@ -12,62 +12,48 @@ Function doUnitTest as Integer ' ABS If (Abs(-3.5) <> 3.5) Then doUnitTest = 0 - Else If (Abs(3.5) <> 3.5) Then + ElseIf (Abs(3.5) <> 3.5) Then doUnitTest = 0 ' ATN - Else If (Atn(1) <> PI/4) Then + ElseIf (Atn(1) <> PI/4) Then doUnitTest = 0 ' 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 ' EXP LOG - Else If ( Log( Exp(1) ) <> 1 ) Then + ElseIf ( Log( Exp(1) ) <> 1 ) Then doUnitTest = 0 ' FIX - Else If (Fix(PI) <> 3) Then + ElseIf (Fix(PI) <> 3) Then doUnitTest = 0 ' FRAC - Else If ( 3+Frac(PI) <> PI) Then + ElseIf ( 3+Frac(PI) <> PI) Then doUnitTest = 0 ' HEX - Else If ( Hex(100) <> "64") Then + ElseIf ( Hex(100) <> "64") Then doUnitTest = 0 ' INT - Else If ( Int(PI) <> 3 ) Then + ElseIf ( Int(PI) <> 3 ) Then doUnitTest = 0 ' OCT - Else If ( Oct(100) <> "144" ) Then + ElseIf ( Oct(100) <> "144" ) Then doUnitTest = 0 ' ROUND ' Else If ( Round( PI, 2 ) <> 3.14 ) Then ' doUnitTest = 0 ' RND - Else If ( Rnd >= 1 ) Then + ElseIf ( Rnd >= 1 ) Then doUnitTest = 0 ' SGN - Else If ( Sgn(aVector(3)) <> -1 ) Then + ElseIf ( Sgn(aVector(3)) <> -1 ) Then doUnitTest = 0 ' SQR - Else If ( Sqr( 4 ) <> 2 ) Then + ElseIf ( Sqr( 4 ) <> 2 ) Then doUnitTest = 0 ' TAN - Else If ( Abs( Tan(PI/4) - 1 ) > 1E-6 ) Then + ElseIf ( Abs( Tan(PI/4) - 1 ) > 1E-6 ) Then doUnitTest = 0 Else 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 Function |