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

[Stephan Bergmann]

 basic/qa/basic_coverage/test_getsystemticks_method.vb |   15 +++++++++++++++
 1 file changed, 15 insertions(+)

New commits:
commit b6988293c1c27dae8524ee0095d5e4c22ca62553
Author: Stephan Bergmann <sbergman at redhat.com>
Date:   Mon Jan 9 14:25:54 2017 +0100

    Revert "Remove test_getsystemticks_method.vb for now"
    
    This reverts commit 93a8ebac2d6eb124bf57223069765af08fcd5c85, now that
    fce604c8ae11b462113305aba080d77f8193cfea "[API CHANGE] return unsigned 64-bit
    value from GetSystemTicks in basic code" is in.

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