mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-09-21 14:37:23 +00:00
9f6113d581
Let's not trust hitting enter in just one place but hit the save button like we do elsewhere (this avoids an awkward issue where hitting enter doesn't work on the new nautilus version). Also, let's consolidate the needles under a sensible tag name. Signed-off-by: Adam Williamson <awilliam@redhat.com>
67 lines
1.9 KiB
Perl
67 lines
1.9 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This part tests that we can create a new file that
|
|
# opens in a new panel, that we can add text, display
|
|
# text statistics and highlight code and save the file.
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
|
|
# First we will use key combo to open the new document window.
|
|
sleep 5;
|
|
# Click into the text to regain focus.
|
|
assert_and_click("gte_line_word");
|
|
send_key("ctrl-t");
|
|
assert_screen "gte_new_document_opened";
|
|
|
|
# Now let us produce some text
|
|
type_very_safely "# My shopping list.\n\n";
|
|
type_very_safely "* **Milk**\n* *Apples*\n* `Bananas`\n* Bread\n* Butter\n* Cheese\n\n";
|
|
type_very_safely "Happy shopping.";
|
|
|
|
# Switch on Markdown Highlighting.
|
|
assert_and_click("gte_settings_button");
|
|
assert_and_click "gte_select_highlighting";
|
|
wait_still_screen(2);
|
|
type_very_safely "markdown";
|
|
send_key "ret";
|
|
assert_and_click("gte_window_dismiss");
|
|
assert_screen "gte_code_highlighted";
|
|
|
|
# Save the newly created file.
|
|
send_key("ctrl-s");
|
|
wait_still_screen(3);
|
|
# if we hit the nautilus save-as screen, we have to click to edit
|
|
# the filename
|
|
click_lastmatch if (check_screen "nautilus_save_filename");
|
|
# select the entire prefilled name (including extension) to overwrite it
|
|
send_key("ctrl-a");
|
|
wait_still_screen(3);
|
|
type_very_safely "list.md";
|
|
assert_and_click("gnome_button_save");
|
|
assert_screen("gte_file_saved");
|
|
# Check that the file has been created
|
|
$self->root_console(tty => 3);
|
|
# The test started to fail on Silverblue
|
|
# because the target directory changed.
|
|
if (get_var("SUBVARIANT") eq "Silverblue") {
|
|
assert_script_run("ls /home/test/Documents/list.md");
|
|
}
|
|
else {
|
|
assert_script_run("ls /home/test/list.md");
|
|
}
|
|
desktop_vt();
|
|
}
|
|
|
|
|
|
sub test_flags {
|
|
return {fatal => 1, milestone => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|