CWS-TOOLING: integrate CWS ab74

2009-09-10 10:13:43 +0200 jsk  r276023 : Test Cases for #i103691, #i103697, #i103990
2009-09-03 15:42:36 +0200 ab  r275754 : #i103990# Removed warning
2009-09-03 09:02:32 +0200 ab  r275744 : CWS-TOOLING: rebase CWS ab74 to trunk@275331 (milestone: DEV300:m56)
2009-09-02 17:14:42 +0200 ab  r275724 : #i103697# Applied patch
2009-08-27 15:11:50 +0200 ab  r275488 : #i103354# Check Lucene index file to be named _0.cfs, fail otherwise
2009-08-26 08:57:21 +0200 ab  r275393 : #i104354# Changed loop variable type to avoid Solaris Intel compiler optimizer bug
2009-08-17 14:17:32 +0200 ab  r275053 : #i73263# Adapted breakpoint dialog to longer strings
2009-08-13 17:09:30 +0200 ab  r274951 : #i103691# Fix empty comparison behaviour
2009-08-13 13:03:28 +0200 ab  r274935 : #i103948# Applied patch
2009-08-13 12:31:15 +0200 ab  r274931 : #i103134# Patch: Always set default property
2009-08-13 11:02:50 +0200 ab  r274926 : #i103990# Support arrays in user types
2009-07-21 11:16:54 +0200 ab  r274171 : #i102816# Make sure LocaleItem is loaded before copying from it
2009-07-20 14:56:35 +0200 ab  r274139 : #i102816# Use default language as final fallback in service implementation

1 files changed, 47 insertions, 4 deletions

diff --git a/testautomation/global/input/macros.txt b/testautomation/global/input/macros.txt
index d3f000e81d53..2210990ec93f 100755
--- a/testautomation/global/input/macros.txt
+++ b/testautomation/global/input/macros.txt
@@ -211,11 +211,54 @@ End Function
 ' Date should contain the year 1900 and the value should be 2
 
 Sub Main
-Dim v
-v = DateSerial(0,1,1)
-Msgbox ("Date :  " & v)
-MsgBox ("Value : " & CDbl(v))
+    Dim v
+    v = DateSerial(0,1,1)
+    Msgbox ("Date :  " & v)
+    MsgBox ("Value : " & CDbl(v))
 End Sub
 
 # ---------------------------------------------------------------------------- #
 
+[i103691]
+option vbasupport 1

+

+Sub Main

+    dim a, b

+

+    if (not a = b) then 
+        msgbox( "not equal" )

+    else

+        msgbox( "Equal" )    

+    end if

+End Sub

+# ---------------------------------------------------------------------------- #
+
+[i103697]
+Private Declare Function FooFunction Lib "foo" ( nVal )

+Public  Declare Function FooFunction2 Lib "foo" ( nVal )

+

+sub main

+	msgbox( "i103697" )

+end sub
+
+# ---------------------------------------------------------------------------- #
+
+[i103990]
+type MyType

+	a( 3 ) as integer

+	b as double

+end type

+

+Sub Main

+	dim mt as MyType

+	mt.a(0) = 42

+	mt.a(1) = 43

+	mt.b = 3.14

+	msgbox( mt.a(0) )
+	msgbox( mt.a(1) )
+	if ( mt.b = 3.14 ) then
+    	msgbox( "Pi" )
+    else
+        msgbox( "Error" )
+    endif

+end sub