testautomation/dbaccess/optional/includes/db_Text.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: db_Text.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 : test for a text database
  37 '*
  38 '\***********************************************************************
  39
  40 sub db_Text(sFilename as string)
  41
  42     call tCountCharacterSet(sFilename)
  43     call tOpenUTF8File(sFilename)
  44
  45 end sub
  46 '-------------------------------------------------------------------------
  47 testcase tCountCharacterSet(sFilename as string)
  48
  49         '/// open the text database create in the bas file
  50     call fOpendatabase(sFileName)
  51
  52         '/// open the properties dialog of the open database
  53     printlog "open the properties dialog of the open database"
  54     Kontext "DATABASE"
  55         Database.UseMenu
  56         hMenuSelectNr(2)
  57         hMenuSelectNr(15)
  58         hMenuSelectNr(1)
  59
  60     '/// switch to the Text Tabpage
  61     printlog "switch to the Text Tabpage"
  62     Kontext "DatabaseProperties"
  63         TabControl.setPage TabTextBase
  64
  65     '/// check if there are 54 character sets
  66     printlog "check if there are 54 character sets"
  67     Kontext "TabTextBase"
  68         dim i as integer
  69         i = CharSet.getItemCount()
  70         if i <> 54 then
  71             warnlog "The count of the charsets is wrong. It have to be 54 but it is:" + i
  72         else
  73             printlog "The count of the charsets is correct.There are 54 character sets."
  74         endif
  75     '/// close the properties dialog with OK
  76     printlog "close the properties dialog with OK"
  77     Kontext "DatabaseProperties"
  78         DatabaseProperties.OK
  79
  80     '/// close the database
  81     printlog "close the database"
  82     call fCloseDatabase()
  83
  84 endcase
  85 '-------------------------------------------------------------------------
  86 testcase tOpenUTF8File(sFilename as string)
  87
  88     '/// copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_database.txt" to your local wotk directory
  89     printlog "copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_database.txt to your local wotk directory"
  90     app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/text_datasource/text_database.txt"),gOfficePath + ConvertPath("user/work/text_database.txt")
  91
  92     '/// open the text database create in the bas file
  93     call fOpendatabase(sFileName)
  94
  95     '/// open the properties dialog of the open database
  96     printlog "open the properties dialog of the open database"
  97     Kontext "DATABASE"
  98         Database.UseMenu
  99         hMenuSelectNr(2)
 100         hMenuSelectNr(15)
 101         hMenuSelectNr(1)
 102
 103     '/// switch to the Text Tabpage
 104     printlog "switch to the Text Tabpage"
 105     Kontext "DatabaseProperties"
 106         TabControl.setPage TabTextBase
 107
 108     '/// set UTF-8 as character set
 109     printlog "set UTF-8 as character set"
 110     Kontext "TabTextBase"
 111         dim iCount as integer
 112         dim i as integer
 113         iCount = CharSet.getItemCount()
 114         for i = 1 to iCount
 115             CharSet.select(i)
 116             if (Instr(CharSet.getSelText(),"(UTF-8)") <> 0 ) then
 117                 i = iCount
 118             endif
 119         next
 120
 121     '/// close the properties dialog with OK
 122     printlog "close the properties dialog with OK"
 123     Kontext "DatabaseProperties"
 124         DatabaseProperties.OK
 125
 126     '/// save and close the database
 127     call fCloseDatabase(true)
 128
 129     '/// open the text database again
 130     call fOpendatabase(sFileName)
 131
 132     '/// open the table text_database
 133     printlog "open the table text_Database"
 134     call fOpenTable("text_database")
 135
 136     '/// check if the first row contains the string öäü
 137     printlog "check if the first row contains the string öäü"
 138     kontext "TableView"
 139         TableView.TypeKeys("<MOD1 C>",true)
 140         if ( getClipboard = "1;öäü") then
 141                 printlog "The table is load with an UTF-8 locale -> OK"
 142         else
 143                 warnlog "The table is not load ed with an UTF-8 locale -> FAILED"
 144                 endif
 145
 146     '/// close the table
 147     printlog "close the table"
 148     call fCloseTableView
 149
 150     '/// close the database
 151     printlog "close the database"
 152     call fCloseDatabase()
 153
 154 endcase