'encoding UTF-8 Do not remove or change this line!
'*************************************************************************
'
' Licensed to the Apache Software Foundation (ASF) under one
' or more contributor license agreements. See the NOTICE file
' distributed with this work for additional information
' regarding copyright ownership. The ASF licenses this file
' to you under the Apache License, Version 2.0 (the
' "License"); you may not use this file except in compliance
' with the License. You may obtain a copy of the License at
'
' http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing,
' software distributed under the License is distributed on an
' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
' KIND, either express or implied. See the License for the
' specific language governing permissions and limitations
' under the License.
'
'*************************************************************************
'*
'* short description : Fields - References Test
'*
'\***********************************************************************
sub w_fields3
Call tCrossReference
Call tSetReferenceNoSelection
Call tSetReferenceTextSelection
Call tInsertReferencePage
Call tInsertReferenceChapter
Call tInsertReferenceReference
Call tInsertReferenceAboveBelow
Call tInsertReferenceAsPageStyle
Call tInsertFootnote
Call tInsertEndnote
Call tInsertCaptionAbove
Call tInsertCaptionBelow
Call tInsertBookmarkPage
Call tInsertBookmarkChapter
Call tInsertBookmarkReference
Call tInsertBookmarkAboveBelow
Call tInsertBookmarkAsPageStyle
end sub
'-----------------------------------------------------------------
testcase tCrossReference
printlog "Insert/Cross-reference"
'/// Insert/Cross-reference
'/// Open a new document
Call hNewDocument
'/// Insert/Cross-reference
InsertReferenceField
Sleep 2
Kontext "TabReferenzen"
if TabReferenzen.Exists then
TabReferenzen.Close
else
Warnlog "Tabpage References should be as the actived tabpage!"
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tSetReferenceNoSelection
Dim sReference as String
Dim sTestFile as String
sReference = "myTest"
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
printlog "Set Reference - Cursor at any position"
'/// Set Reference - Cursor at any position
Call hNewDocument
'/// Open test file pageTest.sxw
hFileOpenLocally( sTestFile )
'/// Set curson to the 2nd page
Call wTypeKeys ""
Call fFindWord ("Sec")
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Set Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReference
Einfuegen.Click
TabReferenzen.Close
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
if Namefeld.GetText <> sReference then
Warnlog "Reference can't be set correctly!"
end if
TabReferenzen.Close
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tSetReferenceTextSelection
Dim sReference as String
sReference = "myTest"
printlog "Set Reference - Select some text"
'/// Set Reference - Select some text
'/// Open a new document
Call hNewDocument
'/// Input some text and select them
Call wTypeKeys "ABCD"
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Set Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReference
Einfuegen.Click
TabReferenzen.Close
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
if Namefeld.GetText <> sReference then
Warnlog "Reference can't be set correctly!"
end if
TabReferenzen.Close
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertReferencePage
Dim sReference as String
Dim sTestFile as String
sReference = "myTest"
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
printlog "Insert Reference - Page"
'/// Insert Reference - Page
Call hNewDocument
'/// Open test file pageTest.sxw
hFileOpenLocally( sTestFile )
'/// Set curson to the 2nd page
Call wTypeKeys ""
Call fFindWord ("Sec")
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Set Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReference
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys "" , 2
'/// Insert/Cross-reference , choose "Insert Reference" and "Page"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
Auswahl.Select sReference
Sleep 1
Formatliste.Select 1
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent( ) <> "2" then
Warnlog "Should get 2 , but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertReferenceChapter
Dim sReference as String
Dim sTestFile as String
sReference = "myTest"
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
printlog "Insert Reference - Chapter"
'/// Insert Reference - Chapter
Call hNewDocument
'/// Open test file chapterTest.sxw
hFileOpenLocally( sTestFile )
'/// Set curson to the 2nd line
Call wTypeKeys ""
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Set Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReference
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Call wTypeKeys "" , 2
'/// Insert/Cross-reference , choose "Insert Reference" and "Chapter"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
Auswahl.Select sReference
Sleep 1
Formatliste.Select 2
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent( ) <> "2" then
Warnlog "Should get 2 , but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertReferenceReference
Dim sReference as String
Dim sReferenceName as String
sReference = "est !"
sReferenceName = "myTest"
printlog "Insert Reference - Reference"
'/// Insert Reference - Reference
'/// Open a new document
Call hNewDocument
'/// Input some thing in the document and press return
Call wTypeKeys "This is a test !"
Call wTypeKeys ""
'/// Select some text
Call wTypeKeys ""
Call wTypeKeys "" , 5
'/// Insert/Cross-reference , choose "Set Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReferenceName
Einfuegen.Click
TabReferenzen.Close
'/// set focus to 2nd line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Insert Reference" and "Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
Auswahl.Select sReferenceName
Sleep 1
Formatliste.Select 3
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sReference then
Warnlog "Should get " & sReference & " but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertReferenceAboveBelow
Dim sReference as String
Dim sAbove as String
Dim sBelow as String
sReference = "myTest"
Select Case iSystemSprache
Case 01 : sAbove = "above" : sBelow = "below"
Case 35 : sAbove = "sur" : sBelow = "sous"
Case 39 : sAbove = "sopra" : sBelow = "sotto"
Case 49 : sAbove = "oben" : sBelow = "unten"
Case 46 : sAbove = "ovan" : sBelow = "under"
Case 55 : sAbove = "arriba" : sBelow = "abajo"
End Select
printlog "Insert Reference - Above/Below"
'/// Insert Reference - Above/Below
'/// Open a new document
Call hNewDocument
'/// Press Return first , then input some text in
'/// + the document , press return again
Call wTypeKeys ""
Call wTypeKeys "This is a test !"
Call wTypeKeys ""
'/// Insert a reference before "This is ..."
Call wTypeKeys ""
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReference
Einfuegen.Click
TabReferenzen.Close
'/// set focus to 3rd line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Insert Reference" and "above/below"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
Auswahl.Select sReference
Sleep 1
Formatliste.Select 4
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sAbove then 'Check systemlanguage / Office-Language - if other than 01 then ignore/QaErrorLog!
Warnlog "Should get " & sAbove & " but get " & fGetFieldContent()
end if
'/// set focus to 1st line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Insert Reference" and "above/below"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
Auswahl.Select sReference
Sleep 1
Formatliste.Select 4
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sBelow then
Warnlog "Should get " & sBelow & " but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertReferenceAsPageStyle
Dim sReference as String
Dim sTestSytle as String
sReference = "myTest"
sTestSytle = "A"
printlog "Insert Reference - As Page Style"
'/// Insert Reference - As Page Style
'/// Open a new document
Call hNewDocument
'/// Fomrat/page / page , set Format as "A , B , C ..."
Call fFormatPageWriter("TabSeite")
Numerierung.Select 1
TabSeite.OK
'/// Input some thing in the document , press return
Call wTypeKeys "This is a test !"
Call wTypeKeys ""
'/// Insert a reference before "This is ..."
Call wTypeKeys ""
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 1
Sleep 1
Namefeld.SetText sReference
Einfuegen.Click
TabReferenzen.Close
'/// set focus to 2nd line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Insert Reference" and "As Page Style"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 2
Sleep 1
Auswahl.Select sReference
Sleep 1
Formatliste.Select 5
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sTestSytle then
Warnlog "Should get " & sTestSytle & " but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFootnote
Dim sFootnote as String
sFootnote = "Test"
printlog "Insert Footnote"
'/// Insert Footnote
'/// Open a new document
Call hNewDocument
'/// Insert/Footnote
InsertFootnote
Kontext "FussnoteEinfuegen"
'check footnote
Fussnote.Check
Zeichen.Check
ZeichenText.SetText sFootnote
FussnoteEinfuegen.OK
'/// Check if footnote is inserted correctly
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sFootnote then
Warnlog "Should get " & sFootnote & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertEndnote
Dim sEndnote as String
sEndnote = "Test"
printlog "Insert Endnote"
'/// Insert Endnote
'/// Open a new document
Call hNewDocument
'/// Insert Endnote
InsertFootnote
Kontext "FussnoteEinfuegen"
'check endnote
Endnote.Check
Zeichen.Check
ZeichenText.SetText sEndnote
FussnoteEinfuegen.OK
'/// Check if footnote is inserted correctly
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sEndnote then
Warnlog "Should get " & sEndnote & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertCaptionAbove
Dim sCategory as String
Dim sCaption as String
Dim sSeparator as String
sCategory = "A" : sCaption = "B" : sSeparator = "*"
printlog "Insert Caption - Above"
'/// Insert Caption - Above
'/// Open a new document
Call hNewDocument
'/// Insert a frame
Call wInsertFrame
'/// Insert / Caption , set Category as A , set Caption as B , Set Seperator as *
InsertCaption
Kontext "Beschriftung"
Kategorie.SetText sCategory
Separator.SetText sSeparator
BeschriftungsText.SetText sCaption
Position.Select 1
Beschriftung.OK
Sleep 1
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
EditCopy
if fGetFieldContent() <> sCategory & " 1" & sSeparator & sCaption then
Warnlog "Should get " & sCategory & " 1" & sSeparator & sCaption & " but get " & fGetFieldContent()
end if
Call wTypeKeys ""
Call wTypeKeys ""
try
EditCopy
Warnlog "Should NOT get anything !"
catch
endcatch
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertCaptionBelow
Dim sCategory as String
Dim sCaption as String
Dim sSeparator as String
sCategory = "A" : sCaption = "B" : sSeparator = "*"
printlog "Insert Caption - Below"
'/// Insert Caption - Below
'/// Open a new document
Call hNewDocument
'/// Insert a frame
Call wInsertFrame
'/// Insert / Caption , set Category as A , set Caption as B,
'/// + select position as Above
InsertCaption
Kontext "Beschriftung"
Kategorie.SetText sCategory
Separator.SetText sSeparator
BeschriftungsText.SetText sCaption
Position.Select 2
Beschriftung.OK
Sleep 1
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
try
EditCopy
Warnlog "Should NOT get anything !"
catch
endcatch
Call wTypeKeys ""
Call wTypeKeys ""
EditCopy
if fGetFieldContent() <> sCategory & " 1" & sSeparator & sCaption then
Warnlog "Should get " & sCategory & " 1" & sSeparator & sCaption & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertBookmarkPage
Dim sBookmark as String
Dim sTestFile as String
sBookmark = "myTest"
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
printlog "Insert Bookmark - Page"
'/// Insert Bookmark - Page
Call hNewDocument
'/// Open test file pageTest.sxw
hFileOpenLocally( sTestFile )
'/// Set curson to the 2nd page
Call wTypeKeys ""
Call fFindWord ("Sec")
Call wTypeKeys ""
'/// Insert a bookmark
InsertBookmark
Kontext "TextmarkeEinfuegen"
Textmarken.SetText sBookmark
TextmarkeEinfuegen.OK
Call wTypeKeys ""
Call wTypeKeys "" , 2
'/// Insert/Cross-reference , choose "Bookmarks" and "Page"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 5
Sleep 1
Auswahl.Select sBookmark
Sleep 1
Formatliste.Select 1
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent( ) <> "2" then
Warnlog "Should get 2 , but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertBookmarkChapter
Dim sBookmark as String
Dim sTestFile as String
sBookmark = "myTest"
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
printlog "Insert Bookmark - Chapter"
'/// Insert Bookmark - Chapter
Call hNewDocument
'/// Open test file chapterTest.sxw
hFileOpenLocally( sTestFile )
'/// Set curson to the 2nd line
Call wTypeKeys ""
Call wTypeKeys ""
'/// Insert a bookmark
InsertBookmark
Kontext "TextmarkeEinfuegen"
Textmarken.SetText sBookmark
TextmarkeEinfuegen.OK
Call wTypeKeys ""
Call wTypeKeys "" , 2
'/// Insert/Cross-reference , choose "Bookmarks" and "Chapter"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 5
Sleep 1
Auswahl.Select sBookmark
Sleep 1
Formatliste.Select 2
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent( ) <> "2" then
Warnlog "Should get 2 , but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertBookmarkReference
Dim sReference as String
Dim sBookmark as String
sReference = "est !"
sBookmark = "myTest"
printlog "Insert Bookmkar - Reference"
'/// Insert Bookmkar - Reference
'/// Open a new document
Call hNewDocument
'/// Input some thing in the document and press return
Call wTypeKeys "This is a test !"
Call wTypeKeys ""
'/// Select some text
Call wTypeKeys ""
Call wTypeKeys "" , 5
'/// Insert a bookmark
InsertBookmark
Kontext "TextmarkeEinfuegen"
Textmarken.SetText sBookmark
TextmarkeEinfuegen.OK
'/// set focus to 2nd line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Bookmark" and "Reference"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 5
Sleep 1
Auswahl.Select sBookmark
Sleep 1
Formatliste.Select 3
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sReference then
Warnlog "Should get " & sReference & " but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertBookmarkAboveBelow
Dim sBookmark as String
Dim sAbove as String
Dim sBelow as String
sBookmark = "myTest"
Select Case iSystemSprache
Case 01 : sAbove = "above" : sBelow = "below"
Case 35 : sAbove = "sur" : sBelow = "sous"
Case 39 : sAbove = "sopra" : sBelow = "sotto"
Case 49 : sAbove = "oben" : sBelow = "unten"
Case 46 : sAbove = "ovan" : sBelow = "under"
Case 55 : sAbove = "arriba" : sBelow = "abajo"
End Select
printlog "Insert Bookmark - Above/Below"
'/// Insert Bookmark - Above/Below
'/// Open a new document
Call hNewDocument
'/// Press Return first , then input some thing in
'/// + the document , press return again
Call wTypeKeys ""
Call wTypeKeys "This is a test !"
Call wTypeKeys ""
'/// Insert a Bookmark before "This is ..."
Call wTypeKeys ""
InsertBookmark
Kontext "TextmarkeEinfuegen"
Textmarken.SetText sBookmark
TextmarkeEinfuegen.OK
'/// set focus to 3rd line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Bookmarks" and "above/below"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 5
Sleep 1
Auswahl.Select sBookmark
Sleep 1
Formatliste.Select 4
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sAbove then
Warnlog "Should get " & sAbove & " but get " & fGetFieldContent()
end if
'/// set focus to 1st line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Bookmark" and "above/below"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 5
Sleep 1
Auswahl.Select sBookmark
Sleep 1
Formatliste.Select 4
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sBelow then
Warnlog "Should get " & sBelow & " but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertBookmarkAsPageStyle
Dim sBookmark as String
Dim sTestSytle as String
sBookmark = "myTest"
sTestSytle = "A"
printlog "Insert Bookmark - As Page Style"
'/// Insert Bookmark - As Page Style
'/// Open a new document
Call hNewDocument
'/// Fomrat/page / page , set Format as "A , B , C ..."
Call fFormatPageWriter("TabSeite")
Numerierung.Select 1
TabSeite.OK
'/// Input some thing in the document , press return
Call wTypeKeys "This is a test !"
Call wTypeKeys ""
'/// Insert a Bookmark before "This is ..."
Call wTypeKeys ""
InsertBookmark
Kontext "TextmarkeEinfuegen"
Textmarken.SetText sBookmark
TextmarkeEinfuegen.OK
'/// set focus to 2nd line
Call wTypeKeys ""
'/// Insert/Cross-reference , choose "Bookmark" and "As Page Style"
InsertReferenceField
Kontext "TabReferenzen"
Feldtyp.Select 5
Sleep 1
Auswahl.Select sBookmark
Sleep 1
Formatliste.Select 5
Sleep 1
Einfuegen.Click
TabReferenzen.Close
Call wTypeKeys ""
Sleep 2
Call wTypeKeys ""
if fGetFieldContent() <> sTestSytle then
Warnlog "Should get " & sTestSytle & " but get " & fGetFieldContent()
end if
'/// Close the document
Call hCloseDocument
endcase
'-----------------------------------------------------------------