testautomation/xml/optional/includes/docbook_001.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: docbook_001.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-11 07:30:56 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Library for DocBook XML Im-/Export Test
  37 '*
  38 '\***********************************************************************
  39
  40 sub tDocBookXMLtestdocs
  41     Dim sSourceDocuments(500) as string
  42     Dim i as integer, iNumberOfDocuments as integer
  43
  44     printlog "Checking under Tools -> XML Filter Settings that the DocBook XSLT Filter has been installed."
  45     printlog "If not install them from ../global/input/xslt_stylesheets/docbook_xhtml.jar"
  46     if fInitialXMLSetting("docbook") = FALSE then
  47         warnlog "The DocBook XSLT filter has not been installed!"
  48         warnlog "Aborting!"
  49         exit sub
  50     end if
  51     'Calculating how many documents are in that directory (max. 500)
  52     if hDirectoryExists(sSourcePath) then
  53         'Get the file list and put it in a list (max. 500 per directory!)
  54         call GetAllFileList(sSourcePath, "*.xml" , sSourceDocuments())
  55         iNumberOfDocuments = ListCount(sSourceDocuments())
  56         printlog iNumberOfDocuments & " DocBook XML files found in " & sSourcePath & "."
  57         if iNumberOfDocuments > 0 then
  58             for i = 2 to iNumberOfDocuments
  59                 'Call the testcase with each document.
  60                 call fLoadDocBookXMLAndSaveIt(sSourceDocuments(i))
  61             next i
  62         else
  63             warnlog "Path " & sSourcePath & " contains no documents!"
  64         end if
  65     else
  66         warnlog "Path " & sSourcePath & " has not been found!"
  67     end if
  68 end sub
  69
  70 '-------------------------------------------------------------------------
  71
  72 testcase fLoadDocBookXMLAndSaveIt(sSourceDocument as string)
  73 Dim sExpFileName as string
  74 Dim sFileName as string
  75
  76 sFileName = DateiExtract(sSourceDocument)
  77 sExpFileName = sDestinationPath & sFileName
  78
  79     printlog "Load test document " & sFileName & "."
  80     call hFileOpen (sSourceDocument)
  81     printlog "If the document can not be loaded as XML file (wrong Doctype) it will be loaded as ASCII."
  82     Kontext "AsciiFilterOptionen"
  83     if AsciiFilterOptionen.Exists(2) then
  84         AsciiFilterOptionen.Cancel
  85         QAErrorLog "The DTD may be does not match. Work around is to load it as ASCII file."
  86         Goto Endsub
  87     end if
  88     printlog "If the Filter Selection dialog occours the  try to select the 'DocBook' entry."
  89     Kontext "FilterAuswahl"
  90     if FilterAuswahl.Exists(2) then
  91         QAErrorLog "Filter selection dialog occoured!"
  92         Filter.Select "DocBook"
  93         FilterAuswahl.OK
  94     end if
  95     'If there is no document being loaded only the 'backing window' would be visible
  96     if GetDocumentCount = 0 then
  97         warnlog "Document " & sFileName & " has not been loaded! It won't be exported! verify manually!"
  98     else
  99         printlog "Save the test document as " & sExpFileName
 100         if hFileSaveAsWithFilterKill(sExpFileName, "DocBook File") = TRUE then
 101             printlog "Close the document also if there is a verification dialog."
 102             call hCloseDocument
 103             printlog "Check the well formness of the saved document."
 104             if XMLWellformed (sExpFileName) = FALSE then
 105                 warnlog "XML-file " & sExpFileName & " not well formed or does not exist!"
 106             else
 107                 printlog "Open the exported document."
 108                 call hFileOpen (sExpFileName)
 109                 Kontext "FilterAuswahl"
 110                 if FilterAuswahl.Exists(2) then
 111                     QAErrorLog "Filter selection dialog occoured!"
 112                     Filter.Select "DocBook"
 113                     FilterAuswahl.OK
 114                 end if
 115                 if GetDocumentCount = 0 then
 116                     warnlog "EXPORTED document " & sExpFileName & " has not been loaded! It won't be exported! verify manually!"
 117                 else
 118                     printlog "Close the exported document."
 119                     call hCloseDocument
 120                 end if
 121             end if
 122         else
 123             warnlog "Exporting XML file (" & sExpFileName & ") failed!"
 124         end if
 125     end if
 126 endcase
 127