Differential D1080

Move all remaining utility functions into exporter modules
ClosedPublic
Actions

Authored by adamwill on Jan 13 2017, 12:41 AM.

Details

Reviewers
garretraziel_but_actually_jsedlak_who_uses_stupid_nicknames
jskladan
Commits
rOPENQATESTSb67f60489463: Move all remaining utility functions into exporter modules
Summary

This adds a couple of new exporter modules, renames main_common
to utils (this is a better name: openSUSE's main_common is
functions used in main.pm, utils is what they call their module
full of miscellaneous commonly-used functions), and moves a
bunch of utility functions that were previously needlessly
implemented as instance methods in base classes into the
exporter modules. That means we can get rid of all the annoying
$self-> syntax for calling them.

We get rid of fedorabase entirely, as it's no longer useful
for anything. Other base classes keep the 'standard' methods
(like post_fail_hook) and methods which actually need to be
methods (like root_console, whose behaviour is different in
anacondatest and installedtest).

Test Plan

Do a full test suite run and check everything lines
up. There should be no functional differences from before at all,
this is just a re-org.

Diff Detail

Repository
rOPENQATESTS os-autoinst-distri-fedora
Lint
Automatic diff as part of commit; lint not applicable.
Unit
Automatic diff as part of commit; unit tests not applicable.
adamwill retitled this revision from to Move all remaining utility functions into exporter modules.Jan 13 2017, 12:41 AM
adamwill updated this object.
adamwill edited the test plan for this revision. (Show Details)
adamwill added reviewers: jskladan, garretraziel_but_actually_jsedlak_who_uses_stupid_nicknames.
adamwill added a comment.Jan 13 2017, 12:42 AM

Note, I haven't actually run this yet, I just wrote it. I'm sure it's fine though. ;) I'll flip staging onto this branch for the next compose and we'll see how that goes.

adamwill updated this revision to Diff 2751.Jan 13 2017, 4:08 PM

anaconda needs use utils as it uses type_safely

adamwill updated this revision to Diff 2752.Jan 13 2017, 4:53 PM

Add missing use anaconda to several tests

adamwill updated this revision to Diff 2754.Jan 15 2017, 6:55 PM

Rebase on top of the clone_host_file change

garretraziel_but_actually_jsedlak_who_uses_stupid_nicknames accepted this revision.Jan 17 2017, 11:29 AM

Code looks OK and seems to work on staging.

This revision is now accepted and ready to land.Jan 17 2017, 11:29 AM
Closed by commit rOPENQATESTSb67f60489463: Move all remaining utility functions into exporter modules (authored by Adam Williamson <awilliam@redhat.com>). · Explain WhyJan 18 2017, 7:15 AM
This revision was automatically updated to reflect the committed changes.

Revision Contents

PathPackages
MREADME.md (5 lines)
Plib/anaconda.pm (105 lines)
Copied from lib/anacondatest.pm
Plib/anacondatest.pm (177 lines)
Copied to lib/anaconda.pm
DMlib/fedorabase.pm (142 lines)
Mlib/freeipa.pm (2 lines)
Mlib/installedtest.pm (66 lines)
Vlib/{main_common.pm → utils.pm}
AMlib/tapnet.pm (62 lines)
Vlib/{utils.pm ← main_common.pm} (143 lines)
Mtests/_boot_to_anaconda.pm (7 lines)
Mtests/_check_install_source.pm (5 lines)
Mtests/_console_avc_crash.pm (2 lines)
Mtests/_console_login.pm (4 lines)
Mtests/_console_wait_login.pm (6 lines)
Mtests/_do_install_and_reboot.pm (2 lines)
Mtests/_graphical_input.pm (2 lines)
Mtests/_graphical_wait_login.pm (2 lines)
Mtests/_network_static.pm (5 lines)
Mtests/_support_server.pm (7 lines)
Mtests/base_service_manipulation.pm (2 lines)
Mtests/database_client.pm (10 lines)
Mtests/desktop_browser.pm (2 lines)
Mtests/desktop_notifications.pm (6 lines)
Mtests/desktop_terminal.pm (4 lines)
Mtests/desktop_update_graphical.pm (4 lines)
Mtests/disk_custom_btrfs.pm (5 lines)
Mtests/disk_custom_ext3.pm (7 lines)
Mtests/disk_custom_iscsi.pm (7 lines)
Mtests/disk_custom_lvmthin.pm (5 lines)
Mtests/disk_custom_no_swap.pm (5 lines)
Mtests/disk_custom_software_raid.pm (5 lines)
Mtests/disk_custom_xfs.pm (7 lines)
Mtests/disk_guided_delete_all.pm (3 lines)
Mtests/disk_guided_delete_partial.pm (3 lines)
Mtests/disk_guided_empty.pm (3 lines)
Mtests/disk_guided_encrypted.pm (5 lines)
Mtests/disk_guided_multi.pm (3 lines)
Mtests/disk_guided_multi_empty_all.pm (3 lines)
Mtests/disk_guided_shrink.pm (3 lines)
Mtests/freeipa_client.pm (2 lines)
Mtests/freeipa_password_change.pm (2 lines)
Mtests/freeipa_webui.pm (2 lines)
Mtests/install_arm_image_deployment.pm (2 lines)
Mtests/install_source_graphical.pm (7 lines)
Mtests/install_text.pm (2 lines)
Mtests/realmd_join_cockpit.pm (9 lines)
Mtests/realmd_join_sssd.pm (8 lines)
Mtests/role_deploy_database_server.pm (10 lines)
Mtests/role_deploy_domain_controller.pm (12 lines)
Mtests/server_cockpit_basic.pm (3 lines)
Mtests/server_cockpit_default.pm (5 lines)
Mtests/upgrade_postinstall.pm (4 lines)
Mtests/upgrade_preinstall.pm (2 lines)
Mtests/upgrade_run.pm (3 lines)

Diff 2762

View Options

README.md

Show First 20 Lines • Show All 53 Lines • ▼ Show 20 Line(s)
54- When set, `USER_LOGIN` and `USER_PASSWORD` are used to create user in Anaconda. 54​- When set, `USER_LOGIN` and `USER_PASSWORD` are used to create user in Anaconda.
55 55​
56#### Post-install phase 56​#### Post-install phase
57 57​
58After installation is finished and installed system is fully booted, you can run additional tests as checks that installed system has correct attributes - that correct file system is used, that RAID is used etc. 58​After installation is finished and installed system is fully booted, you can run additional tests as checks that installed system has correct attributes - that correct file system is used, that RAID is used etc.
59 59​
60### Test inheritance 60​### Test inheritance
61 61​
62Your test can inherit from `basetest`, `fedorabase`, `installedtest` or `anacondatest`. Each provides relevant methods that are documented in-line, so read the files (`lib/basetest.pm`, `lib/fedorabase.pm` etc.) for information on these. 62​Your test can inherit from `basetest`, `installedtest` or `anacondatest`. Each provides relevant methods that are documented in-line, so read the files (`lib/anacondatest.pm`, `lib/installedtest.pm`) for information on these.
63 63​
64- `basetest`: A base class provided by os-autoinst - it has empty `post_fail_hook()` and doesn't set any flags. 64​- `basetest`: A base class provided by os-autoinst - it has empty `post_fail_hook()` and doesn't set any flags.
65- `fedorabase`: doesn't set flags and does nothing in `post_fail_hook()`, but provides some basic methods that will be useful during testing Fedora. It should be used when no other, more specific class can be used. ​
66- `anacondatest`: should be used in tests where Anaconda is running. It uploads Anaconda logs (for example `anaconda.log` or `packaging.log`) in `post_fail_hook()`. 65​- `anacondatest`: should be used in tests where Anaconda is running. It uploads Anaconda logs (for example `anaconda.log` or `packaging.log`) in `post_fail_hook()`.
67- `installedtest`: should be used in tests that are running on installed system (either in postinstall phase or in upgrade tests). 66​- `installedtest`: should be used in tests that are running on installed system (either in postinstall phase or in upgrade tests).
68 67​
69There are also several modules that export utility functions, currently `main_common`, `freeipa`, and `packagetest`. Your test can `use` any of these modules and then directly call the functions they export. Again, the functions are documented in-line. 68​There are also several modules that export utility functions, currently `utils`, `anaconda`, `freeipa`, `packagetest` and `tapnet`. Your test can `use` any of these modules and then directly call the functions they export. Again, the functions are documented in-line.
70 69​
71### New test development workflow 70​### New test development workflow
72 71​
731. Select test from [phabricator page](https://phab.qa.fedoraproject.org/w/openqa/tests/). 72​1. Select test from [phabricator page](https://phab.qa.fedoraproject.org/w/openqa/tests/).
742. Put each part of your test as a separate file into `tests/` directory, reimplementing `run()` method 73​2. Put each part of your test as a separate file into `tests/` directory, reimplementing `run()` method
75and `test_flags()` method, inheriting from one of the classes mentioned above. 74​and `test_flags()` method, inheriting from one of the classes mentioned above.
763. Set correct variables (so that all test parts you have made are executed) in [WebUI -> Test suites](https://localhost:8080/admin/test_suites). 75​3. Set correct variables (so that all test parts you have made are executed) in [WebUI -> Test suites](https://localhost:8080/admin/test_suites).
774. Link your newly created Test suite to medium type in [WebUI -> Job groups](https://localhost:8080/admin/groups). 76​4. Link your newly created Test suite to medium type in [WebUI -> Job groups](https://localhost:8080/admin/groups).
Show All 19 Lines
View Options

lib/anaconda.pm

  • This file was copied from lib/anacondatest.pm.
1package anacondatest; 1​package anaconda;
2use base 'fedorabase'; ​
3 2​
4# base class for all Anaconda (installation) tests 3​use strict;
5 4​
6# should be used in tests where Anaconda is running - when it makes sense 5​use base 'Exporter';
7# to upload Anaconda logs when something fails 6​use Exporter;
8 7​
9use testapi; 8​use testapi;
10use main_common; 9​use utils;
11 10​
12sub post_fail_hook { 11​our @EXPORT = qw/select_disks custom_scheme_select custom_change_type custom_change_fs custom_change_device custom_delete_part get_full_repo get_mirrorlist_url/;
13 my $self = shift; ​
14 ​
15 # if error dialog is shown, click "report" - it then creates directory structure for ABRT ​
16 my $has_traceback = 0; ​
17 if (check_screen "anaconda_error", 10) { ​
18 assert_and_click "anaconda_error_report"; ​
19 $has_traceback = 1; ​
20 } elsif (check_screen "anaconda_text_error", 10) { # also for text install ​
21 type_string "1\n"; ​
22 $has_traceback = 1; ​
23 } ​
24 ​
25 save_screenshot; ​
26 $self->root_console(); ​
27 upload_logs "/tmp/X.log", failok=>1; ​
28 upload_logs "/tmp/anaconda.log", failok=>1; ​
29 upload_logs "/tmp/packaging.log", failok=>1; ​
30 upload_logs "/tmp/storage.log", failok=>1; ​
31 upload_logs "/tmp/syslog", failok=>1; ​
32 upload_logs "/tmp/program.log", failok=>1; ​
33 upload_logs "/tmp/dnf.log", failok=>1; ​
34 upload_logs "/tmp/dnf.librepo.log", failok=>1; ​
35 upload_logs "/tmp/dnf.rpm.log", failok=>1; ​
36 ​
37 if ($has_traceback) { ​
38 # Upload Anaconda traceback logs ​
39 script_run "tar czf /tmp/anaconda_tb.tar.gz /tmp/anaconda-tb-*"; ​
40 upload_logs "/tmp/anaconda_tb.tar.gz"; ​
41 } ​
42 ​
43 # Upload all ABRT logs (if there are any) ​
44 unless (script_run 'test -n "$(ls -A /var/tmp)" && tar czf /var/tmp/var_tmp.tar.gz /var/tmp') { ​
45 upload_logs "/var/tmp/var_tmp.tar.gz"; ​
46 } ​
47 ​
48 # Upload /var/log ​
49 unless (script_run "tar czf /tmp/var_log.tar.gz /var/log") { ​
50 upload_logs "/tmp/var_log.tar.gz"; ​
51 } ​
52 ​
53 # Upload anaconda core dump, if there is one ​
54 unless (script_run "ls /tmp/anaconda.core.* && tar czf /tmp/anaconda.core.tar.gz /tmp/anaconda.core.*") { ​
55 upload_logs "/tmp/anaconda.core.tar.gz"; ​
56 } ​
57} ​
58 ​
59sub root_console { ​
60 # Switch to an appropriate TTY and log in as root. ​
61 my $self = shift; ​
62 my %args = ( ​
63 @_); ​
64 ​
65 if (get_var("LIVE")) { ​
66 send_key "ctrl-alt-f2"; ​
67 } ​
68 else { ​
69 # Working around RHBZ 1222413, no console on tty2 ​
70 send_key "ctrl-alt-f1"; ​
71 send_key "ctrl-b"; ​
72 send_key "2"; ​
73 } ​
74 console_login(user=>"root"); ​
75} ​
76 12​
77sub select_disks { 13​sub select_disks {
78 # Handles disk selection. Has one optional argument - number of 14​ # Handles disk selection. Has one optional argument - number of
79 # disks to select. Should be run when main Anaconda hub is 15​ # disks to select. Should be run when main Anaconda hub is
80 # displayed. Enters disk selection spoke and then ensures that 16​ # displayed. Enters disk selection spoke and then ensures that
81 # required number of disks are selected. Additionally, if 17​ # required number of disks are selected. Additionally, if
82 # PARTITIONING variable starts with custom_, selects "custom 18​ # PARTITIONING variable starts with custom_, selects "custom
83 # partitioning" checkbox. Example usage: 19​ # partitioning" checkbox. Example usage:
84 # after calling `$self->select_disks(2);` from Anaconda main hub, 20​ # after calling `select_disks(2);` from Anaconda main hub,
85 # installation destination spoke will be displayed and two 21​ # installation destination spoke will be displayed and two
86 # attached disks will be selected for installation. 22​ # attached disks will be selected for installation.
87 my $self = shift; ​
88 my %args = ( 23​ my %args = (
89 disks => 1, 24​ disks => 1,
90 iscsi => {}, 25​ iscsi => {},
91 @_ 26​ @_
92 ); 27​ );
93 my %iscsi = %{$args{iscsi}}; 28​ my %iscsi = %{$args{iscsi}};
94 # Anaconda hub 29​ # Anaconda hub
95 assert_screen "anaconda_main_hub", 300; # 30​ assert_screen "anaconda_main_hub", 300; #
▲ Show 20 Lines • Show All 54 Lines • ▼ Show 20 Line(s)
150 } 85​ }
151} 86​}
152 87​
153sub custom_scheme_select { 88​sub custom_scheme_select {
154 # Used for setting custom partitioning scheme (such as LVM). 89​ # Used for setting custom partitioning scheme (such as LVM).
155 # Should be called when custom partitioning spoke is displayed. 90​ # Should be called when custom partitioning spoke is displayed.
156 # Pass the name of the partitioning scheme. Needle 91​ # Pass the name of the partitioning scheme. Needle
157 # `anaconda_part_scheme_$scheme` should exist. Example usage: 92​ # `anaconda_part_scheme_$scheme` should exist. Example usage:
158 # `$self->custom_scheme_select("btrfs");` uses needle 93​ # `custom_scheme_select("btrfs");` uses needle
159 # `anaconda_part_scheme_btrfs` to set partition scheme to Btrfs. 94​ # `anaconda_part_scheme_btrfs` to set partition scheme to Btrfs.
160 my ($self, $scheme) = @_; 95​ my ($scheme) = @_;
161 assert_and_click "anaconda_part_scheme"; 96​ assert_and_click "anaconda_part_scheme";
162 # Move the mouse away from the menu 97​ # Move the mouse away from the menu
163 mouse_set(10, 10); 98​ mouse_set(10, 10);
164 assert_and_click "anaconda_part_scheme_$scheme"; 99​ assert_and_click "anaconda_part_scheme_$scheme";
165} 100​}
166 101​
167sub custom_change_type { 102​sub custom_change_type {
168 # Used to set different device types for specified partition (e.g. 103​ # Used to set different device types for specified partition (e.g.
169 # RAID). Should be called when custom partitioning spoke is 104​ # RAID). Should be called when custom partitioning spoke is
170 # displayed. Pass it type of partition and name of partition. 105​ # displayed. Pass it type of partition and name of partition.
171 # Needles `anaconda_part_select_$part` and 106​ # Needles `anaconda_part_select_$part` and
172 # `anaconda_part_device_type_$type` should exist. Example usage: 107​ # `anaconda_part_device_type_$type` should exist. Example usage:
173 # `$self->custom_change_type("raid", "root");` uses 108​ # `custom_change_type("raid", "root");` uses
174 # `anaconda_part_select_root` and `anaconda_part_device_type_raid` 109​ # `anaconda_part_select_root` and `anaconda_part_device_type_raid`
175 # needles to set RAID for root partition. 110​ # needles to set RAID for root partition.
176 my ($self, $type, $part) = @_; 111​ my ($type, $part) = @_;
177 $part ||= "root"; 112​ $part ||= "root";
178 assert_and_click "anaconda_part_select_$part"; 113​ assert_and_click "anaconda_part_select_$part";
179 assert_and_click "anaconda_part_device_type"; 114​ assert_and_click "anaconda_part_device_type";
180 # Move the mouse away from the menu 115​ # Move the mouse away from the menu
181 mouse_set(10, 10); 116​ mouse_set(10, 10);
182 assert_and_click "anaconda_part_device_type_$type"; 117​ assert_and_click "anaconda_part_device_type_$type";
183 assert_and_click "anaconda_part_update_settings"; 118​ assert_and_click "anaconda_part_update_settings";
184} 119​}
185 120​
186sub custom_change_fs { 121​sub custom_change_fs {
187 # Used to set different file systems for specified partition. 122​ # Used to set different file systems for specified partition.
188 # Should be called when custom partitioning spoke is displayed. 123​ # Should be called when custom partitioning spoke is displayed.
189 # Pass filesystem name and name of partition. Needles 124​ # Pass filesystem name and name of partition. Needles
190 # `anaconda_part_select_$part` and `anaconda_part_fs_$fs` should 125​ # `anaconda_part_select_$part` and `anaconda_part_fs_$fs` should
191 # exist. Example usage: 126​ # exist. Example usage:
192 # `$self->custom_change_fs("ext3", "root");` uses 127​ # `custom_change_fs("ext3", "root");` uses
193 # `anaconda_part_select_root` and `anaconda_part_fs_ext3` needles 128​ # `anaconda_part_select_root` and `anaconda_part_fs_ext3` needles
194 # to set ext3 file system for root partition. 129​ # to set ext3 file system for root partition.
195 my ($self, $fs, $part) = @_; 130​ my ($fs, $part) = @_;
196 $part ||= "root"; 131​ $part ||= "root";
197 assert_and_click "anaconda_part_select_$part"; 132​ assert_and_click "anaconda_part_select_$part";
198 # if fs is already set correctly, do nothing 133​ # if fs is already set correctly, do nothing
199 return if (check_screen "anaconda_part_fs_${fs}_selected", 5); 134​ return if (check_screen "anaconda_part_fs_${fs}_selected", 5);
200 assert_and_click "anaconda_part_fs"; 135​ assert_and_click "anaconda_part_fs";
201 # Move the mouse away from the menu 136​ # Move the mouse away from the menu
202 mouse_set(10, 10); 137​ mouse_set(10, 10);
203 assert_and_click "anaconda_part_fs_$fs"; 138​ assert_and_click "anaconda_part_fs_$fs";
204 assert_and_click "anaconda_part_update_settings"; 139​ assert_and_click "anaconda_part_update_settings";
205} 140​}
206 141​
207sub custom_change_device { 142​sub custom_change_device {
208 my ($self, $part, $devices) = @_; 143​ my ($part, $devices) = @_;
209 assert_and_click "anaconda_part_select_$part"; 144​ assert_and_click "anaconda_part_select_$part";
210 assert_and_click "anaconda_part_device_modify"; 145​ assert_and_click "anaconda_part_device_modify";
211 foreach my $device (split(/ /, $devices)) { 146​ foreach my $device (split(/ /, $devices)) {
212 assert_and_click "anaconda_part_device_${device}"; 147​ assert_and_click "anaconda_part_device_${device}";
213 } 148​ }
214 assert_and_click "anaconda_part_device_select"; 149​ assert_and_click "anaconda_part_device_select";
215 assert_and_click "anaconda_part_update_settings"; 150​ assert_and_click "anaconda_part_update_settings";
216} 151​}
217 152​
218sub custom_delete_part { 153​sub custom_delete_part {
219 # Used for deletion of previously added partitions in custom 154​ # Used for deletion of previously added partitions in custom
220 # partitioning spoke. Should be called when custom partitioning 155​ # partitioning spoke. Should be called when custom partitioning
221 # spoke is displayed. Pass the partition name. Needle 156​ # spoke is displayed. Pass the partition name. Needle
222 # `anaconda_part_select_$part` should exist. Example usage: 157​ # `anaconda_part_select_$part` should exist. Example usage:
223 # `$self->custom_delete_part('swap');` uses 158​ # `custom_delete_part('swap');` uses needle
224 # `anaconda_part_select_swap` to delete previously added swap 159​ # `anaconda_part_select_swap` to delete previously added swap
225 # partition. 160​ # partition.
226 my ($self, $part) = @_; 161​ my ($part) = @_;
227 return if not $part; 162​ return if not $part;
228 assert_and_click "anaconda_part_select_$part"; 163​ assert_and_click "anaconda_part_select_$part";
229 assert_and_click "anaconda_part_delete"; 164​ assert_and_click "anaconda_part_delete";
230} 165​}
231 166​
232sub get_full_repo { 167​sub get_full_repo {
233 my ($self, $repourl) = @_; 168​ my ($repourl) = @_;
234 # trivial thing we kept repeating: fill out an HTTP or HTTPS 169​ # trivial thing we kept repeating: fill out an HTTP or HTTPS
235 # repo URL with flavor and arch, leave NFS ones alone (as for 170​ # repo URL with flavor and arch, leave NFS ones alone (as for
236 # NFS tests we just use a mounted ISO and the URL is complete) 171​ # NFS tests we just use a mounted ISO and the URL is complete)
237 if ($repourl !~ m/^nfs/) { 172​ if ($repourl !~ m/^nfs/) {
238 $repourl .= "/Everything/".get_var("ARCH")."/os"; 173​ $repourl .= "/Everything/".get_var("ARCH")."/os";
239 } 174​ }
240 return $repourl; 175​ return $repourl;
241} 176​}
242 177​
243sub get_mirrorlist_url { 178​sub get_mirrorlist_url {
244 return "mirrors.fedoraproject.org/mirrorlist?repo=fedora-" . lc(get_var("VERSION")) . "&arch=" . get_var('ARCH') 179​ return "mirrors.fedoraproject.org/mirrorlist?repo=fedora-" . lc(get_var("VERSION")) . "&arch=" . get_var('ARCH');
245} 180​}
246 ​
2471; ​
248 ​
249# vim: set sw=4 et: ​
View Options

lib/anacondatest.pm

  • This file was copied to lib/anaconda.pm.
1package anacondatest; 1​package anacondatest;
2use base 'fedorabase'; 2​use base 'basetest';
3 3​
4# base class for all Anaconda (installation) tests 4​# base class for all Anaconda (installation) tests
5 5​
6# should be used in tests where Anaconda is running - when it makes sense 6​# should be used in tests where Anaconda is running - when it makes sense
7# to upload Anaconda logs when something fails 7​# to upload Anaconda logs when something fails. Many tests using this as a
8​# base likely will also want to `use anaconda` for commonly-used functions.
8 9​
9use testapi; 10​use testapi;
10use main_common; 11​use utils;
11 12​
12sub post_fail_hook { 13​sub post_fail_hook {
13 my $self = shift; 14​ my $self = shift;
14 15​
15 # if error dialog is shown, click "report" - it then creates directory structure for ABRT 16​ # if error dialog is shown, click "report" - it then creates directory structure for ABRT
16 my $has_traceback = 0; 17​ my $has_traceback = 0;
17 if (check_screen "anaconda_error", 10) { 18​ if (check_screen "anaconda_error", 10) {
18 assert_and_click "anaconda_error_report"; 19​ assert_and_click "anaconda_error_report";
▲ Show 20 Lines • Show All 50 Lines • ▼ Show 20 Line(s)69 else {
69 # Working around RHBZ 1222413, no console on tty2 70​ # Working around RHBZ 1222413, no console on tty2
70 send_key "ctrl-alt-f1"; 71​ send_key "ctrl-alt-f1";
71 send_key "ctrl-b"; 72​ send_key "ctrl-b";
72 send_key "2"; 73​ send_key "2";
73 } 74​ }
74 console_login(user=>"root"); 75​ console_login(user=>"root");
75} 76​}
76 77​
77sub select_disks { ​
78 # Handles disk selection. Has one optional argument - number of ​
79 # disks to select. Should be run when main Anaconda hub is ​
80 # displayed. Enters disk selection spoke and then ensures that ​
81 # required number of disks are selected. Additionally, if ​
82 # PARTITIONING variable starts with custom_, selects "custom ​
83 # partitioning" checkbox. Example usage: ​
84 # after calling `$self->select_disks(2);` from Anaconda main hub, ​
85 # installation destination spoke will be displayed and two ​
86 # attached disks will be selected for installation. ​
87 my $self = shift; ​
88 my %args = ( ​
89 disks => 1, ​
90 iscsi => {}, ​
91 @_ ​
92 ); ​
93 my %iscsi = %{$args{iscsi}}; ​
94 # Anaconda hub ​
95 assert_screen "anaconda_main_hub", 300; # ​
96 # Damn animation delay can cause bad clicks here too - wait for it ​
97 sleep 1; ​
98 assert_and_click "anaconda_main_hub_install_destination"; ​
99 ​
100 if (get_var('NUMDISKS') > 1) { ​
101 # Multi-disk case. Select however many disks the test needs. If ​
102 # $disks is 0, this will do nothing, and 0 disks will be selected. ​
103 for my $n (1 .. $args{disks}) { ​
104 assert_and_click "anaconda_install_destination_select_disk_$n"; ​
105 } ​
106 } ​
107 else { ​
108 # Single disk case. ​
109 if ($args{disks} == 0) { ​
110 # Clicking will *de*-select. ​
111 assert_and_click "anaconda_install_destination_select_disk_1"; ​
112 } ​
113 elsif ($args{disks} > 1) { ​
114 die "Only one disk is connected! Cannot select $args{disks} disks."; ​
115 } ​
116 # For exactly 1 disk, we don't need to do anything. ​
117 } ​
118 ​
119 # Handle network disks. ​
120 if (%iscsi) { ​
121 assert_and_click "anaconda_install_destination_add_network_disk"; ​
122 foreach my $target (keys %iscsi) { ​
123 my $ip = $iscsi{$target}->[0]; ​
124 my $user = $iscsi{$target}->[1]; ​
125 my $password = $iscsi{$target}->[2]; ​
126 assert_and_click "anaconda_install_destination_add_iscsi_target"; ​
127 wait_still_screen 2; ​
128 type_safely $ip; ​
129 wait_screen_change { send_key "tab"; }; ​
130 type_safely $target; ​
131 # start discovery - three tabs, enter ​
132 type_safely "\t\t\t\n"; ​
133 if ($user && $password) { ​
134 assert_and_click "anaconda_install_destination_target_auth_type"; ​
135 assert_and_click "anaconda_install_destination_target_auth_type_chap"; ​
136 send_key "tab"; ​
137 type_safely $user; ​
138 send_key "tab"; ​
139 type_safely $password; ​
140 } ​
141 assert_and_click "anaconda_install_destination_target_login"; ​
142 assert_and_click "anaconda_install_destination_select_target"; ​
143 } ​
144 assert_and_click "anaconda_spoke_done"; ​
145 } ​
146 ​
147 # If this is a custom partitioning test, select custom partitioning. ​
148 if (get_var('PARTITIONING') =~ /^custom_/) { ​
149 assert_and_click "anaconda_manual_partitioning"; ​
150 } ​
151} ​
152 ​
153sub custom_scheme_select { ​
154 # Used for setting custom partitioning scheme (such as LVM). ​
155 # Should be called when custom partitioning spoke is displayed. ​
156 # Pass the name of the partitioning scheme. Needle ​
157 # `anaconda_part_scheme_$scheme` should exist. Example usage: ​
158 # `$self->custom_scheme_select("btrfs");` uses needle ​
159 # `anaconda_part_scheme_btrfs` to set partition scheme to Btrfs. ​
160 my ($self, $scheme) = @_; ​
161 assert_and_click "anaconda_part_scheme"; ​
162 # Move the mouse away from the menu ​
163 mouse_set(10, 10); ​
164 assert_and_click "anaconda_part_scheme_$scheme"; ​
165} ​
166 ​
167sub custom_change_type { ​
168 # Used to set different device types for specified partition (e.g. ​
169 # RAID). Should be called when custom partitioning spoke is ​
170 # displayed. Pass it type of partition and name of partition. ​
171 # Needles `anaconda_part_select_$part` and ​
172 # `anaconda_part_device_type_$type` should exist. Example usage: ​
173 # `$self->custom_change_type("raid", "root");` uses ​
174 # `anaconda_part_select_root` and `anaconda_part_device_type_raid` ​
175 # needles to set RAID for root partition. ​
176 my ($self, $type, $part) = @_; ​
177 $part ||= "root"; ​
178 assert_and_click "anaconda_part_select_$part"; ​
179 assert_and_click "anaconda_part_device_type"; ​
180 # Move the mouse away from the menu ​
181 mouse_set(10, 10); ​
182 assert_and_click "anaconda_part_device_type_$type"; ​
183 assert_and_click "anaconda_part_update_settings"; ​
184} ​
185 ​
186sub custom_change_fs { ​
187 # Used to set different file systems for specified partition. ​
188 # Should be called when custom partitioning spoke is displayed. ​
189 # Pass filesystem name and name of partition. Needles ​
190 # `anaconda_part_select_$part` and `anaconda_part_fs_$fs` should ​
191 # exist. Example usage: ​
192 # `$self->custom_change_fs("ext3", "root");` uses ​
193 # `anaconda_part_select_root` and `anaconda_part_fs_ext3` needles ​
194 # to set ext3 file system for root partition. ​
195 my ($self, $fs, $part) = @_; ​
196 $part ||= "root"; ​
197 assert_and_click "anaconda_part_select_$part"; ​
198 # if fs is already set correctly, do nothing ​
199 return if (check_screen "anaconda_part_fs_${fs}_selected", 5); ​
200 assert_and_click "anaconda_part_fs"; ​
201 # Move the mouse away from the menu ​
202 mouse_set(10, 10); ​
203 assert_and_click "anaconda_part_fs_$fs"; ​
204 assert_and_click "anaconda_part_update_settings"; ​
205} ​
206 ​
207sub custom_change_device { ​
208 my ($self, $part, $devices) = @_; ​
209 assert_and_click "anaconda_part_select_$part"; ​
210 assert_and_click "anaconda_part_device_modify"; ​
211 foreach my $device (split(/ /, $devices)) { ​
212 assert_and_click "anaconda_part_device_${device}"; ​
213 } ​
214 assert_and_click "anaconda_part_device_select"; ​
215 assert_and_click "anaconda_part_update_settings"; ​
216} ​
217 ​
218sub custom_delete_part { ​
219 # Used for deletion of previously added partitions in custom ​
220 # partitioning spoke. Should be called when custom partitioning ​
221 # spoke is displayed. Pass the partition name. Needle ​
222 # `anaconda_part_select_$part` should exist. Example usage: ​
223 # `$self->custom_delete_part('swap');` uses ​
224 # `anaconda_part_select_swap` to delete previously added swap ​
225 # partition. ​
226 my ($self, $part) = @_; ​
227 return if not $part; ​
228 assert_and_click "anaconda_part_select_$part"; ​
229 assert_and_click "anaconda_part_delete"; ​
230} ​
231 ​
232sub get_full_repo { ​
233 my ($self, $repourl) = @_; ​
234 # trivial thing we kept repeating: fill out an HTTP or HTTPS ​
235 # repo URL with flavor and arch, leave NFS ones alone (as for ​
236 # NFS tests we just use a mounted ISO and the URL is complete) ​
237 if ($repourl !~ m/^nfs/) { ​
238 $repourl .= "/Everything/".get_var("ARCH")."/os"; ​
239 } ​
240 return $repourl; ​
241} ​
242 ​
243sub get_mirrorlist_url { ​
244 return "mirrors.fedoraproject.org/mirrorlist?repo=fedora-" . lc(get_var("VERSION")) . "&arch=" . get_var('ARCH') ​
245} ​
246 ​
2471; 78​1;
248 79​
249# vim: set sw=4 et: 80​# vim: set sw=4 et:
View Options

lib/fedorabase.pm

  • This file was deleted.
This file was completely deleted. Show File Contents
View Options

lib/freeipa.pm

1package freeipa; 1​package freeipa;
2 2​
3use strict; 3​use strict;
4 4​
5use base 'Exporter'; 5​use base 'Exporter';
6use Exporter; 6​use Exporter;
7 7​
8use testapi; 8​use testapi;
9use main_common; 9​use utils;
10 10​
11our @EXPORT = qw/add_user start_webui/; 11​our @EXPORT = qw/add_user start_webui/;
12 12​
13# add a user with given username and surname, always uses the password 13​# add a user with given username and surname, always uses the password
14# "correcthorse". Assumes FreeIPA web UI is showing the Users screen. 14​# "correcthorse". Assumes FreeIPA web UI is showing the Users screen.
15sub add_user { 15​sub add_user {
16 my ($user, $surname) = @_; 16​ my ($user, $surname) = @_;
17 wait_still_screen 1; 17​ wait_still_screen 1;
Show All 31 Lines
View Options

lib/installedtest.pm

1package installedtest; 1​package installedtest;
2use base 'fedorabase'; 2​use base 'basetest';
3 3​
4# base class for tests that run on installed system 4​# base class for tests that run on installed system
5 5​
6# should be used when with tests, where system is already installed, e. g all parts 6​# should be used when with tests, where system is already installed, e. g all parts
7# of upgrade tests, postinstall phases... 7​# of upgrade tests, postinstall phases...
8 8​
9use testapi; 9​use testapi;
10use main_common; 10​use utils;
11 11​
12sub root_console { 12​sub root_console {
13 # Switch to a default or specified TTY and log in as root. 13​ # Switch to a default or specified TTY and log in as root.
14 my $self = shift; 14​ my $self = shift;
15 my %args = ( 15​ my %args = (
16 tty => 1, # what TTY to login to 16​ tty => 1, # what TTY to login to
17 @_); 17​ @_);
18 18​
Show All 21 Lines23sub post_fail_hook {
40 40​
41 # Upload /var/log 41​ # Upload /var/log
42 # lastlog can mess up tar sometimes and it's not much use 42​ # lastlog can mess up tar sometimes and it's not much use
43 unless (script_run "tar czvf /tmp/var_log.tar.gz --exclude='lastlog' /var/log") { 43​ unless (script_run "tar czvf /tmp/var_log.tar.gz --exclude='lastlog' /var/log") {
44 upload_logs "/tmp/var_log.tar.gz"; 44​ upload_logs "/tmp/var_log.tar.gz";
45 } 45​ }
46} 46​}
47 47​
48sub check_release { ​
49 # Checks whether the installed release matches a given value. E.g. ​
50 # `check_release(23)` checks whether the installed system is ​
51 # Fedora 23. The value can be 'Rawhide' or a Fedora release ​
52 # number; often you will want to use `get_var('VERSION')`. Expects ​
53 # a console prompt to be active when it is called. ​
54 my $self = shift; ​
55 my $release = shift; ​
56 my $check_command = "grep SUPPORT_PRODUCT_VERSION /usr/lib/os.release.d/os-release-fedora"; ​
57 validate_script_output $check_command, sub { $_ =~ m/REDHAT_SUPPORT_PRODUCT_VERSION=$release/ }; ​
58} ​
59 ​
60sub menu_launch_type { ​
61 # Launch an application in a graphical environment, by opening a ​
62 # launcher, typing the specified string and hitting enter. Pass ​
63 # the string to be typed to launch whatever it is you want. ​
64 my $self = shift; ​
65 my $app = shift; ​
66 # super does not work on KDE, because fml ​
67 send_key 'alt-f1'; ​
68 # srsly KDE y u so slo ​
69 wait_still_screen 3; ​
70 type_very_safely $app; ​
71 send_key 'ret'; ​
72} ​
73 ​
74sub start_cockpit { ​
75 # Starting from a console, get to a browser with Cockpit (running ​
76 # on localhost) shown. If $login is truth-y, also log in. Assumes ​
77 # X and Firefox are installed. ​
78 my $self = shift; ​
79 my $login = shift || 0; ​
80 # run firefox directly in X as root. never do this, kids! ​
81 type_string "startx /usr/bin/firefox -width 1024 -height 768 http://localhost:9090\n"; ​
82 assert_screen "cockpit_login"; ​
83 wait_still_screen 5; ​
84 if ($login) { ​
85 type_safely "root"; ​
86 wait_screen_change { send_key "tab"; }; ​
87 type_safely get_var("ROOT_PASSWORD", "weakpassword"); ​
88 send_key "ret"; ​
89 assert_screen "cockpit_main"; ​
90 # wait for any animation or other weirdness ​
91 # can't use wait_still_screen because of that damn graph ​
92 sleep 3; ​
93 } ​
94} ​
95 ​
96sub repo_setup { ​
97 # disable updates-testing and updates and use the compose location ​
98 # as the target for fedora and rawhide rather than mirrorlist, so ​
99 # tools see only packages from the compose under test ​
100 my $location = get_var("LOCATION"); ​
101 assert_script_run 'dnf config-manager --set-disabled updates-testing updates'; ​
102 # we use script_run here as the rawhide repo file won't always exist ​
103 # and we don't want to bother testing or predicting its existence; ​
104 # assert_script_run doesn't buy you much with sed anyway as it'll ​
105 # return 0 even if it replaced nothing ​
106 script_run "sed -i -e 's,^metalink,#metalink,g' -e 's,^#baseurl.*basearch,baseurl=${location}/Everything/\$basearch,g' /etc/yum.repos.d/{fedora,fedora-rawhide}.repo", 0; ​
107 script_run "cat /etc/yum.repos.d/{fedora,fedora-rawhide}.repo", 0; ​
108} ​
109 ​
1101; 48​1;
111 49​
112# vim: set sw=4 et: 50​# vim: set sw=4 et:
View Options

lib/main_common.pm

  • This file was moved to lib/utils.pm.
View Options

lib/tapnet.pm

  • This file was added.
1​package tapnet;
2​
3​use strict;
4​
5​use base 'Exporter';
6​use Exporter;
7​
8​use testapi;
9​our @EXPORT = qw/clone_host_file setup_tap_static get_host_dns/;
10​
11​sub clone_host_file {
12​ # copy a given file from the host into the guest. Mainly used
13​ # for networking config on tap tests. this is pretty crazy, but
14​ # SUSE do almost the same thing...
15​ my $file = shift;
16​ my $text = '';
17​ open(my $fh, '<', $file);
18​ while (<$fh>) {
19​ $text .= $_;
20​ }
21​ # escape any " characters in the text...
22​ $text =~ s/"/\\"/g;
23​ assert_script_run "printf \"$text\" > $file";
24​ # for debugging...
25​ assert_script_run "cat $file";
26​}
27​
28​sub setup_tap_static {
29​ # this is a common thing for tap tests, where we set up networking
30​ # for the system with a static IP address and possibly a specific
31​ # hostname
32​ my $ip = shift;
33​ my $hostname = shift || "";
34​ if ($hostname) {
35​ # assigning output of split to a single-item array gives us just
36​ # the first split
37​ my ($short) = split(/\./, $hostname);
38​ # set hostname
39​ assert_script_run "hostnamectl set-hostname $hostname";
40​ # add entry to /etc/hosts
41​ assert_script_run "echo '$ip $hostname $short' >> /etc/hosts";
42​ }
43​ # bring up network. DEFROUTE is *vital* here
44​ assert_script_run "printf 'DEVICE=eth0\nBOOTPROTO=none\nIPADDR=$ip\nGATEWAY=10.0.2.2\nPREFIX=24\nDEFROUTE=yes' > /etc/sysconfig/network-scripts/ifcfg-eth0";
45​ script_run "systemctl restart NetworkManager.service";
46​}
47​
48​sub get_host_dns {
49​ # get DNS server addresses from the host
50​ my @forwards;
51​ open(FH, '<', "/etc/resolv.conf");
52​ while (<FH>) {
53​ if ($_ =~ m/^nameserver +(.+)/) {
54​ push @forwards, $1;
55​ }
56​ }
57​ return @forwards;
58​}
59​
60​1;
61​
62​# vim: set sw=4 et:
View Options

lib/utils.pm

  • This file was moved from lib/main_common.pm.
1package main_common; 1​package utils;
2 2​
3use strict; 3​use strict;
4 4​
5use base 'Exporter'; 5​use base 'Exporter';
6use Exporter; 6​use Exporter;
7 7​
8​use lockapi;
8use testapi; 9​use testapi;
9our @EXPORT = qw/run_with_error_check type_safely type_very_safely desktop_vt boot_to_login_screen console_login console_switch_layout desktop_switch_layout console_loadkeys_us/; 10​our @EXPORT = qw/run_with_error_check type_safely type_very_safely desktop_vt boot_to_login_screen console_login console_switch_layout desktop_switch_layout console_loadkeys_us do_bootloader get_milestone boot_decrypt check_release menu_launch_type start_cockpit repo_setup/;
10 11​
11sub run_with_error_check { 12​sub run_with_error_check {
12 my ($func, $error_screen) = @_; 13​ my ($func, $error_screen) = @_;
13 die "Error screen appeared" if (check_screen $error_screen, 5); 14​ die "Error screen appeared" if (check_screen $error_screen, 5);
14 $func->(); 15​ $func->();
15 die "Error screen appeared" if (check_screen $error_screen, 5); 16​ die "Error screen appeared" if (check_screen $error_screen, 5);
16} 17​}
17 18​
▲ Show 20 Lines • Show All 139 Lines • ▼ Show 20 Line(s)
157} 158​}
158 159​
159# load US layout (from a root console) 160​# load US layout (from a root console)
160sub console_loadkeys_us { 161​sub console_loadkeys_us {
161 if (get_var('LANGUAGE') eq 'french') { 162​ if (get_var('LANGUAGE') eq 'french') {
162 script_run "loqdkeys us", 0; 163​ script_run "loqdkeys us", 0;
163 } 164​ }
164} 165​}
166​
167​sub do_bootloader {
168​ # Handle bootloader screen. 'bootloader' is syslinux or grub.
169​ # 'uefi' is whether this is a UEFI install, will get_var UEFI if
170​ # not explicitly set. 'postinstall' is whether we're on an
171​ # installed system or at the installer (this matters for how many
172​ # times we press 'down' to find the kernel line when typing args).
173​ # 'args' is a string of extra kernel args, if desired. 'mutex' is
174​ # a parallel test mutex lock to wait for before proceeding, if
175​ # desired. 'first' is whether to hit 'up' a couple of times to
176​ # make sure we boot the first menu entry. 'timeout' is how long to
177​ # wait for the bootloader screen.
178​ my %args = (
179​ postinstall => 0,
180​ params => "",
181​ mutex => "",
182​ first => 1,
183​ timeout => 30,
184​ uefi => get_var("UEFI"),
185​ @_
186​ );
187​ # if not postinstall and not UEFI, syslinux
188​ $args{bootloader} //= ($args{uefi} || $args{postinstall}) ? "grub" : "syslinux";
189​ if ($args{uefi}) {
190​ # we use the firmware-type specific tags because we want to be
191​ # sure we actually did a UEFI boot
192​ assert_screen "bootloader_uefi", $args{timeout};
193​ } else {
194​ assert_screen "bootloader_bios", $args{timeout};
195​ }
196​ if ($args{mutex}) {
197​ # cancel countdown
198​ send_key "left";
199​ mutex_lock $args{mutex};
200​ mutex_unlock $args{mutex};
201​ }
202​ if ($args{first}) {
203​ # press up a couple of times to make sure we're at first entry
204​ send_key "up";
205​ send_key "up";
206​ }
207​ if ($args{params}) {
208​ if ($args{bootloader} eq "syslinux") {
209​ send_key "tab";
210​ }
211​ else {
212​ send_key "e";
213​ # ternary: 13 'downs' to reach the kernel line for installed
214​ # system, 2 for UEFI installer
215​ my $presses = $args{postinstall} ? 13 : 2;
216​ foreach my $i (1..$presses) {
217​ send_key "down";
218​ }
219​ send_key "end";
220​ }
221​ type_string " $args{params}";
222​ }
223​ # ctrl-X boots from grub editor mode
224​ send_key "ctrl-x";
225​ # return boots all other cases
226​ send_key "ret";
227​}
228​
229​sub get_milestone {
230​ # FIXME: we don't know how to do this with Pungi 4 yet.
231​ return '';
232​}
233​
234​sub boot_decrypt {
235​ # decrypt storage during boot; arg is timeout (in seconds)
236​ my $timeout = shift || 60;
237​ assert_screen "boot_enter_passphrase", $timeout; #
238​ type_string get_var("ENCRYPT_PASSWORD");
239​ send_key "ret";
240​}
241​
242​sub check_release {
243​ # Checks whether the installed release matches a given value. E.g.
244​ # `check_release(23)` checks whether the installed system is
245​ # Fedora 23. The value can be 'Rawhide' or a Fedora release
246​ # number; often you will want to use `get_var('VERSION')`. Expects
247​ # a console prompt to be active when it is called.
248​ my $self = shift;
249​ my $release = shift;
250​ my $check_command = "grep SUPPORT_PRODUCT_VERSION /usr/lib/os.release.d/os-release-fedora";
251​ validate_script_output $check_command, sub { $_ =~ m/REDHAT_SUPPORT_PRODUCT_VERSION=$release/ };
252​}
253​
254​sub menu_launch_type {
255​ # Launch an application in a graphical environment, by opening a
256​ # launcher, typing the specified string and hitting enter. Pass
257​ # the string to be typed to launch whatever it is you want.
258​ my $self = shift;
259​ my $app = shift;
260​ # super does not work on KDE, because fml
261​ send_key 'alt-f1';
262​ # srsly KDE y u so slo
263​ wait_still_screen 3;
264​ type_very_safely $app;
265​ send_key 'ret';
266​}
267​
268​sub start_cockpit {
269​ # Starting from a console, get to a browser with Cockpit (running
270​ # on localhost) shown. If $login is truth-y, also log in. Assumes
271​ # X and Firefox are installed.
272​ my $self = shift;
273​ my $login = shift || 0;
274​ # run firefox directly in X as root. never do this, kids!
275​ type_string "startx /usr/bin/firefox -width 1024 -height 768 http://localhost:9090\n";
276​ assert_screen "cockpit_login";
277​ wait_still_screen 5;
278​ if ($login) {
279​ type_safely "root";
280​ wait_screen_change { send_key "tab"; };
281​ type_safely get_var("ROOT_PASSWORD", "weakpassword");
282​ send_key "ret";
283​ assert_screen "cockpit_main";
284​ # wait for any animation or other weirdness
285​ # can't use wait_still_screen because of that damn graph
286​ sleep 3;
287​ }
288​}
289​
290​sub repo_setup {
291​ # disable updates-testing and updates and use the compose location
292​ # as the target for fedora and rawhide rather than mirrorlist, so
293​ # tools see only packages from the compose under test
294​ my $location = get_var("LOCATION");
295​ assert_script_run 'dnf config-manager --set-disabled updates-testing updates';
296​ # we use script_run here as the rawhide repo file won't always exist
297​ # and we don't want to bother testing or predicting its existence;
298​ # assert_script_run doesn't buy you much with sed anyway as it'll
299​ # return 0 even if it replaced nothing
300​ script_run "sed -i -e 's,^metalink,#metalink,g' -e 's,^#baseurl.*basearch,baseurl=${location}/Everything/\$basearch,g' /etc/yum.repos.d/{fedora,fedora-rawhide}.repo", 0;
301​ script_run "cat /etc/yum.repos.d/{fedora,fedora-rawhide}.repo", 0;
302​}
303​
View Options

tests/_boot_to_anaconda.pm

1use base "anacondatest"; 1​use base "anacondatest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5​use anaconda;
5 6​
6sub run { 7​sub run {
7 my $self = shift; 8​ my $self = shift;
8 # construct the kernel params. the trick here is to wind up with 9​ # construct the kernel params. the trick here is to wind up with
9 # spaced params if GRUB or GRUBADD is set, and just spaces if not, 10​ # spaced params if GRUB or GRUBADD is set, and just spaces if not,
10 # then check if we got all spaces. We wind up with a harmless 11​ # then check if we got all spaces. We wind up with a harmless
11 # extra space if GRUBADD is set but GRUB is not. 12​ # extra space if GRUBADD is set but GRUB is not.
12 my $params = ""; 13​ my $params = "";
13 $params .= get_var("GRUB", "") . " "; 14​ $params .= get_var("GRUB", "") . " ";
14 $params .= get_var("GRUBADD", "") . " "; 15​ $params .= get_var("GRUBADD", "") . " ";
15 # Construct inst.repo arg for REPOSITORY_VARIATION 16​ # Construct inst.repo arg for REPOSITORY_VARIATION
16 my $repourl = get_var("REPOSITORY_VARIATION"); 17​ my $repourl = get_var("REPOSITORY_VARIATION");
17 if ($repourl) { 18​ if ($repourl) {
18 $params .= "inst.repo=" . $self->get_full_repo($repourl) . " "; 19​ $params .= "inst.repo=" . get_full_repo($repourl) . " ";
19 } 20​ }
20 $params .= "inst.text " if get_var("ANACONDA_TEXT"); 21​ $params .= "inst.text " if get_var("ANACONDA_TEXT");
21 # inst.debug enables memory use tracking 22​ # inst.debug enables memory use tracking
22 $params .= "debug" if get_var("MEMCHECK"); 23​ $params .= "debug" if get_var("MEMCHECK");
23 # ternary: set $params to "" if it contains only spaces 24​ # ternary: set $params to "" if it contains only spaces
24 $params = $params =~ /^\s+$/ ? "" : $params; 25​ $params = $params =~ /^\s+$/ ? "" : $params;
25 26​
26 # set mutex wait if necessary 27​ # set mutex wait if necessary
27 my $mutex = get_var("INSTALL_UNLOCK"); 28​ my $mutex = get_var("INSTALL_UNLOCK");
28 29​
29 # call do_bootloader with postinstall=0, the params, and the mutex 30​ # call do_bootloader with postinstall=0, the params, and the mutex
30 $self->do_bootloader(postinstall=>0, params=>$params, mutex=>$mutex); 31​ do_bootloader(postinstall=>0, params=>$params, mutex=>$mutex);
31 32​
32 # proceed to installer 33​ # proceed to installer
33 if (get_var("KICKSTART")) { 34​ if (get_var("KICKSTART")) {
34 # wait for the bootloader *here* - in a test that inherits from 35​ # wait for the bootloader *here* - in a test that inherits from
35 # anacondatest - so that if something goes wrong during install, 36​ # anacondatest - so that if something goes wrong during install,
36 # we get anaconda logs 37​ # we get anaconda logs
37 assert_screen "bootloader", 1800; 38​ assert_screen "bootloader", 1800;
38 } 39​ }
▲ Show 20 Lines • Show All 46 Lines • Show Last 20 Lines
View Options

tests/_check_install_source.pm

1use base "anacondatest"; 1​use base "anacondatest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4​use anaconda;
4 5​
5sub run { 6​sub run {
6 my $self = shift; 7​ my $self = shift;
7 my $repourl; 8​ my $repourl;
8 if (get_var("MIRRORLIST_GRAPHICAL")) { 9​ if (get_var("MIRRORLIST_GRAPHICAL")) {
9 $repourl = $self->get_mirrorlist_url(); 10​ $repourl = get_mirrorlist_url();
10 } 11​ }
11 else { 12​ else {
12 $repourl = get_var("REPOSITORY_VARIATION", get_var("REPOSITORY_GRAPHICAL")); 13​ $repourl = get_var("REPOSITORY_VARIATION", get_var("REPOSITORY_GRAPHICAL"));
13 $repourl = $self->get_full_repo($repourl); 14​ $repourl = get_full_repo($repourl);
14 } 15​ }
15 16​
16 # check that the repo was used 17​ # check that the repo was used
17 $self->root_console; 18​ $self->root_console;
18 if ($repourl =~ s/^nfs://) { 19​ if ($repourl =~ s/^nfs://) {
19 # the above both checks if we're dealing with an NFS URL, and 20​ # the above both checks if we're dealing with an NFS URL, and
20 # strips the 'nfs:' from it if so 21​ # strips the 'nfs:' from it if so
21 assert_script_run "grep 'mounting ${repourl}' /tmp/packaging.log"; 22​ assert_script_run "grep 'mounting ${repourl}' /tmp/packaging.log";
Show All 22 Lines
View Options

tests/_console_avc_crash.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use main_common; 3​use utils;
4use testapi; 4​use testapi;
5 5​
6sub run { 6​sub run {
7 my $self = shift; 7​ my $self = shift;
8 $self->root_console(tty=>3); 8​ $self->root_console(tty=>3);
9 # if this is a non-English, non-switched layout, load US layout 9​ # if this is a non-English, non-switched layout, load US layout
10 # at this point 10​ # at this point
11 # FIXME: this is all kind of a mess, as on such configs we need 11​ # FIXME: this is all kind of a mess, as on such configs we need
Show All 21 Lines
View Options

tests/_console_login.pm

1use base "fedorabase"; 1​use base "basetest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub run { 6​sub run {
7 my $self = shift; 7​ my $self = shift;
8 send_key "ctrl-alt-f3"; 8​ send_key "ctrl-alt-f3";
9 9​
10 # do user login unless USER_LOGIN is set to string 'false' 10​ # do user login unless USER_LOGIN is set to string 'false'
11 unless (get_var("USER_LOGIN") eq "false") { 11​ unless (get_var("USER_LOGIN") eq "false") {
12 console_login(user=>get_var("USER_LOGIN", "test"), password=>get_var("USER_PASSWORD", "weakpassword")); 12​ console_login(user=>get_var("USER_LOGIN", "test"), password=>get_var("USER_PASSWORD", "weakpassword"));
Show All 17 Lines
View Options

tests/_console_wait_login.pm

1use base "fedorabase"; 1​use base "basetest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub run { 6​sub run {
7 my $self = shift; 7​ my $self = shift;
8 # If UPGRADE is set, we have to wait for the entire upgrade 8​ # If UPGRADE is set, we have to wait for the entire upgrade
9 my $wait_time = 300; 9​ my $wait_time = 300;
10 $wait_time = 6000 if (get_var("UPGRADE")); 10​ $wait_time = 6000 if (get_var("UPGRADE"));
11 11​
12 # handle bootloader, if requested 12​ # handle bootloader, if requested
13 if (get_var("GRUB_POSTINSTALL")) { 13​ if (get_var("GRUB_POSTINSTALL")) {
14 $self->do_bootloader(postinstall=>1, params=>get_var("GRUB_POSTINSTALL"), timeout=>$wait_time); 14​ do_bootloader(postinstall=>1, params=>get_var("GRUB_POSTINSTALL"), timeout=>$wait_time);
15 $wait_time = 180; 15​ $wait_time = 180;
16 } 16​ }
17 17​
18 # Wait for the text login 18​ # Wait for the text login
19 boot_to_login_screen(timeout => $wait_time); 19​ boot_to_login_screen(timeout => $wait_time);
20 20​
21 # do user login unless USER_LOGIN is set to string 'false' 21​ # do user login unless USER_LOGIN is set to string 'false'
22 unless (get_var("USER_LOGIN") eq "false") { 22​ unless (get_var("USER_LOGIN") eq "false") {
Show All 18 Lines
View Options

tests/_do_install_and_reboot.pm

1use base "anacondatest"; 1​use base "anacondatest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub type_user_password { 6​sub type_user_password {
7 my $self = shift; 7​ my $self = shift;
8 my $user_password = get_var("USER_PASSWORD") || "weakpassword"; 8​ my $user_password = get_var("USER_PASSWORD") || "weakpassword";
9 if (get_var("SWITCHED_LAYOUT")) { 9​ if (get_var("SWITCHED_LAYOUT")) {
10 # we double the password, the second time using the native 10​ # we double the password, the second time using the native
11 # layout, so the password has both ASCII and native characters 11​ # layout, so the password has both ASCII and native characters
12 desktop_switch_layout "ascii", "anaconda"; 12​ desktop_switch_layout "ascii", "anaconda";
▲ Show 20 Lines • Show All 126 Lines • Show Last 20 Lines
View Options

tests/_graphical_input.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub run { 6​sub run {
7 # check both layouts are available at the desktop; here, 7​ # check both layouts are available at the desktop; here,
8 # we can expect input method switching to work too 8​ # we can expect input method switching to work too
9 desktop_switch_layout 'ascii'; 9​ desktop_switch_layout 'ascii';
10 desktop_switch_layout 'native'; 10​ desktop_switch_layout 'native';
11 # special testing for Japanese to ensure input method actually 11​ # special testing for Japanese to ensure input method actually
12 # works. If we ever test other input-method based languages we can 12​ # works. If we ever test other input-method based languages we can
Show All 29 Lines
View Options

tests/_graphical_wait_login.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub run { 6​sub run {
7 my $self = shift; 7​ my $self = shift;
8 # If KICKSTART is set, then the wait_time needs to consider the 8​ # If KICKSTART is set, then the wait_time needs to consider the
9 # install time. if UPGRADE, we have to wait for the entire upgrade 9​ # install time. if UPGRADE, we have to wait for the entire upgrade
10 # unless ENCRYPT_PASSWORD is set (in which case the postinstall 10​ # unless ENCRYPT_PASSWORD is set (in which case the postinstall
11 # test does the waiting) 11​ # test does the waiting)
12 my $wait_time = 300; 12​ my $wait_time = 300;
▲ Show 20 Lines • Show All 76 Lines • Show Last 20 Lines
View Options

tests/_network_static.pm

1use base "anacondatest"; 1​use base "anacondatest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5​use tapnet;
5 6​
6sub run { 7​sub run {
7 my $self = shift; 8​ my $self = shift;
8 assert_and_click "anaconda_main_hub_network_host_name"; 9​ assert_and_click "anaconda_main_hub_network_host_name";
9 assert_and_click "anaconda_network_configure"; 10​ assert_and_click "anaconda_network_configure";
10 assert_and_click "anaconda_network_ipv4"; 11​ assert_and_click "anaconda_network_ipv4";
11 assert_and_click "anaconda_network_method"; 12​ assert_and_click "anaconda_network_method";
12 assert_and_click "anaconda_network_method_manual"; 13​ assert_and_click "anaconda_network_method_manual";
13 assert_and_click "anaconda_network_address_add"; 14​ assert_and_click "anaconda_network_address_add";
14 type_safely get_var('ANACONDA_STATIC'); 15​ type_safely get_var('ANACONDA_STATIC');
15 # netmask is automatically set 16​ # netmask is automatically set
16 type_safely "\t\t"; 17​ type_safely "\t\t";
17 # assume gateway 18​ # assume gateway
18 type_safely "10.0.2.2"; 19​ type_safely "10.0.2.2";
19 # move to DNS servers 20​ # move to DNS servers
20 type_safely "\n\t\t\t"; 21​ type_safely "\n\t\t\t";
21 # set DNS from host 22​ # set DNS from host
22 type_safely join(',', $self->get_host_dns()); 23​ type_safely join(',', get_host_dns());
23 type_safely "\t\t\t\t\t\n"; 24​ type_safely "\t\t\t\t\t\n";
24 # can take a bit of time as it seems to wait for all the pending 25​ # can take a bit of time as it seems to wait for all the pending
25 # DHCP requests to time out before applying the static config 26​ # DHCP requests to time out before applying the static config
26 assert_screen "anaconda_network_connected", 90; 27​ assert_screen "anaconda_network_connected", 90;
27 assert_and_click "anaconda_spoke_done"; 28​ assert_and_click "anaconda_spoke_done";
28} 29​}
29 30​
30sub test_flags { 31​sub test_flags {
Show All 10 Lines
View Options

tests/_support_server.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use lockapi; 4​use lockapi;
5use mmapi; 5​use mmapi;
6​use tapnet;
6 7​
7sub run { 8​sub run {
8 my $self=shift; 9​ my $self=shift;
9 # clone host's /etc/hosts (for phx2 internal routing to work) 10​ # clone host's /etc/hosts (for phx2 internal routing to work)
10 # must come *before* setup_tap_static or else it would overwrite 11​ # must come *before* setup_tap_static or else it would overwrite
11 # its changes 12​ # its changes
12 $self->clone_host_file("/etc/hosts"); 13​ clone_host_file("/etc/hosts");
13 # set up networking 14​ # set up networking
14 $self->setup_tap_static("10.0.2.110", "support.domain.local"); 15​ setup_tap_static("10.0.2.110", "support.domain.local");
15 $self->clone_host_file("/etc/resolv.conf"); 16​ clone_host_file("/etc/resolv.conf");
16 17​
17 ## DNS / DHCP (dnsmasq) 18​ ## DNS / DHCP (dnsmasq)
18 # create config 19​ # create config
19 assert_script_run "printf 'domain=domain.local\ndhcp-range=10.0.2.112,10.0.2.199\ndhcp-option=option:router,10.0.2.2' > /etc/dnsmasq.conf"; 20​ assert_script_run "printf 'domain=domain.local\ndhcp-range=10.0.2.112,10.0.2.199\ndhcp-option=option:router,10.0.2.2' > /etc/dnsmasq.conf";
20 # open firewall ports 21​ # open firewall ports
21 assert_script_run "firewall-cmd --add-service=dhcp"; 22​ assert_script_run "firewall-cmd --add-service=dhcp";
22 assert_script_run "firewall-cmd --add-service=dns"; 23​ assert_script_run "firewall-cmd --add-service=dns";
23 # start server 24​ # start server
▲ Show 20 Lines • Show All 56 Lines • Show Last 20 Lines
View Options

tests/base_service_manipulation.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub run { 6​sub run {
7 my $self = shift; 7​ my $self = shift;
8 # switch to TTY3 for both, graphical and console tests 8​ # switch to TTY3 for both, graphical and console tests
9 $self->root_console(tty=>3); 9​ $self->root_console(tty=>3);
10 # we could make this slightly more 'efficient' by assuming sshd 10​ # we could make this slightly more 'efficient' by assuming sshd
11 # is always going to be enabled/running at first, but it's safer 11​ # is always going to be enabled/running at first, but it's safer
12 # to force an expected starting state. 12​ # to force an expected starting state.
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines
View Options

tests/database_client.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use lockapi; 4​use lockapi;
5​use tapnet;
6​use utils;
5 7​
6sub run { 8​sub run {
7 my $self=shift; 9​ my $self=shift;
8 # clone host's /etc/hosts (for phx2 internal routing to work) 10​ # clone host's /etc/hosts (for phx2 internal routing to work)
9 # must come *before* setup_tap_static or else it would overwrite 11​ # must come *before* setup_tap_static or else it would overwrite
10 # its changes 12​ # its changes
11 $self->clone_host_file("/etc/hosts"); 13​ clone_host_file("/etc/hosts");
12 # set up networking 14​ # set up networking
13 $self->setup_tap_static("10.0.2.105", "dbclient.domain.local"); 15​ setup_tap_static("10.0.2.105", "dbclient.domain.local");
14 # clone host's resolv.conf to get name resolution 16​ # clone host's resolv.conf to get name resolution
15 $self->clone_host_file("/etc/resolv.conf"); 17​ clone_host_file("/etc/resolv.conf");
16 # use compose repo, disable u-t, etc. 18​ # use compose repo, disable u-t, etc.
17 $self->repo_setup(); 19​ repo_setup();
18 # install postgresql 20​ # install postgresql
19 assert_script_run "dnf -y install postgresql", 120; 21​ assert_script_run "dnf -y install postgresql", 120;
20 # wait for the server to be ready 22​ # wait for the server to be ready
21 mutex_lock "db_ready"; 23​ mutex_lock "db_ready";
22 mutex_unlock "db_ready"; 24​ mutex_unlock "db_ready";
23 # check we can connect to the database and create a table 25​ # check we can connect to the database and create a table
24 assert_script_run "PGPASSWORD=correcthorse psql openqa -h 10.0.2.104 -U openqa -c 'CREATE TABLE test2 (testcol int);'"; 26​ assert_script_run "PGPASSWORD=correcthorse psql openqa -h 10.0.2.104 -U openqa -c 'CREATE TABLE test2 (testcol int);'";
25} 27​}
Show All 12 Lines
View Options

tests/desktop_browser.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6# we are very paranoid with waits and typing speed in this test 6​# we are very paranoid with waits and typing speed in this test
7# because the system can be very busy; it's effectively first boot of 7​# because the system can be very busy; it's effectively first boot of
8# a freshly installed system and we're running Firefox for the first 8​# a freshly installed system and we're running Firefox for the first
9# time, which causes an awful lot of system load, and there's lots of 9​# time, which causes an awful lot of system load, and there's lots of
10# screen change potentially going on. This makes the test quite slow, 10​# screen change potentially going on. This makes the test quite slow,
11# but it's best to be safe. If you're working on the test you might 11​# but it's best to be safe. If you're working on the test you might
12# want to tweak the waits down a bit and use type_safely instead of 12​# want to tweak the waits down a bit and use type_safely instead of
▲ Show 20 Lines • Show All 59 Lines • Show Last 20 Lines
View Options

tests/desktop_notifications.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5use packagetest; 5​use packagetest;
6 6​
7# This test sort of covers QA:Testcase_desktop_update_notification 7​# This test sort of covers QA:Testcase_desktop_update_notification
8# and QA:Testcase_desktop_error_checks . If it fails, probably *one* 8​# and QA:Testcase_desktop_error_checks . If it fails, probably *one*
9# of those failed, but we don't know which (deciphering which is 9​# of those failed, but we don't know which (deciphering which is
10# tricky and involves likely-fragile needles to try and figure out 10​# tricky and involves likely-fragile needles to try and figure out
11# what notifications we have). 11​# what notifications we have).
12 12​
13sub run { 13​sub run {
14 my $self = shift; 14​ my $self = shift;
15 my $desktop = get_var("DESKTOP"); 15​ my $desktop = get_var("DESKTOP");
16 # for the live image case, handle bootloader here 16​ # for the live image case, handle bootloader here
17 if (get_var("BOOTFROM")) { 17​ if (get_var("BOOTFROM")) {
18 $self->do_bootloader(postinstall=>1, params=>'3'); 18​ do_bootloader(postinstall=>1, params=>'3');
19 } 19​ }
20 else { 20​ else {
21 $self->do_bootloader(postinstall=>0, params=>'3'); 21​ do_bootloader(postinstall=>0, params=>'3');
22 } 22​ }
23 boot_to_login_screen; 23​ boot_to_login_screen;
24 $self->root_console(tty=>3); 24​ $self->root_console(tty=>3);
25 # ensure we actually have some package updates available 25​ # ensure we actually have some package updates available
26 prepare_test_packages; 26​ prepare_test_packages;
27 if ($desktop eq 'gnome') { 27​ if ($desktop eq 'gnome') {
28 # On GNOME, move the clock forward if needed, because it won't 28​ # On GNOME, move the clock forward if needed, because it won't
29 # check for updates before 6am(!) 29​ # check for updates before 6am(!)
▲ Show 20 Lines • Show All 81 Lines • Show Last 20 Lines
View Options

tests/desktop_terminal.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5 5​
6sub run { 6​sub run {
7 my $self=shift; 7​ my $self=shift;
8 assert_screen 'graphical_desktop_clean'; 8​ assert_screen 'graphical_desktop_clean';
9 $self->menu_launch_type('terminal'); 9​ menu_launch_type('terminal');
10 wait_still_screen 5; 10​ wait_still_screen 5;
11 # need to be root 11​ # need to be root
12 my $rootpass = get_var("ROOT_PASSWORD", "weakpassword"); 12​ my $rootpass = get_var("ROOT_PASSWORD", "weakpassword");
13 type_string "su\n", 20; 13​ type_string "su\n", 20;
14 wait_still_screen 3; 14​ wait_still_screen 3;
15 # can't use type_safely for now as current implementation relies 15​ # can't use type_safely for now as current implementation relies
16 # on screen change checks, and there is no screen change here 16​ # on screen change checks, and there is no screen change here
17 type_string "$rootpass\n", 1; 17​ type_string "$rootpass\n", 1;
Show All 19 Lines
View Options

tests/desktop_update_graphical.pm

1use base "installedtest"; 1​use base "installedtest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4use main_common; 4​use utils;
5use packagetest; 5​use packagetest;
6 6​
7sub run { 7​sub run {
8 my $self = shift; 8​ my $self = shift;
9 my $desktop = get_var('DESKTOP'); 9​ my $desktop = get_var('DESKTOP');
10 # use a tty console for repo config and package prep 10​ # use a tty console for repo config and package prep
11 $self->root_console(tty=>3); 11​ $self->root_console(tty=>3);
12 assert_script_run 'dnf config-manager --set-disabled updates-testing'; 12​ assert_script_run 'dnf config-manager --set-disabled updates-testing';
13 prepare_test_packages; 13​ prepare_test_packages;
14 # get back to the desktop 14​ # get back to the desktop
15 desktop_vt; 15​ desktop_vt;
16 # run the updater 16​ # run the updater
17 if ($desktop eq 'kde') { 17​ if ($desktop eq 'kde') {
18 # KDE team tells me the 'preferred' update method is the 18​ # KDE team tells me the 'preferred' update method is the
19 # systray applet 19​ # systray applet
20 assert_and_click 'desktop_expand_systray'; 20​ assert_and_click 'desktop_expand_systray';
21 } 21​ }
22 else { 22​ else {
23 # this launches GNOME Software on GNOME, dunno for any other 23​ # this launches GNOME Software on GNOME, dunno for any other
24 # desktop yet 24​ # desktop yet
25 $self->menu_launch_type('update'); 25​ menu_launch_type('update');
26 } 26​ }
27 # GNOME Software has a welcome screen, get rid of it if it shows 27​ # GNOME Software has a welcome screen, get rid of it if it shows
28 # up (but don't fail if it doesn't, we're not testing that) 28​ # up (but don't fail if it doesn't, we're not testing that)
29 if ($desktop eq 'gnome' && check_screen 'gnome_software_welcome', 10) { 29​ if ($desktop eq 'gnome' && check_screen 'gnome_software_welcome', 10) {
30 send_key 'ret'; 30​ send_key 'ret';
31 } 31​ }
32 # go to the 'update' interface. For GNOME, we may be waiting 32​ # go to the 'update' interface. For GNOME, we may be waiting
33 # some time at a 'Software catalog is being loaded' screen. 33​ # some time at a 'Software catalog is being loaded' screen.
▲ Show 20 Lines • Show All 63 Lines • Show Last 20 Lines
View Options

tests/disk_custom_btrfs.pm

1use base "anacondatest"; 1​use base "anacondatest";
2use strict; 2​use strict;
3use testapi; 3​use testapi;
4​use anaconda;
4 5​
5sub run { 6​sub run {
6 my $self = shift; 7​ my $self = shift;
7 # Go to INSTALLATION DESTINATION and ensure the disk is selected. 8​ # Go to INSTALLATION DESTINATION and ensure the disk is selected.
8 # Because PARTITIONING starts with 'custom_', this will select custom. 9​ # Because PARTITIONING starts with 'custom_', this will select custom.
9 $self->select_disks(); 10​ select_disks();
10 assert_and_click "anaconda_spoke_done"; 11​ assert_and_click "anaconda_spoke_done";
11 12​
12 # Manual partitioning spoke should be displayed. Select BTRFS 13​ # Manual partitioning spoke should be displayed. Select BTRFS
13 # partitioning scheme 14​ # partitioning scheme
14 $self->custom_scheme_select("btrfs"); 15​ custom_scheme_select("btrfs");
15 assert_and_click "anaconda_part_automatic"; 16​ assert_and_click "anaconda_part_automatic";
16 assert_and_click "anaconda_spoke_done"; 17​ assert_and_click "anaconda_spoke_done";
17 assert_and_click "anaconda_part_accept_changes"; 18​ assert_and_click "anaconda_part_accept_changes";
18 19​
19 # Anaconda hub 20​ # Anaconda hub
20 assert_screen "anaconda_main_hub", 300; # 21​ assert_screen "anaconda_main_hub", 300; #
21 22​
22} 23​}
Show All 12 Lines
View Options

tests/disk_custom_ext3.pm

Loading...
View Options

tests/disk_custom_iscsi.pm

Loading...
View Options

tests/disk_custom_lvmthin.pm

Loading...
View Options

tests/disk_custom_no_swap.pm

Loading...
View Options

tests/disk_custom_software_raid.pm

Loading...
View Options

tests/disk_custom_xfs.pm

Loading...
View Options

tests/disk_guided_delete_all.pm

Loading...
View Options

tests/disk_guided_delete_partial.pm

Loading...
View Options

tests/disk_guided_empty.pm

Loading...
View Options

tests/disk_guided_encrypted.pm

Loading...
View Options

tests/disk_guided_multi.pm

Loading...
View Options

tests/disk_guided_multi_empty_all.pm

Loading...
View Options

tests/disk_guided_shrink.pm

Loading...
View Options

tests/freeipa_client.pm

Loading...
View Options

tests/freeipa_password_change.pm

Loading...
View Options

tests/freeipa_webui.pm

Loading...
View Options

tests/install_arm_image_deployment.pm

Loading...
View Options

tests/install_source_graphical.pm

Loading...
View Options

tests/install_text.pm

Loading...
View Options

tests/realmd_join_cockpit.pm

Loading...
View Options

tests/realmd_join_sssd.pm

Loading...
View Options

tests/role_deploy_database_server.pm

Loading...
View Options

tests/role_deploy_domain_controller.pm

Loading...
View Options

tests/server_cockpit_basic.pm

Loading...
View Options

tests/server_cockpit_default.pm

Loading...
View Options

tests/upgrade_postinstall.pm

Loading...
View Options

tests/upgrade_preinstall.pm

Loading...
View Options

tests/upgrade_run.pm

Loading...