'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 : Writer Undo-History - Test ( Typing, Overwrite, Replace, Delete, Sort, Convert To table)
'*
'\***********************************************************************

sub w_undo_history_1

    ' a < 20 characters long string
    Call tUndoOverwrite		' Typing & Overwrite
    Call tUndoFindAndReplace		' Replace
    Call tUndoReplaceAll		' Replace all & Delete
    Call tUndoSort		' Sort
    Call tUndoTableConvert		' Text convert to table

end sub

testcase tUndoOverwrite

    '/// new document
    Call hNewDocument
    '/// <U><B>CHECK: Typing</B></U>
    printlog "- TYPING"
    '/// write a < 20 characters long string: If20CharactersThere
    Call wTypeKeys "If20CharactersThere"
    '/// string in Undo list has to be: Typing: If20CharactersThere
    Call CheckUndoStringInUndoList ( 1, "'If20Char...rsThere'" )

    '/// <U><B>CHECK: Overwrite</B></U>
    printlog "- OVERWRITE"
    '/// press 'Home' key
    Call wTypeKeys "<Home>"
    '/// press 'Ins' key
    Call wTypeKeys "<Insert>"
    '/// write a < 20 characters long string: IsThatDifferent4You
    Call wTypeKeys "IsThatDifferent4You"
    '/// string in Undo list has to be: Overwrite: IsThatDifferent4You
    Call CheckUndoStringInUndoList ( 2, "'IsThatDifferent4You'" )

    '/// CloseDocument
    Call hCloseDocument
endcase

testcase tUndoFindAndReplace

    '/// new Document
    '/// <U><B>CHECK: Replace</B></U>
    printlog "- REPLACE"
    Call hNewDocument
    '/// write a < 20 characters long string: If20CharactersThere
    Call wTypeKeys "If20CharactersThere"
    '/// Select text
    Call wTypeKeys "<Shift Home>"
    '/// Edit / Find and Replace
    EditSearchAndReplace
    Kontext "FindAndReplace"
    '/// Type 'ThisReplacementText' in 'Replace with' field
    ReplaceWith.Settext "ThisReplacementText"
    '/// Choose Button 'Replace' and close dialog
    ReplaceBtn.Click
    wait 500
    Kontext "Active"
    if Active.Exists then
        if Active.GetRT = 304 then
            try
                Active.Yes
            catch
                Active.Ok
            endcatch
        end if
    end if
    Kontext "FindAndReplace"
    FindAndReplace.Close
    Kontext "DocumentWriter"
    '/// string in Undo list has to be: Replace: 'IsThatDifferent4You' -> 'ThisReplacementText'
    Call CheckUndoStringInUndoList ( 3, "'If20CharactersThere' -> 'ThisReplacementText'" )

    '/// Close document
    Call hCloseDocument
endcase


testcase tUndoReplaceAll
    Dim CheckString as string

    '///  new document
    '/// <U><B>CHECK: Replace all</B></U>
    printlog "- REPLACE ALL"
    Call hNewDocument
    '/// Insert the dummy text and point cursor at the top of the document
    Call wBlindtextEinfuegen
    Call wTypeKeys "<Mod1 Home>"
    '/// Edit / Find and Replace
    EditSearchAndReplace
    Kontext "FindAndReplace"
    '/// Type 'and' in 'Search for' field
    SearchFor.Settext "and"
    '/// Type 'ThisReplacementText' in 'Replace with' field
    ReplaceWith.Settext "###"
    '/// Choose Button 'Replace' and close dialog
    ReplaceAll.Click
    wait 500
    Kontext "Active"
    if Active.Exists then
        if Active.GetRT = 304 then Active.Ok
    end if
    Kontext "FindAndReplace"
    FindAndReplace.Close

    Kontext "DocumentWriter"
    '/// string in Undo list has to be: Replace: '14 occurences of and'
    Call CheckUndoStringInUndoList ( 5, "14 occurences of 'and'" )

    '/// <U><B>CHECK: Delete</B></U>
    '///  Backspace 4 times to delete characters
    Call wTypeKeys "<Backspace>", 4
    '/// string in Undo list has to be: Delete: '###'
    printlog "- DELETE"
    Call CheckUndoStringInUndoList ( 11, "' ###'" )

    '/// Close document
    Call hCloseDocument
endcase


testcase tUndoSort

    '/// new document
    Call hNewDocument
    '/// CHECK: Text sort
    printlog "- TEXT SORT"
    '/// Enter some text like "This<Return>is a<Return>test<Return>"
    Call wTypeKeys "This"
    Call wTypeKeys "<Return>"
    Call wTypeKeys "is a"
    Call wTypeKeys "<Return>"
    Call wTypeKeys "test"
    Call wTypeKeys "<Return>"
    '/// Select all and Tools -> Sort
    Call wTypeKeys "<Mod1 A>"
    ToolsSort
    Kontext "Sortieren"
    Sortieren.Ok

    '/// string in Undo list has to be: "Sort text"
    Call CheckUndoStringInUndoList ( 6, "Sort text" )

    '/// Close document
    Call hCloseDocument
endcase


testcase tUndoTableConvert

    '/// new document
    Call hNewDocument
    '/// CHECK: Text convert to table
    printlog "TEXT CONVERT TO TABLE"
    '/// Enter some text like "This<Return>is a<Return>test<Return>"
    Call wTypeKeys "This"
    Call wTypeKeys "<Return>"
    Call wTypeKeys "is a"
    Call wTypeKeys "<Return>"
    Call wTypeKeys "test"
    Call wTypeKeys "<Return>"
    '/// Select all and Tools - Text <> Table
    Call wTypeKeys "<Mod1 A>"
    ToolsTextInTable
    Kontext "TextInTabelleUmwandeln"
    Absatz.Check
    TextInTabelleUmwandeln.Ok
    '/// string in Undo list has to be: "Convert text -> table"
    Call CheckUndoStringInUndoList ( 7, "Convert text -> table" )

    '/// Close document
    Call hCloseDocument
endcase