From 62f0e662d16e9448c66c1aee346cbe6debd8aba4 Mon Sep 17 00:00:00 2001 From: Ivo Hinkelmann Date: Thu, 17 Sep 2009 14:29:05 +0000 Subject: 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 --- testautomation/global/input/macros.txt | 51 +++++++++++++++++++++++++++++++--- 1 file changed, 47 insertions(+), 4 deletions(-) (limited to 'testautomation/global/input') 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 -- cgit v1.2.3