43 lines
735 B
Perl
43 lines
735 B
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This test will test the Tour application.
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
|
|
# Start the Application
|
|
menu_launch_type("tour");
|
|
|
|
assert_screen("tour_start");
|
|
send_key("right");
|
|
|
|
assert_screen("tour_overview");
|
|
send_key("right");
|
|
|
|
assert_screen("tour_search");
|
|
send_key("right");
|
|
|
|
assert_screen("tour_workspaces");
|
|
send_key("right");
|
|
|
|
assert_screen("tour_updown");
|
|
send_key("right");
|
|
|
|
assert_screen("tour_leftright");
|
|
send_key("right");
|
|
|
|
assert_screen("tour_niceday");
|
|
}
|
|
|
|
sub test_flags {
|
|
# If this test fails, there is no need to continue.
|
|
return {fatal => 1, milestone => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|