CWS-TOOLING: integrate CWS ab76

1 files changed, 17 insertions, 0 deletions

diff --git a/testautomation/global/input/macros.txt b/testautomation/global/input/macros.txt
index f34e54f607d1..ffe95be431e3 100755
--- a/testautomation/global/input/macros.txt
+++ b/testautomation/global/input/macros.txt
@@ -262,3 +262,20 @@ Sub Main
         msgbox( "Error" )
     endif
 end sub
+
+# ---------------------------------------------------------------------------- #
+
+[i107070]
+Sub Main
+    oSingleton = com.sun.star.logging.LoggerPool
+
+    oInstance1 = oSingleton.get()
+    msgbox oInstance1.dbg_properties
+
+    oCtx = GetDefaultContext()
+    oInstance2 = oSingleton.get( oCtx )
+    msgbox oInstance2.dbg_properties
+
+    ' Uncommenting this should result in an error "Invalid procedure call"
+    oInstanceErr1 = oSingleton.get( 42 )
+End Sub