57 lines
1.2 KiB
Perl
57 lines
1.2 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);
|
|
# 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");
|
|
}
|
|
|
|
|
|
sub test_flags {
|
|
return { always_rollback => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|