diff options
author | Zdeněk Crhonek <zcrhonek@gmail.com> | 2018-11-29 20:49:36 +0100 |
---|---|---|
committer | Zdenek Crhonek <zcrhonek@gmail.com> | 2018-12-03 17:58:38 +0100 |
commit | 834c7c2698443332a347374db10e17d7862d6e4f (patch) | |
tree | 43a8e123fea2eceae77a431db55ef1aabecd5123 /basic | |
parent | 4075840e03a175081e0e16d30bf6ae72988c7fd3 (diff) |
add test for bug tdf#121337
Change-Id: I26d1d426e6a856b09a48efe8e411b8c54e0f35cf
Reviewed-on: https://gerrit.libreoffice.org/64275
Tested-by: Jenkins
Reviewed-by: Zdenek Crhonek <zcrhonek@gmail.com>
Diffstat (limited to 'basic')
-rw-r--r-- | basic/CppunitTest_basic_macros.mk | 2 | ||||
-rw-r--r-- | basic/qa/basic_coverage/test_filedatetime_nonexistent.vb | 20 | ||||
-rw-r--r-- | basic/qa/basic_coverage/test_filedatetime_nonexistent2.vb | 20 |
3 files changed, 42 insertions, 0 deletions
diff --git a/basic/CppunitTest_basic_macros.mk b/basic/CppunitTest_basic_macros.mk index 8b0dccece557..db49876bb652 100644 --- a/basic/CppunitTest_basic_macros.mk +++ b/basic/CppunitTest_basic_macros.mk @@ -59,6 +59,8 @@ $(eval $(call gb_CppunitTest_use_vcl,basic_macros)) $(eval $(call gb_CppunitTest_use_components,basic_macros,\ configmgr/source/configmgr \ i18npool/util/i18npool \ + ucb/source/core/ucb1 \ + ucb/source/ucp/file/ucpfile1 \ $(if $(DISABLE_ATL),,$(if $(filter $(OS),WNT), \ extensions/source/ole/oleautobridge)) \ )) diff --git a/basic/qa/basic_coverage/test_filedatetime_nonexistent.vb b/basic/qa/basic_coverage/test_filedatetime_nonexistent.vb new file mode 100644 index 000000000000..53a72549c846 --- /dev/null +++ b/basic/qa/basic_coverage/test_filedatetime_nonexistent.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/. +' +'Bug 121337 - FileDateTime("\\nonexistent\smb\path") returns bogus result rather than throwing error +Function doUnitTest as Integer + On Error GoTo ErrorHandler ' Set up error handler + Dim result + result = FileDateTime("/bogus/unix/path") + doUnitTest = 0 + Exit Function +ErrorHandler: + If ( Err <> 0 ) Then + doUnitTest = 0 + Else + doUnitTest = 1 + Endif +End Function diff --git a/basic/qa/basic_coverage/test_filedatetime_nonexistent2.vb b/basic/qa/basic_coverage/test_filedatetime_nonexistent2.vb new file mode 100644 index 000000000000..2135b25d27ec --- /dev/null +++ b/basic/qa/basic_coverage/test_filedatetime_nonexistent2.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/. +' +'Bug 121337 - FileDateTime("\\nonexistent\smb\path") returns bogus result rather than throwing error +Function doUnitTest as Integer + On Error GoTo ErrorHandler ' Set up error handler + Dim result + result = FileDateTime("\\bogus\smb\path") + doUnitTest = 0 + Exit Function +ErrorHandler: + If ( Err <> 0 ) Then + doUnitTest = 0 + Else + doUnitTest = 1 + Endif +End Function |