diff options
Diffstat (limited to 'testautomation/global/input/macros.txt')
-rwxr-xr-x | testautomation/global/input/macros.txt | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/testautomation/global/input/macros.txt b/testautomation/global/input/macros.txt index 2210990ec93f..f34e54f607d1 100755 --- a/testautomation/global/input/macros.txt +++ b/testautomation/global/input/macros.txt @@ -220,45 +220,45 @@ End Sub # ---------------------------------------------------------------------------- # [i103691] -option vbasupport 1
-
-Sub Main
- dim a, b
-
+option vbasupport 1 + +Sub Main + dim a, b + if (not a = b) then - msgbox( "not equal" )
- else
- msgbox( "Equal" )
- end if
-End Sub
+ 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" )
+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
+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
+ endif +end sub |