75 lines
1.8 KiB
Perl
75 lines
1.8 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This part tests that different color varieties can be used.
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
|
|
# Check that dark style can be used.
|
|
assert_and_click("gnome_burger_menu");
|
|
assert_and_click("gte_change_to_dark");
|
|
wait_still_screen(2);
|
|
send_key("esc");
|
|
assert_screen("gte_dark_style_used");
|
|
|
|
|
|
# Check that color varieties can be used.
|
|
# We will only test several of the varieties
|
|
assert_and_click("gnome_burger_menu");
|
|
assert_and_click("gte_preferences_submenu");
|
|
wait_still_screen(2);
|
|
|
|
if (get_var("CANNED")) {
|
|
# This is for the older version of g-t-e in Silverblue
|
|
# Click on Adwaita;
|
|
assert_and_click("gte_select_adwaita");
|
|
assert_screen("gte_adwaita_used");
|
|
# Switch to dark Adwaita
|
|
send_key("tab");
|
|
sleep 1;
|
|
send_key("ret");
|
|
assert_screen("gte_darkadwaita_used");
|
|
# Switch to Classic
|
|
send_key("tab");
|
|
sleep 1;
|
|
send_key("ret");
|
|
assert_screen("gte_classic_used");
|
|
# Switch to DarkClassic
|
|
send_key("tab");
|
|
sleep 1;
|
|
send_key("ret");
|
|
assert_screen("gte_darkclassic_used");
|
|
# Switch to Cobalt
|
|
send_key("tab");
|
|
sleep 1;
|
|
send_key("ret");
|
|
assert_screen("gte_cobalt_used");
|
|
}
|
|
else {
|
|
# This is for newer version in F36+ RPMs)
|
|
# Use A3 pattern
|
|
assert_and_click("gte-a3-select");
|
|
assert_screen("gte-a3-selected");
|
|
|
|
# Use B2 pattern
|
|
assert_and_click("gte-b2-select");
|
|
assert_screen("gte-b2-selected");
|
|
|
|
# Use A3 pattern
|
|
assert_and_click("gte-b4-select");
|
|
assert_screen("gte-b4-selected");
|
|
}
|
|
}
|
|
|
|
|
|
sub test_flags {
|
|
return {always_rollback => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|