basic/qa/basic_coverage/test_getsystemticks_method.vb | 15 +++++++++++++++ 1 file changed, 15 insertions(+)
New commits: commit b6988293c1c27dae8524ee0095d5e4c22ca62553 Author: Stephan Bergmann <[email protected]> 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 _______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
