testautomation/dbaccess/required/includes/Xforms01.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: Xforms01.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:45 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : marc.neumann@sun.com
  35 '*
  36 '* short description : XForms Main Test include file
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tPropertyBrowser
  41 ' #1 tDataNavigator
  42 ' #1 tDataNavigatorSubmission
  43 ' #1 tDataNavigatorBinding
  44 ' #1 tDataNavigatorInstance
  45 ' #1 tDataNavigatorInstanceData
  46 ' #1 tDataNavigatorModel
  47 '*
  48 '\***********************************************************************************
  49
  50 sub xforms_01
  51
  52    printlog "------------------ Xforms01.inc ---------------------"
  53
  54    call tDataNavigatorModel
  55    call tDataNavigatorInstance
  56    call tDataNavigatorInstanceData
  57    call tDataNavigatorSubmission
  58    call tDataNavigatorBinding
  59    call tPropertyBrowser
  60
  61 end sub
  62 '-------------------------------------------------------------------------
  63 testcase tDataNavigatorModel
  64
  65     '/// open new XML Form
  66     printlog "open new XML Form"
  67
  68     FileOpen "FileName", "private:factory/swriter?slot=21053" , "FrameName", "_default" , "SynchronMode" ,True
  69
  70     sleep(5)
  71
  72     call hToolbarSelect("FormDesignTools",true)
  73
  74     '/// open the datanavigator
  75     printlog "open the datanavigator"
  76
  77     Kontext "XFormsDataNavigator"
  78         if ( not XFormsDataNavigator.exists(2) ) then
  79             Kontext "FormDesignTools"
  80             XFormsDataNavigator.Click
  81         endif
  82
  83         sleep(1)
  84
  85     Kontext "XFormsDataNavigator"
  86         'call DialogTest(XFormsDataNavigator)
  87                 XFormsDataNavigator.TypeKeys "<space>" , true
  88         '/// open the add model dialog
  89         printlog "open the add model dialog"
  90         sleep(5)
  91         ModelsBtn.Click
  92         sleep(1)
  93         hMenuSelectNr(1)
  94
  95     sleep(1)
  96
  97     Kontext "XFormAddModel"
  98         call DialogTest(XFormAddModel)
  99         '/// add Model2 as new name
 100         printlog "add Model2 as new name"
 101         ModelName.setText "Model2"
 102         '/// click OK
 103         printlog "click OK"
 104         XFormAddModel.OK
 105
 106     Kontext "XFormsDataNavigator"
 107         if ( Models.getSelText <> "Model2" ) then
 108             warnlog "The new Model is not added"
 109         endif
 110         '/// rename the Model
 111         printlog "rename the Model"
 112         ModelsBtn.Click
 113         hMenuSelectNr(2)
 114         sleep(1)
 115
 116     Kontext "XFormAddModel"
 117         ModelName.setText "Model3"
 118         XFormAddModel.OK
 119
 120     Kontext "XFormsDataNavigator"
 121         if ( Models.getSelText <> "Model3" ) then
 122             warnlog "The Model is not renamed"
 123         endif
 124
 125     '/// close the xform data navigator
 126     printlog "close the xform data navigator"
 127
 128     Kontext "XFormsDataNavigator"
 129         XFormsDataNavigator.Close
 130         sleep(1)
 131
 132     '/// close the document
 133     printlog "close the document"
 134
 135     call hCloseDocument
 136
 137 endcase
 138 '-------------------------------------------------------------------------
 139 testcase tDataNavigatorInstance
 140
 141     '/// open new XML Form
 142     printlog "open new XML Form"
 143
 144     FileOpen "FileName", "private:factory/swriter?slot=21053" , "FrameName", "_default" , "SynchronMode" ,True
 145
 146     sleep(5)
 147
 148     call hToolbarSelect("FormDesignTools",true)
 149     '/// open the datanavigator
 150     printlog "open the datanavigator"
 151     Kontext "XFormsDataNavigator"
 152         if ( not XFormsDataNavigator.exists(2) ) then
 153             Kontext "FormDesignTools"
 154             XFormsDataNavigator.Click
 155         endif
 156
 157         sleep(1)
 158
 159     '/// add a new instance
 160     printlog "add a new instance"
 161     Kontext "XFormsDataNavigator"
 162         XFormsDataNavigator.TypeKeys "<space>" ,true
 163         InstanceBtn.Click
 164         hMenuSelectNr(1)
 165
 166     Kontext "XFormAddInstance"
 167         call DialogTest(XFormAddInstance)
 168         InstanceName.setText "Instance2"
 169         'InstanceURL
 170         'LinkInstance
 171         '/// open the browse dialog and close it again
 172         printlog "open the browse dialog and close it again"
 173         BrowseBtn.Click
 174
 175     Kontext "GeneralFileDialog"
 176         GeneralFileDialog.Cancel
 177
 178     Kontext "XFormAddInstance"
 179         XFormAddInstance.OK
 180         sleep(1)
 181
 182     '/// rename new instance
 183     printlog "rename new instance"
 184     Kontext "XFormsDataNavigator"
 185             XFormsDataNavigator.TypeKeys "<space>" ,true
 186             sleep(1)
 187         InstanceBtn.Click
 188         sleep(1)
 189         hMenuSelectNr(2)
 190         sleep(1)
 191
 192     Kontext "XFormAddInstance"
 193         InstanceName.setText "Instance3"
 194         sleep(1)
 195         XFormAddInstance.OK
 196         sleep(1)
 197     'add a second instance due issue
 198     Kontext "XFormsDataNavigator"
 199             XFormsDataNavigator.TypeKeys "<space>" ,true
 200         InstanceBtn.Click
 201         sleep(1)
 202         hMenuSelectNr(1)
 203         sleep(1)
 204
 205     Kontext "XFormAddInstance"
 206         InstanceName.setText "Instance4"
 207         sleep(1)
 208         XFormAddInstance.OK
 209         sleep(1)
 210
 211     '/// delete instance
 212     Kontext "XFormsDataNavigator"
 213         XFormsDataNavigator.TypeKeys "<space>" ,true
 214         InstanceBtn.Click
 215         sleep(1)
 216         hMenuSelectNr(3)
 217         sleep(1)
 218
 219     Kontext "MessageBox"
 220         MessageBox.Yes
 221         sleep(1)
 222
 223     '/// close the xform data navigator
 224     printlog "close the xform data navigator"
 225
 226     Kontext "XFormsDataNavigator"
 227         XFormsDataNavigator.Close
 228         sleep(1)
 229
 230     '/// close th document
 231     printlog "close th document"
 232
 233     call hCloseDocument
 234
 235 endcase
 236 '-------------------------------------------------------------------------
 237 testcase tDataNavigatorInstanceData
 238
 239     '/// open new XML Form
 240     printlog "open new XML Form"
 241
 242     FileOpen "FileName", "private:factory/swriter?slot=21053" , "FrameName", "_default", "SynchronMode" ,True
 243
 244     sleep(5)
 245
 246     call hToolbarSelect("FormDesignTools",true)
 247
 248     sleep(1)
 249
 250     '/// open the datanavigator
 251     printlog "open the datanavigator"
 252     Kontext "XFormsDataNavigator"
 253         if ( not XFormsDataNavigator.exists(2) ) then
 254             Kontext "FormDesignTools"
 255             XFormsDataNavigator.Click
 256         endif
 257
 258     '/// select the submission tabpage
 259     printlog "select the submission tabpage"
 260
 261     Kontext "XFormsDataNavigator"
 262         call DialogTest(XFormsDataNavigator)
 263         while ( XFormsDataNavigatorTabControl.getPageID() <> 12 )
 264             XFormsDataNavigatorTabControl.TypeKeys("<RIGHT>")
 265         wend
 266         ItemList.select 1
 267     '/// click the add element icon
 268     printlog "click the add element icon"
 269
 270     Kontext "XFormToolbar"
 271         AddElement.Click
 272
 273     Kontext "XFormAddItemDLG"
 274         call DialogTest(XFormAddItemDLG)
 275         ElementName.setText "element1"
 276         if iSprache = 82 then
 277             printlog "because of issue i49557 there are only 12 items in a korean version."
 278             if ( DataType.getItemCount <> 12) then
 279                 warnlog "there are not 12 data types in the listbox there are " + DataType.getItemCount + ". See issue i49557."
 280             endif
 281         else
 282             if ( DataType.getItemCount <> 13) then
 283                 warnlog "there are not 13 data types in the listbox there are " + DataType.getItemCount + ". See issue i49557."
 284             endif
 285         endif
 286             Required.check
 287             RequiredBtn.click
 288     Kontext "AddConditionDLG"
 289         AddConditionDLG.Close
 290     Kontext "XFormAddItemDLG"
 291         Relevant.check
 292         RelevantBtn.click
 293     Kontext "AddConditionDLG"
 294         AddConditionDLG.Close
 295     Kontext "XFormAddItemDLG"
 296         Constraint.check
 297         ConstraintBtn.click
 298     Kontext "AddConditionDLG"
 299         AddConditionDLG.Close
 300     Kontext "XFormAddItemDLG"
 301         Calculate.check
 302         CalculateBtn.click
 303     Kontext "AddConditionDLG"
 304         AddConditionDLG.Close
 305     Kontext "XFormAddItemDLG"
 306         ReadOnly.check
 307         ReadOnlyBtn.click
 308     Kontext "AddConditionDLG"
 309         AddConditionDLG.Close
 310     Kontext "XFormAddItemDLG"
 311         XFormAddItemDLG.OK
 312
 313     '/// close the xform data navigator
 314     printlog "close the xform data navigator"
 315
 316     Kontext "XFormsDataNavigator"
 317         XFormsDataNavigator.Close
 318         sleep(1)
 319
 320     '/// close the document
 321     printlog "close the document"
 322
 323     call hCloseDocument
 324
 325 endcase
 326 '-------------------------------------------------------------------------
 327 testcase tDataNavigatorSubmission
 328
 329     '/// nopen ew XML Form
 330     printlog "nopen ew XML Form"
 331
 332     FileOpen "FileName", "private:factory/swriter?slot=21053" , "FrameName", "_default", "SynchronMode" ,True
 333
 334     sleep(5)
 335
 336     call hToolbarSelect("FormDesignTools",true)
 337
 338     sleep(1)
 339
 340     '/// open the datanavigator
 341     printlog "open the datanavigator"
 342     Kontext "XFormsDataNavigator"
 343         if ( not XFormsDataNavigator.exists(2) ) then
 344             Kontext "FormDesignTools"
 345             XFormsDataNavigator.Click
 346         endif
 347         sleep(1)
 348
 349     '/// select the submission tabpage
 350     printlog "select the submission tabpage"
 351
 352     Kontext "XFormsDataNavigator"
 353         call DialogTest(XFormsDataNavigator)
 354         while ( XFormsDataNavigatorTabControl.getPageID() <> 10 )
 355             XFormsDataNavigatorTabControl.TypeKeys("<RIGHT>")
 356         wend
 357
 358     '/// click the add submission icon
 359     printlog "click the add submission icon"
 360
 361     Kontext "XFormToolbar"
 362         AddSubmission.Click
 363
 364     Kontext "XFormAddSubmission"
 365         call DialogTest(XFormAddSubmission)
 366
 367         'i35171 crash when click
 368         'SubmitBindingExpressionBtn.Click
 369
 370         '/// close the add submission dialog
 371         printlog "close the add submission dialog"
 372
 373         XFormAddSubmission.Close
 374
 375     sleep(10)
 376
 377     '/// close the xform data navigator
 378     printlog "close the xform data navigator"
 379
 380     Kontext "XFormsDataNavigator"
 381         XFormsDataNavigator.Close
 382         sleep(1)
 383
 384     '/// close th document
 385     printlog "close th document"
 386
 387     call hCloseDocument
 388
 389 endcase
 390 '-------------------------------------------------------------------------
 391 testcase tDataNavigatorBinding
 392
 393     '/// open new XML Form
 394     printlog "open new XML Form"
 395
 396     FileOpen "FileName", "private:factory/swriter?slot=21053" , "FrameName", "_default", "SynchronMode" ,True
 397
 398     sleep(5)
 399
 400     call hToolbarSelect("FormDesignTools",true)
 401
 402     sleep(1)
 403
 404     '/// open the datanavigator
 405     printlog "open the datanavigator"
 406     Kontext "XFormsDataNavigator"
 407         if ( not XFormsDataNavigator.exists(2) ) then
 408             Kontext "FormDesignTools"
 409             XFormsDataNavigator.Click
 410         endif
 411
 412         sleep(1)
 413
 414     '/// select the binding tabpage
 415     printlog "select the binding tabpage"
 416
 417     Kontext "XFormsDataNavigator"
 418         call DialogTest(XFormsDataNavigator)
 419         while ( XFormsDataNavigatorTabControl.getPageID() <> 11 )
 420             XFormsDataNavigatorTabControl.TypeKeys("<RIGHT>")
 421         wend
 422
 423     '/// click the add binding icon
 424     printlog "click the add binding icon"
 425
 426     Kontext "XFormToolbar"
 427         AddBinding.Click
 428
 429     Kontext "XFormAddItemDLG"
 430         call DialogTest(XFormAddItemDLG)
 431
 432         '/// close the add binding dialog
 433         printlog "close the add binding dialog"
 434
 435         XFormAddItemDLG.Close
 436
 437     sleep(10)
 438
 439     '/// close the xform data navigator
 440     printlog "close the xform data navigator"
 441
 442     Kontext "XFormsDataNavigator"
 443         XFormsDataNavigator.Close
 444         sleep(1)
 445
 446     '/// close th document
 447     printlog "close th document"
 448
 449     call hCloseDocument
 450
 451 endcase
 452 '-------------------------------------------------------------------------
 453
 454 testcase tPropertyBrowser
 455
 456     '/// new XML Form
 457
 458     FileOpen "FileName", "private:factory/swriter?slot=21053" , "FrameName", "_default", "SynchronMode" ,True
 459
 460     sleep(5)
 461
 462     call hToolbarSelect("FormControls",true)
 463
 464         Kontext "FormControls"
 465             Edit.Click
 466         sleep(1)
 467         '/// insert a text box
 468         printlog "insert a text box"
 469         call hDrawingWithSelection ( 40, 40, 50, 50 )
 470         sleep(2)
 471         Kontext "FormControls"
 472             ControlProperties.Click
 473         sleep (10)
 474
 475     Kontext "ControlPropertiesTabControl"
 476         ControlPropertiesTabControl.setPage TabDataControl
 477     Kontext "TabDataControl"
 478         XFormDataModel.select 1
 479         TabDataControl.TypeKeys "<RETURN>", true
 480
 481         XFormBindExpressionName.setText("testtool")
 482         TabDataControl.TypeKeys "<RETURN>", true
 483
 484     Kontext "ControlPropertiesDialog"
 485         ControlPropertiesDialog.Close
 486         sleep(1)
 487
 488     call hCloseDocument
 489
 490 endcase
 491