testautomation/dbaccess/optional/includes/wiz_ReportWizard.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: wiz_ReportWizard.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:42 $
  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 : Report Wizard Test
  37 '*
  38 '\***********************************************************************
  39 sub wiz_ReportWizard
  40
  41     call tNewReport
  42
  43 end sub
  44 '-------------------------------------------------------------------------
  45 testcase tNewReport
  46
  47     qaerrorlog "#i92543# crash when closing report"
  48     goto endsub
  49
  50     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
  51
  52     Kontext "DATABASE"
  53
  54     ViewReports
  55
  56     Database.MouseDown(50,50)
  57     Database.MouseUp(50,50)
  58     sleep(1)
  59
  60     StartReportWizard
  61
  62     sleep(5)
  63
  64     Kontext "ReportWizard"
  65         sleep(1)
  66         Tables.select 1
  67         '/// add the third field
  68         printlog "add the third field"
  69         AvailableFields.select 1
  70         sleep(1)
  71         Add.click
  72         sleep(1)
  73         '/// click NEXT
  74         printlog "click NEXT"
  75         NextBtn.click
  76         sleep(1)
  77         '/// click NEXT
  78         printlog "click NEXT"
  79         NextBtn.click
  80         sleep(1)
  81         '/// click NEXT
  82         printlog "click NEXT"
  83         NextBtn.click
  84         sleep(1)
  85         '/// click NEXT
  86         printlog "click NEXT"
  87         NextBtn.click
  88         sleep(1)
  89         '/// click Finish
  90         printlog "click Finish"
  91         FinishBtn.Click
  92     sleep(10)
  93
  94     Kontext "DocumentWriter"
  95         DocumentWriter.TypeKeys "<MOD1 SHIFT I>" ,  true ' EDIT / SELECT TEXT
  96         DocumentWriter.TypeKeys "<DOWN>" ,2,  true
  97         DocumentWriter.TypeKeys "<SHIFT DOWN>" , true
  98         DocumentWriter.TypeKeys "<MOD1 C>" , true
  99
 100         dim s as String
 101         s = getClipboard
 102
 103     if left(s,10) = "Identifier" then
 104         printlog "Report Table Header contains " + left(s,10) + ". -> OK"
 105     else
 106         warnlog "Report Table Header contains " + left(s,10) + " instead of IDENTIFIER"
 107     endif
 108
 109     'for windows a "new Line" are two characters
 110     'so I need to start at char 13 and not on 12
 111     dim iFromCharacter as integer
 112     if gPlatGroup = "w95" then
 113         iFromCharacter = 13
 114     else
 115         iFromCharacter = 12
 116     endif
 117
 118     if mid(s,iFromCharacter,5) = "GUR00" OR mid(s,iFromCharacter,5) = "BOR04" then
 119         printlog "1. record is " + mid(s,iFromCharacter,5) + ". -> OK"
 120     else
 121         warnlog  "1. record is " + mid(s,iFromCharacter,5) + " instead of GUR00 OR BOR04"
 122     endif
 123
 124     call fCloseForm ' should be changed to a CloseReport
 125
 126     call fCloseDatabase
 127
 128 endcase
 129