use base "installedtest";
use strict;
use testapi;
use utils;

# This part tests that a piece of test can be found, that highlighting can be removed again,
# that search and replace can be used, that misspelt words can be highlighted, and
# that spelling control can be used to find and replace spelling mistakes.

sub run {
    my $self = shift;
    # Search the text for specific string.
    # At first, Wait 1 second for the test to get ready, as the control character was not properly recognized
    # when the test started immediately after the rollback.
    sleep 5;
    # Click into the application to get focus.
    assert_and_click("kwrite_line_word");
    # Invoke the Find dialogue
    send_key "ctrl-f";
    wait_still_screen(2);
    # Type string
    type_very_safely "sweetest";
    # Confirm
    send_key "ret";
    sleep 2;
    send_key "esc";
    # Check that correct word is highlighted.
    assert_screen "kwrite_found_text";

    # This tests that a highlight can be removed from a search result.
    # Use combo for removing the highlighting.
    send_key "ctrl-end";
    # Check that the highlighting was removed.
    assert_screen "kwrite_text_added";

    # We will continue to search and replace a piece of text.
    # Open Switch and replace
    send_key "ctrl-r";
    sleep 1;
    # Type string.
    type_very_safely "Gale";
    # Press enter to find that word.
    send_key("ret");
    sleep(1);
    send_key("tab");
    # Type replacement string. We purposefully produce a typo.
    type_very_safely "Wiend";
    # Press enter to replace the string.
    send_key("ret");
    # Get rid of the screen.
    send_key("esc");
    # Move the cursor away
    send_key("ctrl-end");
    sleep 1;
    # Check that the string was replaced.
    assert_screen "kwrite_text_replaced";
}

sub test_flags {
    return {always_rollback => 1};
}

1;

# vim: set sw=4 et: