testautomation/global/input/macros.txt

   1 # This is a collection of BASIC macros that can cause Syntax errors, Exceptions,
   2 # Runtime Errors.
   3
   4 # ---------------------------------------------------------------------------- #
   5
   6 [Default_Macro]
   7 REM BASIC
   8
   9 sub main
  10
  11 end sub
  12
  13 # ---------------------------------------------------------------------------- #
  14
  15 [MessageBoxes]
  16 '# MessageBoxes - Macro that opens all flavors of messageboxes
  17 function TestMessageBoxes()
  18
  19     msgbox( "0x" , 0 )
  20     msgbox( "1x" , 1 )
  21     msgbox( "2x" , 2 )
  22     msgbox( "3x" , 3 )
  23     msgbox( "4x" , 4 )
  24     msgbox( "5x" , 5 )
  25
  26     msgbox( "16" , 2 + 16 )
  27     msgbox( "32" , 2 + 32 )
  28     msgbox( "48" , 2 + 48 )
  29     msgbox( "64" , 2 + 64 )
  30     msgbox( "128" , 2 + 128 )
  31     msgbox( "256" , 2 + 256 )
  32     msgbox( "512" , 2 + 512 )
  33
  34 end function
  35
  36 # ---------------------------------------------------------------------------- #
  37
  38 [TTMacro1]
  39 '# TTMacro1: This is a short testscript for automated testing!
  40 sub main
  41
  42     print( "Hello" )
  43
  44 end sub
  45
  46 # ---------------------------------------------------------------------------- #
  47
  48 [TTMacro2]
  49 '# TTMacro2: Macro that only contains a comment on the first line
  50
  51 # ---------------------------------------------------------------------------- #
  52
  53 [TTMacro3]
  54 '# TTMacro3: Bring up a messagebox
  55 sub main
  56
  57     msgbox( "TTMacro3" )
  58
  59 end sub
  60
  61 # ---------------------------------------------------------------------------- #
  62
  63 [tBasicExport]
  64 ' This is a macro to test the BASIC library export
  65 sub main
  66
  67     msgbox( "tBasicExport" )
  68
  69 end sub
  70
  71 # ---------------------------------------------------------------------------- #
  72
  73 [i41695]
  74 ' No runtime exception
  75 sub main
  76
  77     dim F as string
  78     dim S as string
  79     msgbox( "i41695-1" )
  80     F = "file://" & curdir & "/test.txt"
  81     Open F for random as #17
  82
  83     get #17, 1, S
  84     msgbox( "i41695-2" )
  85
  86 end sub
  87
  88 # ---------------------------------------------------------------------------- #
  89
  90 [i77436]
  91 '# This is a macro required for verification of issue 77436
  92 Sub Main
  93 'test service
  94 o= createUnoService("TestNamesComp")
  95 msgbox o.dbg_supportedInterfaces
  96
  97 'test singleton
  98 ctx = getDefaultContext
  99 factory = ctx.getValueByName("org.openoffice.test.Names")
 100 msgbox o.dbg_supportedInterfaces
 101
 102 End Sub
 103
 104 # ---------------------------------------------------------------------------- #
 105
 106 [i82830]
 107 'should display
 108 '12D687
 109 '4553207
 110 Sub Main
 111         dim l as long
 112         l = 1234567
 113         msgbox hex( l )
 114         msgbox oct( l )
 115 end sub
 116
 117 # ---------------------------------------------------------------------------- #
 118
 119 [i81674]
 120 Sub Main
 121         MsgBox Format(1250, "Currency")
 122         MsgBox Format(1250, "Yes/No")
 123         MsgBox Format(1250, "True/False")
 124         MsgBox Format(1250, "On/Off")
 125 End Sub
 126
 127 # ---------------------------------------------------------------------------- #
 128
 129 [i80532]
 130 ' Should display three messageboxes: -10,1,-10
 131 Sub Main
 132     aTestFunction (-10) ' will compile
 133     aTestFunction 1,-10 ' will compile
 134     aTestFunction -10 ' should now compile and run, too
 135 End Sub
 136
 137 function aTestFunction( param1 as variant )
 138     msgbox "param1 = " & param1
 139 end function
 140
 141 # ---------------------------------------------------------------------------- #
 142
 143 [i83978]
 144 ' This should trigger an exception
 145
 146 Sub Main
 147         BasicLibraries.LoadLibrary( "ThisLibDoesNotExist" )
 148 End Sub
 149
 150 # ---------------------------------------------------------------------------- #
 151
 152 [i84040]
 153 ' Two messageboxes that should display "false"
 154
 155 Sub Main
 156     Dim oError1 as new com.sun.star.sdbc.SQLException
 157     print isnull( oError1 )
 158     Dim oError2 as Object
 159     oError2 = CreateUnoStruct( "com.sun.star.sdbc.SQLException" )
 160     print isnull( oError2 )
 161 End Sub
 162
 163 # ---------------------------------------------------------------------------- #
 164
 165 [i86265]
 166 ' There should be no "Paramtheses do not match" warning
 167 OPTION EXPLICIT
 168 Public Const cMAX = 256
 169
 170 Sub Main
 171
 172     Dim mRangeArray(0, 0) as String
 173     Dim n as Integer
 174
 175     n = 10
 176     MsgBox "i86265-1"
 177     ReDim mRangeArray(CInt(cMAX), n) as String
 178     MsgBox "i86265-2"
 179
 180 End Sub
 181
 182 # ---------------------------------------------------------------------------- #
 183
 184 [i92329]
 185 Option VBASupport 1
 186 Sub Main()
 187
 188     Dim mTmp() As String
 189     mTmp() = Test(False) '<-- generates an 'unexpected ')' compiler error
 190     MsgBox mTmp(0) & " " & mTmp(1)
 191
 192 End Sub
 193
 194 Function Test(ByVal bFlag As Boolean) As Variant
 195
 196     Dim mRanges(100) As String
 197
 198     If (bFlag = True) Then
 199         Test = "return a String"
 200     Else
 201         mRanges(0) = "Return an"
 202         mRanges(1) = "Array"
 203         Test = mRanges()
 204     End If
 205
 206 End Function
 207
 208 # ---------------------------------------------------------------------------- #
 209
 210 [i97038]
 211 ' Date should contain the year 1900 and the value should be 2
 212
 213 Sub Main
 214     Dim v
 215     v = DateSerial(0,1,1)
 216     Msgbox ("Date :  " & v)
 217     MsgBox ("Value : " & CDbl(v))
 218 End Sub
 219
 220 # ---------------------------------------------------------------------------- #
 221
 222 [i103691]
 223 option vbasupport 1\r
 224 \r
 225 Sub Main\r
 226     dim a, b\r
 227 \r
 228     if (not a = b) then
 229         msgbox( "not equal" )\r
 230     else\r
 231         msgbox( "Equal" )    \r
 232     end if\r
 233 End Sub\r
 234 # ---------------------------------------------------------------------------- #
 235
 236 [i103697]
 237 Private Declare Function FooFunction Lib "foo" ( nVal )\r
 238 Public  Declare Function FooFunction2 Lib "foo" ( nVal )\r
 239 \r
 240 sub main\r
 241         msgbox( "i103697" )\r
 242 end sub
 243
 244 # ---------------------------------------------------------------------------- #
 245
 246 [i103990]
 247 type MyType\r
 248         a( 3 ) as integer\r
 249         b as double\r
 250 end type\r
 251 \r
 252 Sub Main\r
 253         dim mt as MyType\r
 254         mt.a(0) = 42\r
 255         mt.a(1) = 43\r
 256         mt.b = 3.14\r
 257         msgbox( mt.a(0) )
 258         msgbox( mt.a(1) )
 259         if ( mt.b = 3.14 ) then
 260         msgbox( "Pi" )
 261     else
 262         msgbox( "Error" )
 263     endif\r
 264 end sub\r