basic: Drop unused variables in test scripts

Change-Id: I9893e8bed254dcac91fbc7abb5ab4817a28ba339
Reviewed-on: https://gerrit.libreoffice.org/38133Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Takeshi Abe <tabe@fixedpoint.jp>

basic/qa/vba_tests/abs.vb

@@ -24,9 +24,6 @@ Function verify_testABS() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date   'variables for test
     Dim nr1, nr2 As Double
 
     testName = "Test ABS function"

basic/qa/vba_tests/array.vb

@@ -28,9 +28,6 @@ Function verify_testARRAY() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date   'variables for test
     Dim a, b, C As Variant
     a = Array(10, 20, 30)
     testName = "Test ARRAY function"

basic/qa/vba_tests/asc.vb

@@ -24,9 +24,6 @@ Function verify_testASC() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date   'variables for test
     Dim nr1, nr2 As Double
 
     testName = "Test ASC function"

basic/qa/vba_tests/atn.vb

@@ -23,9 +23,6 @@ Function verify_testATN() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date
     Dim nr1, nr2 As Double
     testName = "Test ATN function"
     On Error GoTo errorHandler

basic/qa/vba_tests/cbool.vb

@@ -24,8 +24,6 @@ Function verify_testCBool() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim res2, res1 As Boolean
     Dim a1, a2 As Integer
     testName = "Test CBool function"

basic/qa/vba_tests/cdate.vb

@@ -23,8 +23,6 @@ Function verify_testCDate() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date   'variables for test
     testName = "Test CDate function"
     On Error GoTo errorHandler

basic/qa/vba_tests/cdbl.vb

@@ -23,8 +23,6 @@ Function verify_testCdbl() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Double   'variables for test
     testName = "Test Cdbl function"
     On Error GoTo errorHandler

basic/qa/vba_tests/choose.vb

@@ -23,7 +23,6 @@ Function verify_testChoose() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
     Dim var1, var2
     testName = "Test Choose function"
 

basic/qa/vba_tests/chr.vb

@@ -23,8 +23,6 @@ Function verify_testCHR() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim str1, str2 As String
     testName = "Test CHR function"
     On Error GoTo errorHandler

basic/qa/vba_tests/cint.vb

@@ -23,8 +23,6 @@ Function verify_testCInt() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Integer   'variables for test
     testName = "Test CInt function"
 

basic/qa/vba_tests/clng.vb

@@ -23,8 +23,6 @@ Function verify_testCLng() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Long   'variables for test
     testName = "Test CLng function"
 

basic/qa/vba_tests/cos.vb

@@ -23,8 +23,6 @@ Function verify_testCOS() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Double   'variables for test
     testName = "Test COS function"
 

basic/qa/vba_tests/csng.vb

@@ -23,8 +23,6 @@ Function verify_testCSng() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Single   'variables for test
     Dim nr3 As Double
 

basic/qa/vba_tests/cstr.vb

@@ -23,7 +23,6 @@ Function verify_testCStr() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
     Dim str2, str3
     Dim str1 As String   'variables for test
     testName = "Test CStr function"

basic/qa/vba_tests/cvdate.vb

@@ -23,8 +23,6 @@ Function verify_testCVDate() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date   'variables for test
     testName = "Test CVDate function"
     On Error GoTo errorHandler

basic/qa/vba_tests/cverr.vb

@@ -23,8 +23,6 @@ Function verify_testCVErr() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test CVErr function"
     On Error GoTo errorHandler

basic/qa/vba_tests/dateadd.vb

@@ -23,8 +23,6 @@ Function verify_testDateAdd() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date   'variables for test
     testName = "Test DateAdd function"
     On Error GoTo errorHandler

basic/qa/vba_tests/datediff.vb

@@ -23,8 +23,6 @@ Function verify_testDateDiff() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1
     Dim date2
     testName = "Test DateDiff function"

basic/qa/vba_tests/datepart.vb

@@ -23,8 +23,6 @@ Function verify_testDatePart() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1   'variables for test
     Dim date2
     testName = "Test DatePart function"

basic/qa/vba_tests/dateserial.vb

@@ -16,8 +16,6 @@ End Function
 
 Function verify_testDateSerial() as String
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date
     passCount = 0
     failCount = 0

basic/qa/vba_tests/datevalue.vb

@@ -23,8 +23,6 @@ Function verify_testDateValue() as String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date
     testName = "Test DateValue function"
     date2 = 25246

basic/qa/vba_tests/day.vb

@@ -23,8 +23,6 @@ Function verify_testday() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2   'variables for test
     testName = "Test day function"
     On Error GoTo errorHandler

basic/qa/vba_tests/error.vb

@@ -23,8 +23,6 @@ Function verify_testError() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Error function"
     On Error GoTo errorHandler

basic/qa/vba_tests/exp.vb

@@ -23,8 +23,6 @@ Function verify_testExp() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Exp function"
     On Error GoTo errorHandler

basic/qa/vba_tests/fix.vb

@@ -23,8 +23,6 @@ Function verify_testFix() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Fix function"
     On Error GoTo errorHandler

basic/qa/vba_tests/formatnumber.vb

@@ -25,8 +25,6 @@ Function verify_testFormatNumber() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test FormatNumber function"
     On Error GoTo errorHandler

basic/qa/vba_tests/hex.vb

@@ -23,8 +23,6 @@ Function verify_testHex() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Hex function"
     On Error GoTo errorHandler

basic/qa/vba_tests/hour.vb

@@ -23,8 +23,6 @@ Function verify_testHour() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, myTime
     testName = "Test Hour function"
     On Error GoTo errorHandler

basic/qa/vba_tests/iif.vb

@@ -23,8 +23,6 @@ Function verify_testIIf() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, testnr
     testName = "Test IIf function"
     On Error GoTo errorHandler

basic/qa/vba_tests/instr.vb

@@ -23,8 +23,6 @@ Function verify_testInStr() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, SearchString, SearchChar
     testName = "Test InStr function"
     On Error GoTo errorHandler

basic/qa/vba_tests/instrrev.vb

@@ -23,8 +23,6 @@ Function verify_testInStrRev() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, SearchString, SearchChar
     testName = "Test InStrRev function"
     On Error GoTo errorHandler

basic/qa/vba_tests/int.vb

@@ -23,8 +23,6 @@ Function verify_testInt() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Int function"
     On Error GoTo errorHandler

basic/qa/vba_tests/isarray.vb

@@ -23,8 +23,6 @@ Function verify_testIsArray() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     Dim MyArray(1 To 5) As Integer, YourArray    ' Declare array variables.
     testName = "Test IsArray function"

basic/qa/vba_tests/isdate.vb

@@ -23,8 +23,6 @@ Function verify_testIsDate() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsDate function"
     On Error GoTo errorHandler

basic/qa/vba_tests/isempty.vb

@@ -23,8 +23,6 @@ Function verify_testIsEmpty() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, MyVar
     testName = "Test IsEmpty function"
     On Error GoTo errorHandler

basic/qa/vba_tests/iserror.vb

@@ -23,8 +23,6 @@ Function verify_testIsError() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsError function"
     On Error GoTo errorHandler

basic/qa/vba_tests/isnull.vb

@@ -23,8 +23,6 @@ Function verify_testIsNull() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsNull function"
     On Error GoTo errorHandler

basic/qa/vba_tests/isnumeric.vb

@@ -23,8 +23,6 @@ Function verify_testIsNumeric() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsNumeric function"
     On Error GoTo errorHandler

basic/qa/vba_tests/isobject.vb

@@ -23,7 +23,6 @@ Function verify_testIsObject() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
     Dim TestStr As String
     Dim MyObject As Object
     Dim date1, date2, YourObject

basic/qa/vba_tests/lbound.vb

@@ -23,8 +23,6 @@ Function verify_testLBound() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     Dim MyArray(1 To 10, 5 To 15, 10 To 20)     ' Declare array variables.
     testName = "Test LBound function"

basic/qa/vba_tests/left.vb

@@ -23,8 +23,6 @@ Function verify_testLeft() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Left function"
     On Error GoTo errorHandler

basic/qa/vba_tests/len.vb

@@ -23,8 +23,6 @@ Function verify_testLen() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Len function"
     On Error GoTo errorHandler

basic/qa/vba_tests/log.vb

@@ -23,8 +23,6 @@ Function verify_testLog() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Log function"
     On Error GoTo errorHandler

basic/qa/vba_tests/ltrim.vb

@@ -23,8 +23,6 @@ Function verify_testLTrim() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test LTrim function"
     On Error GoTo errorHandler

basic/qa/vba_tests/mid.vb

@@ -23,8 +23,6 @@ Function verify_testMid() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Mid function"
     On Error GoTo errorHandler

basic/qa/vba_tests/minute.vb

@@ -23,8 +23,6 @@ Function verify_testMinute() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Minute function"
     On Error GoTo errorHandler

basic/qa/vba_tests/mirr.vb

@@ -23,8 +23,6 @@ Function verify_testMIRR() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, LoanAPR, InvAPR, Fmt, RetRate, Msg
     testName = "Test MIRR function"
     On Error GoTo errorHandler

basic/qa/vba_tests/month.vb

@@ -23,8 +23,6 @@ Function verify_testMonth() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     Dim ldate As Date
     testName = "Test Month function"

basic/qa/vba_tests/monthname.vb

@@ -23,8 +23,6 @@ Function verify_testMonthName() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 
     testName = "Test MonthName function"
     On Error GoTo errorHandler

basic/qa/vba_tests/nper.vb

@@ -23,8 +23,6 @@ Function verify_testNPer() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test NPER function"
     On Error GoTo errorHandler

basic/qa/vba_tests/npv.vb

@@ -23,8 +23,6 @@ Function verify_testNPV() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test NPV function"
     On Error GoTo errorHandler

basic/qa/vba_tests/oct.vb

@@ -23,8 +23,6 @@ Function verify_testOct() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Oct function"
     On Error GoTo errorHandler

basic/qa/vba_tests/pmt.vb

@@ -23,8 +23,6 @@ Function verify_testPMT() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test PMT function"
     On Error GoTo errorHandler

basic/qa/vba_tests/ppmt.vb

@@ -23,8 +23,6 @@ Function verify_testPPMT() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test PPMT function"
     On Error GoTo errorHandler

basic/qa/vba_tests/pv.vb

@@ -23,8 +23,6 @@ Function verify_testPV() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test PV function"
     On Error GoTo errorHandler

basic/qa/vba_tests/qbcolor.vb

@@ -23,8 +23,6 @@ Function verify_testQBcolor() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Long
     testName = "Test QBcolor function"
     On Error GoTo errorHandler