core/basic/qa/basic_coverage/test_For_loops.vb | 28 ------------------------- 1 file changed, 28 deletions(-)
New commits: commit 232a423c88d3f4a30be9e7d6917f65cb9522191c Author: Mike Kaganski <[email protected]> AuthorDate: Fri Nov 29 08:07:59 2019 +0200 Commit: Mike Kaganski <[email protected]> CommitDate: Fri Nov 29 07:08:11 2019 +0100 Revert "tdf#128655 LibO Basic For loops variations" This reverts commit 1dd1b76bc1c6ca249bd2b3c605de642f0761072d. Change-Id: I20fbf8d3f0e719b466dc7a1d9cab23d23197de6a Reviewed-on: https://gerrit.libreoffice.org/84032 Reviewed-by: Mike Kaganski <[email protected]> Tested-by: Mike Kaganski <[email protected]> diff --git a/core/basic/qa/basic_coverage/test_For_loops.vb b/core/basic/qa/basic_coverage/test_For_loops.vb deleted file mode 100644 index 2bd4e432cab6..000000000000 --- a/core/basic/qa/basic_coverage/test_For_loops.vb +++ /dev/null @@ -1,28 +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 - Dim s1 As Integer, s2 As Integer, value As Integer - - ' FOR EACH - numbers = Array(3,4,5,6,7,8,9,10,11) - For Each value in numbers - s1 = s1 + value - Next value - - ' FOR .. TO .. STEP .. - For value = 5 To 21 Step 3 - s2 = s2 + value - Next value - - If s1<>9*7 Or s2<>3*25 Then - doUnitTest = 0 - Else - doUnitTest = 1 'Ok - End If -End Function \ No newline at end of file _______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
