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>

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)) \
 ))

basic/qa/basic_coverage/test_filedatetime_nonexistent.vb

+' 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

basic/qa/basic_coverage/test_filedatetime_nonexistent2.vb

+' 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