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

# This script tests if Software can browse through lists of applications.

# As we cannot browse through all of the applications, we will only
# browse through three categories and pick one application from
# the editor's choice list.
# Hopefully, the application will be listed as we cannot move
# through the list except with scrolling the wheel, which is
# currently not supported by openQA.

sub run {
    my $self = shift;
    
    # Open the Create category.
    assert_and_click("software_category_create");
    assert_and_click("software_application_amarok");
    check_application_information("amarok");
    # Come back to the main screen
    while (! check_screen("gnome_search_button")) {
        assert_and_click("gnome_back_button");
    }

    # Open the Play category.
    assert_and_click("software_category_work");
    assert_and_click("software_application_clocks");
    check_application_information("clocks");
    # Come back to the main screen
    while (! check_screen("gnome_search_button")) {
        assert_and_click("gnome_back_button");
    }

    # Open the Play category.
    assert_and_click("software_category_play");
    if (check_screen("software_application_chess")) {
        click_lastmatch();
        check_application_information("chess");
    }
    else {
        record_soft_failure("The application was not listed on the first screen.");
    }
}

sub test_flags {
    # When finished, rollback to milestone
    return {always_rollback => 1};
}

1;

# vim: set sw=4 et: