[Libreoffice-commits] core.git: basic/qa

[Thomas Arnhold]

 basic/qa/vba_tests/cdec.vb |   26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

New commits:
commit a5b93782a18a2ddb6dee4033a578d919b10b6964
Author: Thomas Arnhold <thomas at arnhold.org>
Date:   Tue May 13 06:06:54 2014 +0200

    basic: update descriptions and add some more tests
    
    Change-Id: Ice829c70482171bbfc22719e4b9e30c5ac058f5e

diff --git a/basic/qa/vba_tests/cdec.vb b/basic/qa/vba_tests/cdec.vb
index 50757de..3ed82b3 100644
--- a/basic/qa/vba_tests/cdec.vb
+++ b/basic/qa/vba_tests/cdec.vb
@@ -25,24 +25,38 @@ Function verify_testCDec() as String
     On Error GoTo errorHandler
     
     ret = CDec("")
-    TestLog_ASSERT ret = 0, "Converts the string to uppercase characters:" & ret
+    TestLog_ASSERT ret = 0, "Empty string test:" & ret
 
     ret = CDec("1234")
-    TestLog_ASSERT ret = "1234", "Converts the string to uppercase characters:" & ret
+    TestLog_ASSERT ret = 1234, "Simple number:" & ret
 
     ret = CDec("  1234  ")
-    TestLog_ASSERT ret = 1234, "Converts the string to uppercase characters:" & ret
+    TestLog_ASSERT ret = 1234, "Simple number with whitespaces:" & ret
+
+    ret = CDec("-1234")
+    TestLog_ASSERT ret = -1234, "Simple negative number:" & ret
+
+    ret = CDec(" - 1234 ")
+    TestLog_ASSERT ret = -1234, "Simple negative number with whitespaces:" & ret
 
     '''''''''''''''
     ' Those are erroneous, see i#64348
     ret = CDec("1234-")
-    TestLog_ASSERT ret = -1234, "Converts the string to uppercase characters:" & ret
+    TestLog_ASSERT ret = -1234, "Wrong negative number1:" & ret
 
     ret = CDec("  1234  -")
-    TestLog_ASSERT ret = -1234, "Converts the string to uppercase characters:" & ret
+    TestLog_ASSERT ret = -1234, "Wrong negative number2:" & ret
+
+    'ret = CDec("79228162514264300000000000001")
+    'TestLog_ASSERT ret = 79228162514264300000000000001, "Very long number1:" & ret
+    'ret = ret+1
+    'TestLog_ASSERT ret = 79228162514264300000000000002, "Very long number2:" & ret
 
     ret = CDec("79228162514264400000000000000")
-    TestLog_ASSERT ret = 62406456049664, "Converts the string to uppercase characters:" & ret
+    TestLog_ASSERT ret = 62406456049664, "Very long number3:" & ret
+
+    ret = CDec("79228162514264340000000000000") ' gives zero
+    TestLog_ASSERT ret = 0, "Very long number4:" & ret
 
     result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
     verify_testCDec = result