2 files changed, 46 insertions, 0 deletions
diff --git a/testautomation/global/input/macros.txt b/testautomation/global/input/macros.txt
index ffe95be431e3..e0423fec3858 100755
--- a/testautomation/global/input/macros.txt
+++ b/testautomation/global/input/macros.txt
@@ -279,3 +279,48 @@ Sub Main
     ' Uncommenting this should result in an error "Invalid procedure call"
     oInstanceErr1 = oSingleton.get( 42 )
 End Sub
+
+# ---------------------------------------------------------------------------- #
+
+[i106744-1]
+sub main
+    msgbox test1()
+end sub
+
+Function test1() As String
+
+    Dim foo As String : foo = "astring"
+    
+    On Error Resume Next
+    test1 = "GOT ERROR"
+    If IsEmpty(foo) Then
+        test1 = "EMPTY"
+    Else
+        test1 = "NOT EMPTY"
+    End If
+
+End Function
+
+# ---------------------------------------------------------------------------- #
+
+[i106744-2]
+option VBASupport 1
+
+sub main
+    msgbox test1()
+end sub
+
+Function test1() As String
+
+    Dim foo As String : foo = "astring"
+    
+    On Error Resume Next
+    test1 = "GOT ERROR"
+    If IsEmpty(foo) Then
+        test1 = "EMPTY"
+    Else
+        test1 = "NOT EMPTY"
+    End If
+
+End Function
+
diff --git a/testautomation/global/input/officeinfo.txt b/testautomation/global/input/officeinfo.txt
index dc334737d048..92b4e492740d 100644..100755
--- a/testautomation/global/input/officeinfo.txt
+++ b/testautomation/global/input/officeinfo.txt
@@ -3,4 +3,5 @@ StarOffice=9
 StarSuite=9
 OpenOffice.org=3.1
 BrOffice.org=3.1
+Oracle Open Office=3.2