office-gobmx/testautomation/graphics/optional/includes/global/g_imagemap.inc

'encoding UTF-8  Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org.  If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* Owner : wolfram.garten@oracle.com
'*
'* short description :
'*
'**************************************************************************************
' #1 tEditImageMap
' #1 tEditImageMapProperties
'\*************************************************************************************

testcase tEditImageMap
    printlog "new document"
   Call  hNewDocument
   printlog "edit image map"
   EditImageMap                  
   Kontext "ImageMapEditor"
   sleep 1
   if ImageMapEditor.Exists (2) then         
   printlog "ImageMap editor exists"
        printlog "test dialog controls"
      DialogTest ( ImageMapEditor )
      try
        ImageMapEditor.Close
        Printlog "ImageMap closed"
      catch
        EditImageMap
        Printlog "ImageMap closed using the edit-menu entry"
      endcatch
   else
      sleep 2
      DialogTest ( ImageMapEditor )
      try
        ImageMapEditor.Close
        Printlog "ImageMap closed"
      catch
        EditImageMap
        Printlog "ImageMap closed using the edit-menu entry"
      endcatch
   end if
   printlog "close document"
   Call  hCloseDocument             
   
endcase 'tEditImageMap

'-------------------------------------------------------------------------------

testcase tEditImageMapProperties

    qaerrorlog "test not yet ready."
    goto endsub
    printlog "new document"
    Call  hNewDocument
    printlog "Insert a graphic and select it"
    InsertGraphicsFromFile               
    sleep (1)
    Kontext "GrafikEinfuegenDlg"
    sleep (2)
    Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\SaveAsPicture\SaveAsPicture.pcx")
    sleep (2)
    Oeffnen.Click
    sleep (2)
    printlog "Open the image map dialog"
    EditImageMap
    Kontext "ImageMapEditor"
    sleep (1)
    if ImageMapEditor.Exists (2) then
        printlog "ImageMap editor exists"
    else
        warnlog "Something is wrong, the Imagemap didn't show up."
    end if
    printlog "Insert an 'image map' object"
    Ellipse.Click
    Dokument.MouseDown 50,50
    Dokument.MouseMove 50,50,10,10
    Dokument.MouseUp 10,10

    printlog "Click on the properties icon to open up the properties for the Object"
    Eigenschaften.Click
    kontext "ImageMapHyperlink"
    sleep (1)
    if ImageMapHyperlink.Exists (2) then
        printlog "ImageMapHyperlink (properties) editor exists"
    else
        warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
    end if
    printlog "Write some text in each field"
    URL.SetText "http://www.cnn.com"
    Frame.SetText "http://www.framed.com"
    Objectname.SetText "This is a strange name: Huckillerry Bohaahw"
    Alternativetext.SetText "Alternative, the only way to fly..."
    Description.SetText "Just a Foney-text... or whatever it's called."
    printlog "Close the Properties-Dialogue with Ok"
    ImageMapHyperlink.Ok
    kontext "ImageMapEditor"
    Zuweisen.Click
    sleep (1)
    ImageMapEditor.Close

    if gApplication = "DRAW" then
        kontext "DocumentDraw"
    else
        kontext "DocumentImpress"
    end if

    EditImageMap
    printlog "Check if what we wrote in the Properites-Dialogue still is visible."
    Kontext "ImageMapEditor"
    sleep (1)
    if ImageMapEditor.Exists (2) then   
        printlog "ImageMap editor exists"
    else
        warnlog "Something is wrong, the ImageMap Editor didn't show up."
    end if

    Dokument.TypeKeys "<TAB>"
    sleep (1)
    printlog "Click on the properties icon to open up the properties for the Object"
    Eigenschaften.Click                                 
    kontext "ImageMapHyperlink"
    sleep (1)
    if ImageMapHyperlink.Exists (2) then
        printlog "ImageMapHyperlink (properties) editor exists"
    else
        warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
    end if

    printlog "Check if the entries we set before has remained the same, with one exception: cnn.com should now have a slash after it. "
    if URL.GetText <> "http://www.cnn.com/" then warnlog "URL should have been: http://www.cnn.com/ . But was " + URL.GetText
'        if Frame.GetSelText <> "http://www.framed.com" then warnlog "Frame should have been: http://www.framed.com. But was " + Frame.GetSelText
    if Objectname.GetText <> "This is a strange name: Huckillerry Bohaahw"  then warnlog "Objectname. should have been: This is a strange name: Huckillerry Bohaahw. But was " + Objectname.GetText
    if Alternativetext.GetText <> "Alternative, the only way to fly..." then warnlog "Alternativetext should have been: . But was " + Alternativetext.GetText
    if Description.GetText <> "Just a Foney-text... or whatever it's called." then warnlog "Description. should have been: . But was " + Description.GetText
    printlog "Close the Properties-Dialogue"
    ImageMapHyperlink.Ok
    sleep (1)

    kontext "ImageMapEditor"
    Zuweisen.Click
    sleep (1)
    ImageMapEditor.Close
    sleep (1)
    printlog "close document"
    Call  hCloseDocument
   
endcase 'tEditImageMapProperties
'------------------------------------------------------------------------------------------------------------------------------------