diff options
author | Ivo Hinkelmann <ihi@openoffice.org> | 2009-09-17 14:29:05 +0000 |
---|---|---|
committer | Ivo Hinkelmann <ihi@openoffice.org> | 2009-09-17 14:29:05 +0000 |
commit | 62f0e662d16e9448c66c1aee346cbe6debd8aba4 (patch) | |
tree | c278930c82fe9e5bebfd93403b926ee4ed43efd6 /testautomation/global/input | |
parent | CWS-TOOLING: integrate CWS encsig09 (diff) | |
download | core-62f0e662d16e9448c66c1aee346cbe6debd8aba4.tar.gz core-62f0e662d16e9448c66c1aee346cbe6debd8aba4.zip |
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
Diffstat (limited to 'testautomation/global/input')
-rwxr-xr-x | testautomation/global/input/macros.txt | 51 |
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
|