From 260a2036d688afddc6e6e477764e1196cc915194 Mon Sep 17 00:00:00 2001
From: Andreas Heinisch <andreas.heinisch@yahoo.de>
Date: Fri, 7 Jan 2022 10:16:02 +0100
Subject: tdf#130426 - Rename file for tdf#145693

Change-Id: I1435f3e8c8ecf41ecd6b2766e19009c6b1783326
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/128099
Tested-by: Jenkins
Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
---
 basic/qa/basic_coverage/test_chr_method.bas        | 66 ----------------------
 .../qa/basic_coverage/test_chr_overflow_method.bas | 66 ++++++++++++++++++++++
 2 files changed, 66 insertions(+), 66 deletions(-)
 delete mode 100644 basic/qa/basic_coverage/test_chr_method.bas
 create mode 100644 basic/qa/basic_coverage/test_chr_overflow_method.bas

(limited to 'basic')

diff --git a/basic/qa/basic_coverage/test_chr_method.bas b/basic/qa/basic_coverage/test_chr_method.bas
deleted file mode 100644
index 9c1df6659c10..000000000000
--- a/basic/qa/basic_coverage/test_chr_method.bas
+++ /dev/null
@@ -1,66 +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/.
-
-Option Explicit
-
-Function overflow1 as Integer
-    On Error GoTo handler
-    Chr(-32769)
-    overflow1 = 0
-    Exit Function
-handler:
-    if (Err <> 6) Then
-        overflow1 = 0
-        Exit Function
-    Endif
-    overflow1 = 1
-End Function
-
-Function overflow2 as Integer
-    On Error GoTo handler
-    Chr(65536)
-    overflow2 = 0
-    Exit Function
-handler:
-    if (Err <> 6) Then
-        overflow2 = 0
-        Exit Function
-    Endif
-    overflow2 = 1
-End Function
-
-Function overflow3 as Integer
-    On Error GoTo handler
-    Chr(&H10000)
-    overflow3 = 0
-    Exit Function
-handler:
-    if (Err <> 6) Then
-        overflow3 = 0
-        Exit Function
-    Endif
-    overflow3 = 1
-End Function
-
-Function doUnitTest as String
-    Chr(-32768)
-    Chr(65535)
-    Chr(&H8000)
-    Chr(&HFFFF)
-    if (overflow1 = 0) Then
-        doUnitTest = "FAIL"
-        Exit Function
-    Endif
-    if (overflow2 = 0) Then
-        doUnitTest = "FAIL"
-        Exit Function
-    Endif
-    if (overflow3 = 0) Then
-        doUnitTest = "FAIL"
-        Exit Function
-    Endif
-    doUnitTest = "OK"
-End Function
diff --git a/basic/qa/basic_coverage/test_chr_overflow_method.bas b/basic/qa/basic_coverage/test_chr_overflow_method.bas
new file mode 100644
index 000000000000..9c1df6659c10
--- /dev/null
+++ b/basic/qa/basic_coverage/test_chr_overflow_method.bas
@@ -0,0 +1,66 @@
+' 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/.
+
+Option Explicit
+
+Function overflow1 as Integer
+    On Error GoTo handler
+    Chr(-32769)
+    overflow1 = 0
+    Exit Function
+handler:
+    if (Err <> 6) Then
+        overflow1 = 0
+        Exit Function
+    Endif
+    overflow1 = 1
+End Function
+
+Function overflow2 as Integer
+    On Error GoTo handler
+    Chr(65536)
+    overflow2 = 0
+    Exit Function
+handler:
+    if (Err <> 6) Then
+        overflow2 = 0
+        Exit Function
+    Endif
+    overflow2 = 1
+End Function
+
+Function overflow3 as Integer
+    On Error GoTo handler
+    Chr(&H10000)
+    overflow3 = 0
+    Exit Function
+handler:
+    if (Err <> 6) Then
+        overflow3 = 0
+        Exit Function
+    Endif
+    overflow3 = 1
+End Function
+
+Function doUnitTest as String
+    Chr(-32768)
+    Chr(65535)
+    Chr(&H8000)
+    Chr(&HFFFF)
+    if (overflow1 = 0) Then
+        doUnitTest = "FAIL"
+        Exit Function
+    Endif
+    if (overflow2 = 0) Then
+        doUnitTest = "FAIL"
+        Exit Function
+    Endif
+    if (overflow3 = 0) Then
+        doUnitTest = "FAIL"
+        Exit Function
+    Endif
+    doUnitTest = "OK"
+End Function
-- 
cgit