os-autoinst-distri-rocky-mi.../tests/_software_selection.pm

use base "anacondatest";
use strict;
use testapi;

sub run {
    my $self = shift;
    # Anaconda hub
    assert_screen "anaconda_main_hub", 300;    #

    # Select package set.
    # If 'default' is specified, skip selection, but verify correct default
    my $packageset = get_var('PACKAGE_SET', 'default');
    if ($packageset eq 'default') {
        $self->root_console;
        my $env = "graphical-server-environment";
        if (get_var('FLAVOR') eq 'minimal-iso') {
            $env = "server-product-environment";
        }

        assert_script_run "egrep 'selected environment:' /tmp/anaconda.log /tmp/packaging.log | tail -1 | grep $env";
        send_key "ctrl-alt-f6";
        assert_screen "anaconda_main_hub", 30;
        return;
    }

    assert_and_click "anaconda_main_hub_select_packages";

    # Focus on "base environment" list
    send_key "tab";
    wait_still_screen 1;
    send_key "tab";
    wait_still_screen 1;

    # In Rocky, graphical-server starts out selected in the DVD ISO so if that's
    # what we're looking for we're done
    if (!check_screen("anaconda_" . $packageset . "_selected", 1)) {
        send_key_until_needlematch("anaconda_" . $packageset . "_highlighted", "down", 20);
        send_key "spc";
    }

    # check that desired environment is selected
    assert_screen "anaconda_" . $packageset . "_selected";
    assert_and_click "anaconda_spoke_done";

    # Anaconda hub
    assert_screen "anaconda_main_hub", 50;    #

}

sub test_flags {
    return {fatal => 1};
}

1;

# vim: set sw=4 et:
add comments and documentation Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D481 2015-08-05 06:23:59 +00:00			`use base "anacondatest";`
add package select minimal 2015-02-03 14:02:52 +00:00			`use strict;`
			`use testapi;`

			`sub run {`
Check default package selection is correct This adds a check that the default package set selection is actually correct, where possible and appropriate, as part of the `_software_selection` test. We do this by examining the `packaging.log` log file and checking which environment group was selected. Signed-off-by: Adam Williamson <awilliam@redhat.com> 2018-01-05 21:39:19 +00:00			`my $self = shift;`
changes to solve 173 and 167 Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D335 2015-04-10 08:38:28 +00:00			`# Anaconda hub`
enforce standard coding on all Perl files 2023-02-12 22:59:37 +00:00			`assert_screen "anaconda_main_hub", 300; #`
changes to solve 173 and 167 Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D335 2015-04-10 08:38:28 +00:00
Test Suite: install_default on rocky-8.5-[minimal\|boot\|dvd]-iso-x86_64 (#77) Merging per testing team conversation meeting. * Correctly check for default packagesets for each flavor * FIF updates for default packagesets - Set DESKTOP=gnome to trigger graphical_wait_login instead of console_wait_login - Increase virtual disk size to account for default packagesets * Correctly check for minimal-iso default packageset * Updated needles for issue 16 * Update templates.fif.json with package set test suites Package sets tested per ISO will follow these conventions: - Test suites will not be duplicated between the boot and dvd ISOs - All default package sets will be tested against dvd-iso - Boot ISO will be considered valid if `minimal` package set installs cleanly * Do not add updated needle with changed hostname 2022-03-31 23:23:01 +00:00			`# Select package set.`
			`# If 'default' is specified, skip selection, but verify correct default`
			`my $packageset = get_var('PACKAGE_SET', 'default');`
			`if ($packageset eq 'default') {`
Check default package selection is correct This adds a check that the default package set selection is actually correct, where possible and appropriate, as part of the `_software_selection` test. We do this by examining the `packaging.log` log file and checking which environment group was selected. Signed-off-by: Adam Williamson <awilliam@redhat.com> 2018-01-05 21:39:19 +00:00			`$self->root_console;`
Test Suite: install_default on rocky-8.5-[minimal\|boot\|dvd]-iso-x86_64 (#77) Merging per testing team conversation meeting. * Correctly check for default packagesets for each flavor * FIF updates for default packagesets - Set DESKTOP=gnome to trigger graphical_wait_login instead of console_wait_login - Increase virtual disk size to account for default packagesets * Correctly check for minimal-iso default packageset * Updated needles for issue 16 * Update templates.fif.json with package set test suites Package sets tested per ISO will follow these conventions: - Test suites will not be duplicated between the boot and dvd ISOs - All default package sets will be tested against dvd-iso - Boot ISO will be considered valid if `minimal` package set installs cleanly * Do not add updated needle with changed hostname 2022-03-31 23:23:01 +00:00			`my $env = "graphical-server-environment";`
			`if (get_var('FLAVOR') eq 'minimal-iso') {`
			`$env = "server-product-environment";`
Check default package selection is correct This adds a check that the default package set selection is actually correct, where possible and appropriate, as part of the `_software_selection` test. We do this by examining the `packaging.log` log file and checking which environment group was selected. Signed-off-by: Adam Williamson <awilliam@redhat.com> 2018-01-05 21:39:19 +00:00			`}`
Test Suite: install_default on rocky-8.5-[minimal\|boot\|dvd]-iso-x86_64 (#77) Merging per testing team conversation meeting. * Correctly check for default packagesets for each flavor * FIF updates for default packagesets - Set DESKTOP=gnome to trigger graphical_wait_login instead of console_wait_login - Increase virtual disk size to account for default packagesets * Correctly check for minimal-iso default packageset * Updated needles for issue 16 * Update templates.fif.json with package set test suites Package sets tested per ISO will follow these conventions: - Test suites will not be duplicated between the boot and dvd ISOs - All default package sets will be tested against dvd-iso - Boot ISO will be considered valid if `minimal` package set installs cleanly * Do not add updated needle with changed hostname 2022-03-31 23:23:01 +00:00
			`assert_script_run "egrep 'selected environment:' /tmp/anaconda.log /tmp/packaging.log \| tail -1 \| grep $env";`
Check default package selection is correct This adds a check that the default package set selection is actually correct, where possible and appropriate, as part of the `_software_selection` test. We do this by examining the `packaging.log` log file and checking which environment group was selected. Signed-off-by: Adam Williamson <awilliam@redhat.com> 2018-01-05 21:39:19 +00:00			`send_key "ctrl-alt-f6";`
			`assert_screen "anaconda_main_hub", 30;`
			`return;`
select environment programmatically Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D312 2015-03-25 10:56:48 +00:00			`}`
add package select minimal 2015-02-03 14:02:52 +00:00
			`assert_and_click "anaconda_main_hub_select_packages";`

select environment programmatically Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D312 2015-03-25 10:56:48 +00:00			`# Focus on "base environment" list`
			`send_key "tab";`
try to be safer when typing in X: slower, more checks Summary: the main thing this does is try and type slower in X - this should cover nearly everywhere we type anything in X, and make it type slower. We also add a bit more safety checking to some old tests which didn't have it (mainly _do_install_and_reboot) - wait_still_screen after typing to make sure all the keypresses were registered before continuing. This is an attempt to mitigate the problems we've seen where the wrong text gets typed into the wrong places and the tests break. This branch is live on staging atm. It still has some issues, but I do think it's an improvement. Test Plan: run the tests (probably several times), compare to runs without the change, see if it's better or worse... Reviewers: jskladan, garretraziel Reviewed By: garretraziel Subscribers: tflink Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D993 2016-09-12 17:24:30 +00:00			`wait_still_screen 1;`
select environment programmatically Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D312 2015-03-25 10:56:48 +00:00			`send_key "tab";`
try to be safer when typing in X: slower, more checks Summary: the main thing this does is try and type slower in X - this should cover nearly everywhere we type anything in X, and make it type slower. We also add a bit more safety checking to some old tests which didn't have it (mainly _do_install_and_reboot) - wait_still_screen after typing to make sure all the keypresses were registered before continuing. This is an attempt to mitigate the problems we've seen where the wrong text gets typed into the wrong places and the tests break. This branch is live on staging atm. It still has some issues, but I do think it's an improvement. Test Plan: run the tests (probably several times), compare to runs without the change, see if it's better or worse... Reviewers: jskladan, garretraziel Reviewed By: garretraziel Subscribers: tflink Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D993 2016-09-12 17:24:30 +00:00			`wait_still_screen 1;`
add package select minimal 2015-02-03 14:02:52 +00:00
Needles for `_graphical_wait_login` allowing English language Gnome environments to Getting Started (#49) * add needles for _graphical_wait_login * remove install_package_set_kde * add new test suites and job group to simplify package_set testing * modify _software_selection for pre-selected graphical-server case * restore non-Gnome installs to package-set test suite 2021-09-30 02:18:45 +00:00			`# In Rocky, graphical-server starts out selected in the DVD ISO so if that's`
			`# what we're looking for we're done`
enforce standard coding on all Perl files 2023-02-12 22:59:37 +00:00			`if (!check_screen("anaconda_" . $packageset . "_selected", 1)) {`
			`send_key_until_needlematch("anaconda_" . $packageset . "_highlighted", "down", 20);`
			`send_key "spc";`
Needles for `_graphical_wait_login` allowing English language Gnome environments to Getting Started (#49) * add needles for _graphical_wait_login * remove install_package_set_kde * add new test suites and job group to simplify package_set testing * modify _software_selection for pre-selected graphical-server case * restore non-Gnome installs to package-set test suite 2021-09-30 02:18:45 +00:00			`}`
add package select minimal 2015-02-03 14:02:52 +00:00
select environment programmatically Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D312 2015-03-25 10:56:48 +00:00			`# check that desired environment is selected`
enforce standard coding on all Perl files 2023-02-12 22:59:37 +00:00			`assert_screen "anaconda_" . $packageset . "_selected";`
add package select minimal 2015-02-03 14:02:52 +00:00			`assert_and_click "anaconda_spoke_done";`

			`# Anaconda hub`
enforce standard coding on all Perl files 2023-02-12 22:59:37 +00:00			`assert_screen "anaconda_main_hub", 50; #`
add package select minimal 2015-02-03 14:02:52 +00:00
			`}`

			`sub test_flags {`
enforce standard coding on all Perl files 2023-02-12 22:59:37 +00:00			`return {fatal => 1};`
add package select minimal 2015-02-03 14:02:52 +00:00			`}`

			`1;`

			`# vim: set sw=4 et:`