[Libreoffice-commits] core.git: basic/qa
Laurent Balland-Poirier
laurent.balland-poirier at laposte.net
Fri Jan 6 09:36:13 UTC 2017
basic/qa/basic_coverage/test_abs_method.vb | 17 ++
basic/qa/basic_coverage/test_array_method.vb | 20 ++
basic/qa/basic_coverage/test_array_methods.vb | 33 ---
basic/qa/basic_coverage/test_asc_method.vb | 15 +
basic/qa/basic_coverage/test_atn_method.vb | 15 +
basic/qa/basic_coverage/test_beep_method.vb | 12 +
basic/qa/basic_coverage/test_cbool_method.vb | 16 +
basic/qa/basic_coverage/test_cbyte_method.vb | 16 +
basic/qa/basic_coverage/test_ccur_method.vb | 16 +
basic/qa/basic_coverage/test_cdate_method.vb | 16 +
basic/qa/basic_coverage/test_cdatetofromiso_methods.vb | 16 +
basic/qa/basic_coverage/test_cdatetounodatecdatefromunodate_methods.vb | 18 ++
basic/qa/basic_coverage/test_cdatetounodatetimecdatefromunodatetime_methods.vb | 18 ++
basic/qa/basic_coverage/test_cdatetounotimecdatefromunotime_methods.vb | 18 ++
basic/qa/basic_coverage/test_cdbl_method.vb | 16 +
basic/qa/basic_coverage/test_chdircurdir_methods.vb | 12 +
basic/qa/basic_coverage/test_choose_method.vb | 16 +
basic/qa/basic_coverage/test_cint_method.vb | 16 +
basic/qa/basic_coverage/test_compatibilitymode_method.vb | 15 +
basic/qa/basic_coverage/test_conversion_methods.vb | 49 -----
basic/qa/basic_coverage/test_converttofromurl_methods.vb | 15 +
basic/qa/basic_coverage/test_cossin_methods.vb | 15 +
basic/qa/basic_coverage/test_createobject_method.vb | 21 ++
basic/qa/basic_coverage/test_createunolistener_method.vb | 13 +
basic/qa/basic_coverage/test_createunoservice_method.vb | 13 +
basic/qa/basic_coverage/test_createunostruct_method.vb | 13 +
basic/qa/basic_coverage/test_createunovalue_method.vb | 15 +
basic/qa/basic_coverage/test_csng_method.vb | 16 +
basic/qa/basic_coverage/test_cstr_method.vb | 16 +
basic/qa/basic_coverage/test_cvar_method.vb | 16 +
basic/qa/basic_coverage/test_cverr_method.vb | 16 +
basic/qa/basic_coverage/test_datedateadddatediff_methods.vb | 18 ++
basic/qa/basic_coverage/test_datedatepartday_methods.vb | 18 ++
basic/qa/basic_coverage/test_datetime_methods.vb | 64 -------
basic/qa/basic_coverage/test_dimarray_method.vb | 18 ++
basic/qa/basic_coverage/test_environ_method.vb | 12 +
basic/qa/basic_coverage/test_equalunoobjects_method.vb | 25 ++
basic/qa/basic_coverage/test_erl_method.vb | 22 ++
basic/qa/basic_coverage/test_err_method.vb | 22 ++
basic/qa/basic_coverage/test_falsetrue_method.vb | 16 +
basic/qa/basic_coverage/test_fix_method.vb | 15 +
basic/qa/basic_coverage/test_frac_method.vb | 15 +
basic/qa/basic_coverage/test_freefile_method.vb | 15 +
basic/qa/basic_coverage/test_freelibrary_method.vb | 12 +
basic/qa/basic_coverage/test_getdefaultcontext_method.vb | 12 +
basic/qa/basic_coverage/test_getdialogzoomfactorx_method.vb | 15 +
basic/qa/basic_coverage/test_getdialogzoomfactory_method.vb | 15 +
basic/qa/basic_coverage/test_getguitype_method.vb | 15 +
basic/qa/basic_coverage/test_getguiversion_method.vb | 15 +
basic/qa/basic_coverage/test_getpathseparator_method.vb | 15 +
basic/qa/basic_coverage/test_getprocessservicemanager_method.vb | 12 +
basic/qa/basic_coverage/test_getsolarversion_method.vb | 15 +
basic/qa/basic_coverage/test_getsystemticks_method.vb | 15 +
basic/qa/basic_coverage/test_getsystemtype_method.vb | 15 +
basic/qa/basic_coverage/test_hasunointerfaces_method.vb | 16 +
basic/qa/basic_coverage/test_hex_method.vb | 15 +
basic/qa/basic_coverage/test_hour_method.vb | 16 +
basic/qa/basic_coverage/test_iif_method.vb | 16 +
basic/qa/basic_coverage/test_instr_method.vb | 17 ++
basic/qa/basic_coverage/test_int_method.vb | 15 +
basic/qa/basic_coverage/test_isarray_method.vb | 18 ++
basic/qa/basic_coverage/test_isdate_method.vb | 18 ++
basic/qa/basic_coverage/test_isempty_method.vb | 18 ++
basic/qa/basic_coverage/test_iserror_method.vb | 22 ++
basic/qa/basic_coverage/test_isnull_method.vb | 18 ++
basic/qa/basic_coverage/test_isnumeric_method.vb | 18 ++
basic/qa/basic_coverage/test_isobject_method.vb | 17 ++
basic/qa/basic_coverage/test_isunostruct_method.vb | 17 ++
basic/qa/basic_coverage/test_join_method.vb | 18 ++
basic/qa/basic_coverage/test_lbound_method.vb | 19 ++
basic/qa/basic_coverage/test_lcase_method.vb | 17 ++
basic/qa/basic_coverage/test_len_method.vb | 17 ++
basic/qa/basic_coverage/test_lenb_method.vb | 17 ++
basic/qa/basic_coverage/test_logexp_methods.vb | 15 +
basic/qa/basic_coverage/test_logic_methods.vb | 48 -----
basic/qa/basic_coverage/test_ltrim_method.vb | 17 ++
basic/qa/basic_coverage/test_math_methods.vb | 57 ------
basic/qa/basic_coverage/test_minute_method.vb | 16 +
basic/qa/basic_coverage/test_month_method.vb | 18 ++
basic/qa/basic_coverage/test_nowtimevalue_methods.vb | 20 ++
basic/qa/basic_coverage/test_oct_method.vb | 15 +
basic/qa/basic_coverage/test_qbcolor_method.vb | 15 +
basic/qa/basic_coverage/test_random_methods.vb | 16 +
basic/qa/basic_coverage/test_resolvepath_method.vb | 15 +
basic/qa/basic_coverage/test_rgb_method.vb | 15 +
basic/qa/basic_coverage/test_rtrim_method.vb | 17 ++
basic/qa/basic_coverage/test_second_method.vb | 16 +
basic/qa/basic_coverage/test_sgn_method.vb | 15 +
basic/qa/basic_coverage/test_space_method.vb | 15 +
basic/qa/basic_coverage/test_spc_method.vb | 15 +
basic/qa/basic_coverage/test_split_method.vb | 15 +
basic/qa/basic_coverage/test_sqr_method.vb | 15 +
basic/qa/basic_coverage/test_strcomp_method.vb | 17 ++
basic/qa/basic_coverage/test_string_method.vb | 15 +
basic/qa/basic_coverage/test_string_methods.vb | 85 ----------
basic/qa/basic_coverage/test_strtrim_methods.vb | 15 +
basic/qa/basic_coverage/test_switch_method.vb | 20 ++
basic/qa/basic_coverage/test_system_methods.vb | 27 ---
basic/qa/basic_coverage/test_tab_method.vb | 15 +
basic/qa/basic_coverage/test_tan_method.vb | 15 +
basic/qa/basic_coverage/test_timer_method.vb | 16 +
basic/qa/basic_coverage/test_timeserialtimevalue_methods.vb | 16 +
basic/qa/basic_coverage/test_twipsperpixelx_method.vb | 16 +
basic/qa/basic_coverage/test_twipsperpixely_method.vb | 16 +
basic/qa/basic_coverage/test_typelen_method.vb | 16 +
basic/qa/basic_coverage/test_typename_method.vb | 16 +
basic/qa/basic_coverage/test_ucase_method.vb | 17 ++
basic/qa/basic_coverage/test_val_method.vb | 16 +
basic/qa/basic_coverage/test_vartype_method.vb | 16 +
basic/qa/basic_coverage/test_wait_method.vb | 12 +
basic/qa/basic_coverage/test_weekday_method.vb | 18 ++
basic/qa/basic_coverage/test_year_method.vb | 18 ++
112 files changed, 1698 insertions(+), 363 deletions(-)
New commits:
commit 060c2b9b1b0d3c9cf27f1b289a620cfa82b5b060
Author: Laurent Balland-Poirier <laurent.balland-poirier at laposte.net>
Date: Fri Dec 30 21:10:26 2016 +0100
QA Basic: split tests of methods in different files
Following resolution of "Missing TAN method" [1]
as discussed on dev list [2]
a large majority of methods are now tested
with (almost) one method per file
Missing methods:
- colors failed: RED, GREEN, BLUE
- file methods: DIR, CHDRIVE, EOF,...
- financial methods calling Calc functions: IPmt, IRR,...
- not totaly implemented methods (?): ROUND, WAITUNTIL...
[1] https://bugs.documentfoundation.org/show_bug.cgi?id=102872
[2] http://nabble.documentfoundation.org/QA-test-for-BASIC-functions-tt4202257.html
Change-Id: I2b2824b5b18a2cfbbee2bbc5369e9e2b9e5c930b
Reviewed-on: https://gerrit.libreoffice.org/32519
Tested-by: Jenkins <ci at libreoffice.org>
Reviewed-by: Miklos Vajna <vmiklos at collabora.co.uk>
diff --git a/basic/qa/basic_coverage/test_abs_method.vb b/basic/qa/basic_coverage/test_abs_method.vb
new file mode 100644
index 0000000..b79b9bc
--- /dev/null
+++ b/basic/qa/basic_coverage/test_abs_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ABS
+ If (Abs(-3.5) <> 3.5) Then
+ doUnitTest = 0
+ ElseIf (Abs(3.5) <> 3.5) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_array_method.vb b/basic/qa/basic_coverage/test_array_method.vb
new file mode 100644
index 0000000..42f10a2
--- /dev/null
+++ b/basic/qa/basic_coverage/test_array_method.vb
@@ -0,0 +1,20 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVector as Variant
+ ' ARRAY
+ aVector = Array( "Hello", -3.14)
+ If (aVector(0) <> "Hello") Then
+ doUnitTest = 0
+ ElseIf ( aVector(1) <> -3.14 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_array_methods.vb b/basic/qa/basic_coverage/test_array_methods.vb
deleted file mode 100644
index 53b2c87..0000000
--- a/basic/qa/basic_coverage/test_array_methods.vb
+++ /dev/null
@@ -1,33 +0,0 @@
-'
-' This file is part of the LibreOffice project.
-'
-' This Source Code Form is subject to the terms of the Mozilla Public
-' License, v. 2.0. If a copy of the MPL was not distributed with this
-' file, You can obtain one at http://mozilla.org/MPL/2.0/.
-'
-
-Function doUnitTest as Integer
- dim aVector as Variant
- ' ARRAY
- aVector = Array( Date(), Time(), "Hello", -3.14)
- If (aVector(2) <> "Hello") Then
- doUnitTest = 0
- ' LBOUND
- ElseIf ( LBound( aVector() ) <> 0 ) Then
- doUnitTest = 0
- ' TYPELEN
- ElseIf ( TypeLen(aVector(2)) <> 5 ) Then
- doUnitTest = 0
- ' TYPENAME
- ElseIf ( TypeName(aVector(2)) <> "String" ) Then
- doUnitTest = 0
- ' UBOUND already tested
- 'ElseIf ( UBound( aVector() ) <> 3 ) Then
- ' doUnitTest = 0
- ' VARTYPE
- ElseIf ( VarType(aVector(2)) <> 8 ) Then
- doUnitTest = 0
- Else
- doUnitTest = 1
- End If
-End Function
diff --git a/basic/qa/basic_coverage/test_asc_method.vb b/basic/qa/basic_coverage/test_asc_method.vb
new file mode 100644
index 0000000..48b8893
--- /dev/null
+++ b/basic/qa/basic_coverage/test_asc_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ASC
+ If (Asc("€a") <> 8364) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_atn_method.vb b/basic/qa/basic_coverage/test_atn_method.vb
new file mode 100644
index 0000000..7717141
--- /dev/null
+++ b/basic/qa/basic_coverage/test_atn_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ATN (arc tan)
+ If (Atn(1) <> PI/4) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_beep_method.vb b/basic/qa/basic_coverage/test_beep_method.vb
new file mode 100644
index 0000000..28eed61
--- /dev/null
+++ b/basic/qa/basic_coverage/test_beep_method.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' BEEP
+ Beep
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_cbool_method.vb b/basic/qa/basic_coverage/test_cbool_method.vb
new file mode 100644
index 0000000..d1d995f
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cbool_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CBOOL
+ If (CBool(3) <> True) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cbyte_method.vb b/basic/qa/basic_coverage/test_cbyte_method.vb
new file mode 100644
index 0000000..35bb165
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cbyte_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CBYTE
+ If (CByte("3") <> 3) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_ccur_method.vb b/basic/qa/basic_coverage/test_ccur_method.vb
new file mode 100644
index 0000000..b84ddaf
--- /dev/null
+++ b/basic/qa/basic_coverage/test_ccur_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CCUR
+ If (CCur("100") <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cdate_method.vb b/basic/qa/basic_coverage/test_cdate_method.vb
new file mode 100644
index 0000000..c26287b
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cdate_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CDATE
+ If (CDate(100) <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cdatetofromiso_methods.vb b/basic/qa/basic_coverage/test_cdatetofromiso_methods.vb
new file mode 100644
index 0000000..02ec585
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cdatetofromiso_methods.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CDateFromIso CDateToIso
+ If ( CDateToIso( CDateFromIso("20161016") ) <> "20161016" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cdatetounodatecdatefromunodate_methods.vb b/basic/qa/basic_coverage/test_cdatetounodatecdatefromunodate_methods.vb
new file mode 100644
index 0000000..2aa735c
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cdatetounodatecdatefromunodate_methods.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date()
+ ' CDateToUnoDate CDateFromUnoDate
+ If ( CDateFromUnoDate( CDateToUnoDate( aDate ) ) <> aDate ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cdatetounodatetimecdatefromunodatetime_methods.vb b/basic/qa/basic_coverage/test_cdatetounodatetimecdatefromunodatetime_methods.vb
new file mode 100644
index 0000000..9aa5680
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cdatetounodatetimecdatefromunodatetime_methods.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Now()
+ ' CDateToUnoDateTime CDateFromUnoDateTime
+ If ( CDateFromUnoDateTime( CDateToUnoDateTime( aDate ) ) <> aDate ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cdatetounotimecdatefromunotime_methods.vb b/basic/qa/basic_coverage/test_cdatetounotimecdatefromunotime_methods.vb
new file mode 100644
index 0000000..38fd9da
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cdatetounotimecdatefromunotime_methods.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Time()
+ ' CDateToUnoTime CDateFromUnoTime
+ If ( CDateFromUnoTime( CDateToUnoTime( aDate ) ) <> aDate ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cdbl_method.vb b/basic/qa/basic_coverage/test_cdbl_method.vb
new file mode 100644
index 0000000..a0ba8f0
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cdbl_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CDBL
+ If (CDbl("100") <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_chdircurdir_methods.vb b/basic/qa/basic_coverage/test_chdircurdir_methods.vb
new file mode 100644
index 0000000..dadd65b
--- /dev/null
+++ b/basic/qa/basic_coverage/test_chdircurdir_methods.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CHDIR CURDIR
+ ChDir( CurDir )
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_choose_method.vb b/basic/qa/basic_coverage/test_choose_method.vb
new file mode 100644
index 0000000..6ab2aea
--- /dev/null
+++ b/basic/qa/basic_coverage/test_choose_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CHOOSE
+ If (Choose(2, 1, 100, 3) <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cint_method.vb b/basic/qa/basic_coverage/test_cint_method.vb
new file mode 100644
index 0000000..b84af04
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cint_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CINT
+ If (CInt("100") <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_system_methods.vb b/basic/qa/basic_coverage/test_compatibilitymode_method.vb
similarity index 59%
rename from basic/qa/basic_coverage/test_system_methods.vb
rename to basic/qa/basic_coverage/test_compatibilitymode_method.vb
index 02c6547..599adb9 100644
--- a/basic/qa/basic_coverage/test_system_methods.vb
+++ b/basic/qa/basic_coverage/test_compatibilitymode_method.vb
@@ -1,4 +1,3 @@
-'
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
@@ -7,20 +6,9 @@
'
Function doUnitTest as Integer
- Wait(0)
- Beep
- 'dim aDate as Variant
- 'aDate = Date()
- 'WaitUntil( aDate )
' CompatibilityMode
If (CompatibilityMode(True) <> True) Then
doUnitTest = 0
- ' ConvertFromUrl ConvertToUrl
- ElseIf ( ConvertToUrl( ConvertFromUrl("") ) <> "") Then
- doUnitTest = 0
- ' GetSolarVersion
- ElseIf ( GetSolarVersion() < 50000) Then
- doUnitTest = 0
Else
doUnitTest = 1
End If
diff --git a/basic/qa/basic_coverage/test_conversion_methods.vb b/basic/qa/basic_coverage/test_conversion_methods.vb
deleted file mode 100644
index 6d441e0..0000000
--- a/basic/qa/basic_coverage/test_conversion_methods.vb
+++ /dev/null
@@ -1,49 +0,0 @@
-'
-' This file is part of the LibreOffice project.
-'
-' This Source Code Form is subject to the terms of the Mozilla Public
-' License, v. 2.0. If a copy of the MPL was not distributed with this
-' file, You can obtain one at http://mozilla.org/MPL/2.0/.
-'
-
-Function doUnitTest as Integer
- Randomize 42
- dim aVector as Variant
- aVector = Array( Date(), Time(), "Hello", -3.14)
- ' CBOOL
- If (CBool(3) <> True) Then
- doUnitTest = 0
- ' CBYTE
- ElseIf (CByte("3") <> 3) Then
- doUnitTest = 0
- ' CCUR
- ElseIf (CCur("100") <> 100) Then
- doUnitTest = 0
- ' CDATE
- ElseIf (CDate(100) <> 100) Then
- doUnitTest = 0
- ' CDEC already tested
- 'ElseIf (CDec("100") <> 100) Then
- ' doUnitTest = 0
- ' CDBL
- ElseIf (CDbl("100") <> 100) Then
- doUnitTest = 0
- ' CINT
- ElseIf (CInt("100") <> 100) Then
- doUnitTest = 0
- ' CLNG already tested
- 'ElseIf (CLng("100") <> 100) Then
- ' doUnitTest = 0
- ' CSNG
- ElseIf (CSng("100") <> 100) Then
- doUnitTest = 0
- ' CSTR
- ElseIf (CStr(100) <> "100") Then
- doUnitTest = 0
- ' VAL
- ElseIf ( Val("4") <> 4 ) Then
- doUnitTest = 0
- Else
- doUnitTest = 1
- End If
-End Function
diff --git a/basic/qa/basic_coverage/test_converttofromurl_methods.vb b/basic/qa/basic_coverage/test_converttofromurl_methods.vb
new file mode 100644
index 0000000..40c6494
--- /dev/null
+++ b/basic/qa/basic_coverage/test_converttofromurl_methods.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ConvertFromUrl ConvertToUrl
+ If ( ConvertToUrl( ConvertFromUrl("") ) <> "") Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cossin_methods.vb b/basic/qa/basic_coverage/test_cossin_methods.vb
new file mode 100644
index 0000000..c4a5cc5
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cossin_methods.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' COS SIN
+ If ( Abs(Cos(PI/3) - Sin(PI/6)) > 1E-6 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_createobject_method.vb b/basic/qa/basic_coverage/test_createobject_method.vb
new file mode 100644
index 0000000..6ae316b
--- /dev/null
+++ b/basic/qa/basic_coverage/test_createobject_method.vb
@@ -0,0 +1,21 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Type address
+ Name1 As String
+ City As String
+End Type
+
+Function doUnitTest as Integer
+ ' CREATEOBJECT
+ If ( IsObject( CreateObject("address") ) = False ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_createunolistener_method.vb b/basic/qa/basic_coverage/test_createunolistener_method.vb
new file mode 100644
index 0000000..08c71fd
--- /dev/null
+++ b/basic/qa/basic_coverage/test_createunolistener_method.vb
@@ -0,0 +1,13 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CreateUnoListener
+ Dim oListener
+ oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_createunoservice_method.vb b/basic/qa/basic_coverage/test_createunoservice_method.vb
new file mode 100644
index 0000000..8fc043f
--- /dev/null
+++ b/basic/qa/basic_coverage/test_createunoservice_method.vb
@@ -0,0 +1,13 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CreateUnoService
+ Dim filepicker
+ filepicker = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_createunostruct_method.vb b/basic/qa/basic_coverage/test_createunostruct_method.vb
new file mode 100644
index 0000000..f08368f
--- /dev/null
+++ b/basic/qa/basic_coverage/test_createunostruct_method.vb
@@ -0,0 +1,13 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CreateUnoStruct
+ Dim oStruct
+ oStruct = CreateUnoStruct( "com.sun.star.beans.Property" )
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_createunovalue_method.vb b/basic/qa/basic_coverage/test_createunovalue_method.vb
new file mode 100644
index 0000000..e640354
--- /dev/null
+++ b/basic/qa/basic_coverage/test_createunovalue_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CreateUnoValue
+ Dim oUnoValue as Variant
+ Dim aValue as Variant
+ aValue = Array ( 1, 1 )
+ oUnoValue = CreateUnoValue( "[]byte", aValue )
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_csng_method.vb b/basic/qa/basic_coverage/test_csng_method.vb
new file mode 100644
index 0000000..87704ec
--- /dev/null
+++ b/basic/qa/basic_coverage/test_csng_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CSNG
+ If (CSng("100") <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cstr_method.vb b/basic/qa/basic_coverage/test_cstr_method.vb
new file mode 100644
index 0000000..53484b0
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cstr_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CSTR
+ If (CStr(100) <> "100") Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cvar_method.vb b/basic/qa/basic_coverage/test_cvar_method.vb
new file mode 100644
index 0000000..cc13bef
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cvar_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CVAR
+ If (CVar(100) <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_cverr_method.vb b/basic/qa/basic_coverage/test_cverr_method.vb
new file mode 100644
index 0000000..b1c3f8b
--- /dev/null
+++ b/basic/qa/basic_coverage/test_cverr_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' CVERR
+ If (CVerr(100) <> 100) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_datedateadddatediff_methods.vb b/basic/qa/basic_coverage/test_datedateadddatediff_methods.vb
new file mode 100644
index 0000000..4ba40f8
--- /dev/null
+++ b/basic/qa/basic_coverage/test_datedateadddatediff_methods.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date()
+ ' DATE DATEDIFF DATEADD
+ If ( DateDiff( "d", aDate, DateAdd("d", 1, aDate) ) <> 1 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_datedatepartday_methods.vb b/basic/qa/basic_coverage/test_datedatepartday_methods.vb
new file mode 100644
index 0000000..04cc326
--- /dev/null
+++ b/basic/qa/basic_coverage/test_datedatepartday_methods.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date()
+ ' DATEPART DAY
+ If ( DatePart( "d", aDate ) <> Day( aDate ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_datetime_methods.vb b/basic/qa/basic_coverage/test_datetime_methods.vb
deleted file mode 100644
index 0ef990c..0000000
--- a/basic/qa/basic_coverage/test_datetime_methods.vb
+++ /dev/null
@@ -1,64 +0,0 @@
-'
-' This file is part of the LibreOffice project.
-'
-' This Source Code Form is subject to the terms of the Mozilla Public
-' License, v. 2.0. If a copy of the MPL was not distributed with this
-' file, You can obtain one at http://mozilla.org/MPL/2.0/.
-'
-
-Function doUnitTest as Integer
- dim aVector as Variant
- aVector = Array( Date(), Time(), "Hello", -3.14)
- ' CDateFromUnoDate
- ' CDateTomUnoDate
- ' CDateFromUnoTime
- ' CDateToUnoTime
- ' CDateFromUnoDateTime
- ' CDateToUnoDateTime
- ' CDateFromIso CDateToIso
- If ( CDateToIso( CDateFromIso("20161016") ) <> "20161016" ) Then
- doUnitTest = 0
- ' DATE DATEDIFF DATEADD
- ElseIf ( DateDiff( "d", aVector(0), DateAdd("d", 1, aVector(0)) ) <> 1 ) Then
- doUnitTest = 0
- ' DATEPART DAY
- ElseIf ( DatePart( "d", aVector(0) ) <> Day( aVector(0) ) ) Then
- doUnitTest = 0
- ' DATESERIAL DATEVALUE already tested
- 'ElseIf ( DateSerial( 2016, 10, 16 ) <> DateValue("October 16, 2016") ) Then
- ' doUnitTest = 0
- ' FormatDateTime
- ' HOUR
- ElseIf ( Hour(aVector(1)) <> Hour(aVector(1)) ) Then
- doUnitTest = 0
- ' MINUTE
- ElseIf ( Minute(aVector(1)) <> Minute(aVector(1)) ) Then
- doUnitTest = 0
- ' MONTH
- ElseIf ( DatePart( "m", aVector(0) ) <> Month( aVector(0) ) ) Then
- doUnitTest = 0
- ' MONTHNAME
- 'ElseIf ( CDate( MonthName(10)&" 16, 2016" ) <> DateSerial(2016, 10, 16) ) Then
- ' doUnitTest = 0
- ' NOW TIMEVALUE
- ElseIf ( Now() < aVector(0) + TimeValue(aVector(1)) ) Then
- doUnitTest = 0
- ' SECOND
- ElseIf ( Second(aVector(1)) <> Second(aVector(1)) ) Then
- doUnitTest = 0
- ' TIMER max value = 24*3600
- ElseIf ( Timer() > 86400 ) Then
- doUnitTest = 0
- ' TIMESERIAL TIMEVALUE
- ElseIf ( TimeSerial(13,54,48) <> TImeValue("13:54:48") ) Then
- doUnitTest = 0
- ' WEEKDAY WEEKDAYNAME
- 'ElseIf ( WeekdayName( Weekday(aVector(0) ) ) <> WeekDayName( DatePart( "w", aVector(0) ) ) ) Then
- ' doUnitTest = 0
- ' YEAR
- ElseIf ( DatePart( "yyyy", aVector(0) ) <> Year( aVector(0) ) ) Then
- doUnitTest = 0
- Else
- doUnitTest = 1
- End If
-End Function
diff --git a/basic/qa/basic_coverage/test_dimarray_method.vb b/basic/qa/basic_coverage/test_dimarray_method.vb
new file mode 100644
index 0000000..f92c745
--- /dev/null
+++ b/basic/qa/basic_coverage/test_dimarray_method.vb
@@ -0,0 +1,18 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ Dim aValue as variant
+ aValue = DimArray( 1, 2, 4 )
+ aValue( 1, 2, 4 ) = 3
+ ' DIMARRAY
+ If ( aValue( 1, 2, 4 ) <> 3 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_environ_method.vb b/basic/qa/basic_coverage/test_environ_method.vb
new file mode 100644
index 0000000..63b6f36
--- /dev/null
+++ b/basic/qa/basic_coverage/test_environ_method.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ENVIRON
+ Environ ("TMP")
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_equalunoobjects_method.vb b/basic/qa/basic_coverage/test_equalunoobjects_method.vb
new file mode 100644
index 0000000..b481115
--- /dev/null
+++ b/basic/qa/basic_coverage/test_equalunoobjects_method.vb
@@ -0,0 +1,25 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' EqualUnoObjects
+ ' Copy of objects -> same instance
+ oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
+ oIntro2 = oIntrospection
+ If ( EqualUnoObjects( oIntrospection, oIntro2 ) = False ) Then
+ doUnitTest = 0
+ Else
+ ' Copy of structs as value -> new instance
+ Dim Struct1 as new com.sun.star.beans.Property
+ Struct2 = Struct1
+ If ( EqualUnoObjects( Struct1, Struct2 ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_erl_method.vb b/basic/qa/basic_coverage/test_erl_method.vb
new file mode 100644
index 0000000..b541b15
--- /dev/null
+++ b/basic/qa/basic_coverage/test_erl_method.vb
@@ -0,0 +1,22 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ERL
+ On Error GoTo ErrorHandler ' Set up error handler
+ Dim nVar As Integer
+ nVar = 0
+ nVar = 1/nVar
+ doUnitTest = 0
+ Exit Function
+ErrorHandler:
+ If ( Erl <> 13 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ Endif
+End Function
diff --git a/basic/qa/basic_coverage/test_err_method.vb b/basic/qa/basic_coverage/test_err_method.vb
new file mode 100644
index 0000000..c21b417
--- /dev/null
+++ b/basic/qa/basic_coverage/test_err_method.vb
@@ -0,0 +1,22 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' ERR
+ On Error GoTo ErrorHandler ' Set up error handler
+ Dim nVar As Integer
+ nVar = 0
+ nVar = 1/nVar
+ doUnitTest = 0
+ Exit Function
+ErrorHandler:
+ If ( Err <> 11 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ Endif
+End Function
diff --git a/basic/qa/basic_coverage/test_falsetrue_method.vb b/basic/qa/basic_coverage/test_falsetrue_method.vb
new file mode 100644
index 0000000..f99b803
--- /dev/null
+++ b/basic/qa/basic_coverage/test_falsetrue_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' FALSE TRUE
+ If (False = True) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_fix_method.vb b/basic/qa/basic_coverage/test_fix_method.vb
new file mode 100644
index 0000000..91d2f01
--- /dev/null
+++ b/basic/qa/basic_coverage/test_fix_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' FIX
+ If (Fix(PI) <> 3) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_frac_method.vb b/basic/qa/basic_coverage/test_frac_method.vb
new file mode 100644
index 0000000..14d6863
--- /dev/null
+++ b/basic/qa/basic_coverage/test_frac_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' FRAC
+ If ( 3+Frac(PI) <> PI) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_freefile_method.vb b/basic/qa/basic_coverage/test_freefile_method.vb
new file mode 100644
index 0000000..d2a5cb9
--- /dev/null
+++ b/basic/qa/basic_coverage/test_freefile_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' FREEFILE
+ If ( FreeFile < 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_freelibrary_method.vb b/basic/qa/basic_coverage/test_freelibrary_method.vb
new file mode 100644
index 0000000..4f6f9cd
--- /dev/null
+++ b/basic/qa/basic_coverage/test_freelibrary_method.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' FREELIBRARY
+ FreeLibrary("")
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_getdefaultcontext_method.vb b/basic/qa/basic_coverage/test_getdefaultcontext_method.vb
new file mode 100644
index 0000000..8a90d6e
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getdefaultcontext_method.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GetDefaultContext
+ GetDefaultContext()
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_getdialogzoomfactorx_method.vb b/basic/qa/basic_coverage/test_getdialogzoomfactorx_method.vb
new file mode 100644
index 0000000..279fc00
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getdialogzoomfactorx_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETDIALOGFACTORX
+ If ( GetDialogZoomFactorX(100) < 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getdialogzoomfactory_method.vb b/basic/qa/basic_coverage/test_getdialogzoomfactory_method.vb
new file mode 100644
index 0000000..f4139be
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getdialogzoomfactory_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETDIALOGFACTORY
+ If ( GetDialogZoomFactorY(100) < 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getguitype_method.vb b/basic/qa/basic_coverage/test_getguitype_method.vb
new file mode 100644
index 0000000..c1606da
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getguitype_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETGUITYPE
+ If ( GetGuiType = 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getguiversion_method.vb b/basic/qa/basic_coverage/test_getguiversion_method.vb
new file mode 100644
index 0000000..a70ff07
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getguiversion_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETGUIVERSION
+ If ( GetGuiVersion = 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getpathseparator_method.vb b/basic/qa/basic_coverage/test_getpathseparator_method.vb
new file mode 100644
index 0000000..63a7b67
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getpathseparator_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETPATHSEPARATOR
+ If ( GetPathSeparator = "" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getprocessservicemanager_method.vb b/basic/qa/basic_coverage/test_getprocessservicemanager_method.vb
new file mode 100644
index 0000000..90e2012
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getprocessservicemanager_method.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GetProcessServiceManager
+ GetProcessServiceManager()
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_getsolarversion_method.vb b/basic/qa/basic_coverage/test_getsolarversion_method.vb
new file mode 100644
index 0000000..c2a75d1
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getsolarversion_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GetSolarVersion
+ If ( GetSolarVersion() < 50000) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getsystemticks_method.vb b/basic/qa/basic_coverage/test_getsystemticks_method.vb
new file mode 100644
index 0000000..878b38b
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getsystemticks_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETSYSTEMTICKS
+ If ( GetSystemTicks < 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_getsystemtype_method.vb b/basic/qa/basic_coverage/test_getsystemtype_method.vb
new file mode 100644
index 0000000..eced702
--- /dev/null
+++ b/basic/qa/basic_coverage/test_getsystemtype_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' GETSYSTEMTYPE
+ If ( GetSystemType <> -1 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_hasunointerfaces_method.vb b/basic/qa/basic_coverage/test_hasunointerfaces_method.vb
new file mode 100644
index 0000000..06472d8
--- /dev/null
+++ b/basic/qa/basic_coverage/test_hasunointerfaces_method.vb
@@ -0,0 +1,16 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' HASUNOINTERFACES
+ dim aObject as Object
+ If ( HasUnoInterfaces( aObject, "com.sun.star.beans.XIntrospection" ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_hex_method.vb b/basic/qa/basic_coverage/test_hex_method.vb
new file mode 100644
index 0000000..72edd9d
--- /dev/null
+++ b/basic/qa/basic_coverage/test_hex_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' HEX
+ If ( Hex(100) <> "64") Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_hour_method.vb b/basic/qa/basic_coverage/test_hour_method.vb
new file mode 100644
index 0000000..e132775
--- /dev/null
+++ b/basic/qa/basic_coverage/test_hour_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' HOUR
+ If ( Hour(TimeSerial(12,30,41)) <> 12 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_iif_method.vb b/basic/qa/basic_coverage/test_iif_method.vb
new file mode 100644
index 0000000..502cadc
--- /dev/null
+++ b/basic/qa/basic_coverage/test_iif_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' IIF
+ If ( IIF(True, 10, 12) <> 10 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_instr_method.vb b/basic/qa/basic_coverage/test_instr_method.vb
new file mode 100644
index 0000000..716aa21
--- /dev/null
+++ b/basic/qa/basic_coverage/test_instr_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' InStr
+ If ( InStr( 1, aString, "l", 1) <> 3 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_int_method.vb b/basic/qa/basic_coverage/test_int_method.vb
new file mode 100644
index 0000000..69e8116
--- /dev/null
+++ b/basic/qa/basic_coverage/test_int_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' INT
+ If ( Int(PI) <> 3 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isarray_method.vb b/basic/qa/basic_coverage/test_isarray_method.vb
new file mode 100644
index 0000000..9d73984
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isarray_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVector as Variant
+ aVector = Array( 123, "Hello", -3.14)
+ ' ISARRAY
+ If ( IsArray( aVector ) = False ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isdate_method.vb b/basic/qa/basic_coverage/test_isdate_method.vb
new file mode 100644
index 0000000..5ce72f8
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isdate_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date( )
+ ' ISDATE
+ If ( IsDate( aDate ) = False ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isempty_method.vb b/basic/qa/basic_coverage/test_isempty_method.vb
new file mode 100644
index 0000000..6ca2fae
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isempty_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVariant as Variant
+ aVariant = Date( )
+ ' ISEMPTY
+ If ( IsEmpty( aVariant ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_iserror_method.vb b/basic/qa/basic_coverage/test_iserror_method.vb
new file mode 100644
index 0000000..fb12abe
--- /dev/null
+++ b/basic/qa/basic_coverage/test_iserror_method.vb
@@ -0,0 +1,22 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Type MyType
+ tName as String
+End Type
+
+Function doUnitTest as Integer
+ dim aVariant as MyType
+ aVariant.tName = "A string"
+ ' ISERROR
+ If ( IsError( aVariant ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isnull_method.vb b/basic/qa/basic_coverage/test_isnull_method.vb
new file mode 100644
index 0000000..0d9044d
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isnull_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVariant as Variant
+ aVariant = Null
+ ' ISNULL
+ If ( IsNull( aVariant ) = False ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isnumeric_method.vb b/basic/qa/basic_coverage/test_isnumeric_method.vb
new file mode 100644
index 0000000..d3b614f
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isnumeric_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVariant as Variant
+ aVariant = 3
+ ' ISNUMERIC
+ If ( IsNumeric( aVariant ) = False ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isobject_method.vb b/basic/qa/basic_coverage/test_isobject_method.vb
new file mode 100644
index 0000000..bb5e270
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isobject_method.vb
@@ -0,0 +1,17 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVariant as Object
+ ' ISOBJECT
+ If ( IsObject( aVariant ) = False ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_isunostruct_method.vb b/basic/qa/basic_coverage/test_isunostruct_method.vb
new file mode 100644
index 0000000..ac45f19
--- /dev/null
+++ b/basic/qa/basic_coverage/test_isunostruct_method.vb
@@ -0,0 +1,17 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVariant as Object
+ ' ISUNOSTRUCT
+ If ( IsUnoStruct( aVariant ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_join_method.vb b/basic/qa/basic_coverage/test_join_method.vb
new file mode 100644
index 0000000..2360625
--- /dev/null
+++ b/basic/qa/basic_coverage/test_join_method.vb
@@ -0,0 +1,18 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' Join
+ Dim aStrings(2) as String
+ aStrings(0) = "Hello"
+ aStrings(1) = "world"
+ If ( Join( aStrings, " " ) <> "Hello world " ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_lbound_method.vb b/basic/qa/basic_coverage/test_lbound_method.vb
new file mode 100644
index 0000000..b7a91fd
--- /dev/null
+++ b/basic/qa/basic_coverage/test_lbound_method.vb
@@ -0,0 +1,19 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVector as Variant
+ ' ARRAY
+ aVector = Array( "Hello", -3.14)
+ ' LBOUND
+ If ( LBound( aVector() ) <> 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_lcase_method.vb b/basic/qa/basic_coverage/test_lcase_method.vb
new file mode 100644
index 0000000..65df764
--- /dev/null
+++ b/basic/qa/basic_coverage/test_lcase_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' LCASE
+ If ( LCase( aString ) <> "hello" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_len_method.vb b/basic/qa/basic_coverage/test_len_method.vb
new file mode 100644
index 0000000..0a7e1ab
--- /dev/null
+++ b/basic/qa/basic_coverage/test_len_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' LEN
+ If ( Len( aString ) <> 5 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_lenb_method.vb b/basic/qa/basic_coverage/test_lenb_method.vb
new file mode 100644
index 0000000..550b831
--- /dev/null
+++ b/basic/qa/basic_coverage/test_lenb_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' LENB
+ If ( LenB( aString ) <> 5 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_logexp_methods.vb b/basic/qa/basic_coverage/test_logexp_methods.vb
new file mode 100644
index 0000000..00db998
--- /dev/null
+++ b/basic/qa/basic_coverage/test_logexp_methods.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' EXP LOG
+ If ( Log( Exp(1) ) <> 1 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_logic_methods.vb b/basic/qa/basic_coverage/test_logic_methods.vb
deleted file mode 100644
index dbec2ce..0000000
--- a/basic/qa/basic_coverage/test_logic_methods.vb
+++ /dev/null
@@ -1,48 +0,0 @@
-'
-' This file is part of the LibreOffice project.
-'
-' This Source Code Form is subject to the terms of the Mozilla Public
-' License, v. 2.0. If a copy of the MPL was not distributed with this
-' file, You can obtain one at http://mozilla.org/MPL/2.0/.
-'
-
-Function doUnitTest as Integer
- dim aVector as Variant
- aVector = Array( Date(), Time(), "Hello", -3.14)
- ' CHOOSE
- If (Choose(2, 1, 100, 3) <> 100) Then
- doUnitTest = 0
- ' FALSE TRUE
- ElseIf (False = True) Then
- doUnitTest = 0
- ' IIF
- ElseIf ( IIF(True, 10, 12) <> 10 ) Then
- doUnitTest = 0
- ' ISARRAY
- ElseIf ( IsArray( aVector ) = False ) Then
- doUnitTest = 0
- ' ISDATE
- ElseIf ( IsDate( aVector(1) ) = False ) Then
- doUnitTest = 0
- ' ISEMPTY
- ElseIf ( IsEmpty( aVector(2) ) ) Then
- doUnitTest = 0
- ' ISERROR
- ' ISMISSING
- ' ISNULL
- ElseIf ( IsNull( aVector ) ) Then
- doUnitTest = 0
- ' ISNUMERIC
- ElseIf ( IsNumeric( aVector(3) ) = False ) Then
- doUnitTest = 0
- ' IsUnoStruc
- ' SWITCH
- ElseIf ( Switch( False, aVector(0),_
- True, aVector(1),_
- False, aVector(2),_
- True, aVector(3) ) <> aVector(1) ) Then
- doUnitTest = 0
- Else
- doUnitTest = 1
- End If
-End Function
diff --git a/basic/qa/basic_coverage/test_ltrim_method.vb b/basic/qa/basic_coverage/test_ltrim_method.vb
new file mode 100644
index 0000000..562193c
--- /dev/null
+++ b/basic/qa/basic_coverage/test_ltrim_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' LTRIM
+ If ( LTrim( " Hello" ) <> aString ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_math_methods.vb b/basic/qa/basic_coverage/test_math_methods.vb
deleted file mode 100644
index 27477a7..0000000
--- a/basic/qa/basic_coverage/test_math_methods.vb
+++ /dev/null
@@ -1,57 +0,0 @@
-' This file is part of the LibreOffice project.
-'
-' This Source Code Form is subject to the terms of the Mozilla Public
-' License, v. 2.0. If a copy of the MPL was not distributed with this
-' file, You can obtain one at http://mozilla.org/MPL/2.0/.
-'
-
-Function doUnitTest as Integer
- Randomize 42
- ' ABS
- If (Abs(-3.5) <> 3.5) Then
- doUnitTest = 0
- ElseIf (Abs(3.5) <> 3.5) Then
- doUnitTest = 0
- ' ATN
- ElseIf (Atn(1) <> PI/4) Then
- doUnitTest = 0
- ' COS SIN
- ElseIf ( Abs(Cos(PI/3) - Sin(PI/6)) > 1E-6 ) Then
- doUnitTest = 0
- ' EXP LOG
- ElseIf ( Log( Exp(1) ) <> 1 ) Then
- doUnitTest = 0
- ' FIX
- ElseIf (Fix(PI) <> 3) Then
- doUnitTest = 0
- ' FRAC
- ElseIf ( 3+Frac(PI) <> PI) Then
- doUnitTest = 0
- ' HEX
- ElseIf ( Hex(100) <> "64") Then
- doUnitTest = 0
- ' INT
- ElseIf ( Int(PI) <> 3 ) Then
- doUnitTest = 0
- ' OCT
- ElseIf ( Oct(100) <> "144" ) Then
- doUnitTest = 0
- ' ROUND
- ' ElseIf ( Round( PI, 2 ) <> 3.14 ) Then
- ' doUnitTest = 0
- ' RND
- ElseIf ( Rnd >= 1 ) Then
- doUnitTest = 0
- ' SGN
- ElseIf ( Sgn(-3.14) <> -1 ) Then
- doUnitTest = 0
- ' SQR
- ElseIf ( Sqr( 4 ) <> 2 ) Then
- doUnitTest = 0
- ' TAN
- ElseIf ( Abs( Tan(PI/4) - 1 ) > 1E-6 ) Then
- doUnitTest = 0
- Else
- doUnitTest = 1
- End If
-End Function
diff --git a/basic/qa/basic_coverage/test_minute_method.vb b/basic/qa/basic_coverage/test_minute_method.vb
new file mode 100644
index 0000000..0f12304
--- /dev/null
+++ b/basic/qa/basic_coverage/test_minute_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' MINUTE
+ If ( Minute(TimeSerial(12,30,41)) <> 30 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_month_method.vb b/basic/qa/basic_coverage/test_month_method.vb
new file mode 100644
index 0000000..38d8ae4
--- /dev/null
+++ b/basic/qa/basic_coverage/test_month_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date()
+ ' MONTH
+ If ( DatePart( "m", aDate ) <> Month( aDate ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_nowtimevalue_methods.vb b/basic/qa/basic_coverage/test_nowtimevalue_methods.vb
new file mode 100644
index 0000000..42dce2f
--- /dev/null
+++ b/basic/qa/basic_coverage/test_nowtimevalue_methods.vb
@@ -0,0 +1,20 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ dim aTime as Date
+ aDate = Date()
+ aTime = Time()
+ ' NOW TIMEVALUE
+ If ( Now() < aDate + TimeValue(aTime) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_oct_method.vb b/basic/qa/basic_coverage/test_oct_method.vb
new file mode 100644
index 0000000..4c61053
--- /dev/null
+++ b/basic/qa/basic_coverage/test_oct_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' OCT
+ If ( Oct(100) <> "144" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_qbcolor_method.vb b/basic/qa/basic_coverage/test_qbcolor_method.vb
new file mode 100644
index 0000000..8051a80
--- /dev/null
+++ b/basic/qa/basic_coverage/test_qbcolor_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' QBCOLOR
+ If ( QBColor(7) <> 12632256 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_random_methods.vb b/basic/qa/basic_coverage/test_random_methods.vb
new file mode 100644
index 0000000..ea5d1c9
--- /dev/null
+++ b/basic/qa/basic_coverage/test_random_methods.vb
@@ -0,0 +1,16 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ Randomize 42
+ ' RND
+ If ( Rnd >= 1 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_resolvepath_method.vb b/basic/qa/basic_coverage/test_resolvepath_method.vb
new file mode 100644
index 0000000..888a29d
--- /dev/null
+++ b/basic/qa/basic_coverage/test_resolvepath_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' RESOLVEPATH
+ If ( ResolvePath( "" ) <> "" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_rgb_method.vb b/basic/qa/basic_coverage/test_rgb_method.vb
new file mode 100644
index 0000000..7bdaf96
--- /dev/null
+++ b/basic/qa/basic_coverage/test_rgb_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' RGB
+ If ( RGB( 128, 50, 200 ) <> 8401608 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_rtrim_method.vb b/basic/qa/basic_coverage/test_rtrim_method.vb
new file mode 100644
index 0000000..79a8093
--- /dev/null
+++ b/basic/qa/basic_coverage/test_rtrim_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' RTRIM
+ If ( RTrim( "Hello " ) <> aString ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_second_method.vb b/basic/qa/basic_coverage/test_second_method.vb
new file mode 100644
index 0000000..77311e9
--- /dev/null
+++ b/basic/qa/basic_coverage/test_second_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' SECOND
+ If ( Second(TimeSerial(12,30,41)) <> 41 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_sgn_method.vb b/basic/qa/basic_coverage/test_sgn_method.vb
new file mode 100644
index 0000000..da2cf67
--- /dev/null
+++ b/basic/qa/basic_coverage/test_sgn_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' SGN
+ If ( Sgn(-3.14) <> -1 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_space_method.vb b/basic/qa/basic_coverage/test_space_method.vb
new file mode 100644
index 0000000..8b35b10
--- /dev/null
+++ b/basic/qa/basic_coverage/test_space_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' SPACE
+ If ( Space(3) <> " " ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_spc_method.vb b/basic/qa/basic_coverage/test_spc_method.vb
new file mode 100644
index 0000000..7ed291e
--- /dev/null
+++ b/basic/qa/basic_coverage/test_spc_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' SPC
+ If ( Spc(3) <> " " ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_split_method.vb b/basic/qa/basic_coverage/test_split_method.vb
new file mode 100644
index 0000000..d09e8c3
--- /dev/null
+++ b/basic/qa/basic_coverage/test_split_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' SPLIT
+ If ( Split( "Hello world" )(1) <> "world" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_sqr_method.vb b/basic/qa/basic_coverage/test_sqr_method.vb
new file mode 100644
index 0000000..55db954
--- /dev/null
+++ b/basic/qa/basic_coverage/test_sqr_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' SQR
+ If ( Sqr( 4 ) <> 2 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_strcomp_method.vb b/basic/qa/basic_coverage/test_strcomp_method.vb
new file mode 100644
index 0000000..aeb146e
--- /dev/null
+++ b/basic/qa/basic_coverage/test_strcomp_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' STRCOMP
+ If ( StrComp( aString, "Hello" ) <> 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_string_method.vb b/basic/qa/basic_coverage/test_string_method.vb
new file mode 100644
index 0000000..8664ac0
--- /dev/null
+++ b/basic/qa/basic_coverage/test_string_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' STRING
+ If ( String( 3, "H" ) <> "HHH" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_string_methods.vb b/basic/qa/basic_coverage/test_string_methods.vb
deleted file mode 100644
index deac1cf..0000000
--- a/basic/qa/basic_coverage/test_string_methods.vb
+++ /dev/null
@@ -1,85 +0,0 @@
-'
-' This file is part of the LibreOffice project.
-'
-' This Source Code Form is subject to the terms of the Mozilla Public
-' License, v. 2.0. If a copy of the MPL was not distributed with this
-' file, You can obtain one at http://mozilla.org/MPL/2.0/.
-'
-
-Function doUnitTest as Integer
- dim aString as Variant
- aString = "Hello"
- ' ASC
- If (Asc("€") <> 8364) Then
- doUnitTest = 0
- ' ASCw
- 'ElseIf (AscW("€") <> 8364) Then
- ' doUnitTest = 0
- ' FORMAT already tested
- ' ElseIf (Format(PI, "0") <> "3") Then
- ' doUnitTest = 0
- ' InStr
- ElseIf ( InStr( 1, aString, "l", 1) <> 3 ) Then
- doUnitTest = 0
- ' InStrRev
- 'ElseIf ( InStrRev( aString, "l" ) <> 4 ) Then
- ' doUnitTest = 0
- ' LCASE
- ElseIf ( LCase( aString ) <> "hello" ) Then
- doUnitTest = 0
- ' LEFT already test
- ' ElseIf ( Left( aString, 2 ) <> "He" ) Then
- ' doUnitTest = 0
- ' LEN
- ElseIf ( Len( aString ) <> 5 ) Then
- doUnitTest = 0
- ' LENB
- ElseIf ( LenB( aString ) <> 5 ) Then
- doUnitTest = 0
- ' LTRIM
- ElseIf ( LTrim( " Hello" ) <> aString ) Then
- doUnitTest = 0
- ' MID already tested
- ' ElseIf ( Mid( aString, 2, 2 ) <> "el" ) Then
- ' doUnitTest = 0
- ' REPLACE already tested
- ' ElseIf ( Replace ( aString, "l", "jo", 1, 2 ) <> "Hejojoo" ) Then
- ' doUnitTest = 0
- ' RIGHT already tested
- ' ElseIf ( Right( aString, 2 ) <> "lo" ) Then
- ' doUnitTest = 0
- ' RTRIM
- ElseIf ( RTrim( "Hello " ) <> aString ) Then
- doUnitTest = 0
- ' SPACE
- ElseIf ( Space(3) <> " " ) Then
- doUnitTest = 0
- ' SPC
- ElseIf ( Spc(3) <> " " ) Then
- doUnitTest = 0
- ' SPLIT
- ElseIf ( Split( "Hello world" )(1) <> "world" ) Then
- doUnitTest = 0
- ' STR TRIM
- ElseIf ( Trim( Str( 4 ) ) <> "4" ) Then
- doUnitTest = 0
- ' STRCOMP
- ElseIf ( StrComp( aString, "Hello" ) <> 0 ) Then
- doUnitTest = 0
- ' StrConv
- ' STRING
- ElseIf ( String( 3, "H" ) <> "HHH" ) Then
- doUnitTest = 0
- ' STRREVERSE
- 'ElseIf ( StrReverse( aString ) <> "olleH" ) Then
- ' doUnitTest = 0
- ' TAB
- ElseIf ( "Hello" & Tab(0) & "World" <> "HelloWorld" ) Then
- doUnitTest = 0
- ' UCASE
- ElseIf ( UCase( aString ) <> "HELLO" ) Then
- doUnitTest = 0
- Else
- doUnitTest = 1
- End If
-End Function
diff --git a/basic/qa/basic_coverage/test_strtrim_methods.vb b/basic/qa/basic_coverage/test_strtrim_methods.vb
new file mode 100644
index 0000000..b9da11d
--- /dev/null
+++ b/basic/qa/basic_coverage/test_strtrim_methods.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' STR TRIM
+ If ( Trim( Str( 4 ) ) <> "4" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_switch_method.vb b/basic/qa/basic_coverage/test_switch_method.vb
new file mode 100644
index 0000000..9dc00fa
--- /dev/null
+++ b/basic/qa/basic_coverage/test_switch_method.vb
@@ -0,0 +1,20 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aVariant as Object
+ ' SWITCH
+ If ( Switch( False, 10,_
+ True, 11,_
+ False, 12,_
+ True, 13 ) <> 11 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_tab_method.vb b/basic/qa/basic_coverage/test_tab_method.vb
new file mode 100644
index 0000000..a5e4e98
--- /dev/null
+++ b/basic/qa/basic_coverage/test_tab_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TAB
+ If ( "Hello" & Tab(0) & "World" <> "HelloWorld" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_tan_method.vb b/basic/qa/basic_coverage/test_tan_method.vb
new file mode 100644
index 0000000..117d282
--- /dev/null
+++ b/basic/qa/basic_coverage/test_tan_method.vb
@@ -0,0 +1,15 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TAN
+ If ( Abs( Tan(PI/4) - 1 ) > 1E-6 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_timer_method.vb b/basic/qa/basic_coverage/test_timer_method.vb
new file mode 100644
index 0000000..3ccb120
--- /dev/null
+++ b/basic/qa/basic_coverage/test_timer_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TIMER max value = 24*3600
+ If ( Timer() > 86400 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_timeserialtimevalue_methods.vb b/basic/qa/basic_coverage/test_timeserialtimevalue_methods.vb
new file mode 100644
index 0000000..6e84329
--- /dev/null
+++ b/basic/qa/basic_coverage/test_timeserialtimevalue_methods.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TIMESERIAL TIMEVALUE
+ If ( TimeSerial(13,54,48) <> TimeValue("13:54:48") ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_twipsperpixelx_method.vb b/basic/qa/basic_coverage/test_twipsperpixelx_method.vb
new file mode 100644
index 0000000..2b8890a
--- /dev/null
+++ b/basic/qa/basic_coverage/test_twipsperpixelx_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TWIPSPERPIXELX
+ If ( TwipsPerPixelX < 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_twipsperpixely_method.vb b/basic/qa/basic_coverage/test_twipsperpixely_method.vb
new file mode 100644
index 0000000..efc41e1
--- /dev/null
+++ b/basic/qa/basic_coverage/test_twipsperpixely_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TWIPSPERPIXELY
+ If ( TwipsPerPixelY < 0 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_typelen_method.vb b/basic/qa/basic_coverage/test_typelen_method.vb
new file mode 100644
index 0000000..4684790
--- /dev/null
+++ b/basic/qa/basic_coverage/test_typelen_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TYPELEN
+ If ( TypeLen("Hello") <> 5 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_typename_method.vb b/basic/qa/basic_coverage/test_typename_method.vb
new file mode 100644
index 0000000..eba2d86
--- /dev/null
+++ b/basic/qa/basic_coverage/test_typename_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' TYPENAME
+ If ( TypeName("Hello") <> "String" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_ucase_method.vb b/basic/qa/basic_coverage/test_ucase_method.vb
new file mode 100644
index 0000000..940c089
--- /dev/null
+++ b/basic/qa/basic_coverage/test_ucase_method.vb
@@ -0,0 +1,17 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aString as Variant
+ aString = "Hello"
+ ' UCASE
+ If ( UCase( aString ) <> "HELLO" ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_val_method.vb b/basic/qa/basic_coverage/test_val_method.vb
new file mode 100644
index 0000000..c25610c
--- /dev/null
+++ b/basic/qa/basic_coverage/test_val_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' VAL
+ If ( Val("4") <> 4 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_vartype_method.vb b/basic/qa/basic_coverage/test_vartype_method.vb
new file mode 100644
index 0000000..bd45ade
--- /dev/null
+++ b/basic/qa/basic_coverage/test_vartype_method.vb
@@ -0,0 +1,16 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' VARTYPE
+ If ( VarType("Hello") <> 8 ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_wait_method.vb b/basic/qa/basic_coverage/test_wait_method.vb
new file mode 100644
index 0000000..776a2ef
--- /dev/null
+++ b/basic/qa/basic_coverage/test_wait_method.vb
@@ -0,0 +1,12 @@
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ ' WAIT
+ Wait(0)
+ doUnitTest = 1
+End Function
diff --git a/basic/qa/basic_coverage/test_weekday_method.vb b/basic/qa/basic_coverage/test_weekday_method.vb
new file mode 100644
index 0000000..4827943
--- /dev/null
+++ b/basic/qa/basic_coverage/test_weekday_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date()
+ ' WEEKDAY
+ If ( Weekday( aDate ) <> WeekDay( aDate ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
diff --git a/basic/qa/basic_coverage/test_year_method.vb b/basic/qa/basic_coverage/test_year_method.vb
new file mode 100644
index 0000000..0863e11
--- /dev/null
+++ b/basic/qa/basic_coverage/test_year_method.vb
@@ -0,0 +1,18 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+ dim aDate as Date
+ aDate = Date()
+ ' YEAR
+ If ( DatePart( "yyyy", aDate ) <> Year( aDate ) ) Then
+ doUnitTest = 0
+ Else
+ doUnitTest = 1
+ End If
+End Function
More information about the Libreoffice-commits
mailing list