general snapper_rollback:
use base "consoletest";
use testapi;
use utils;
use strict;
use warnings;
use migration 'check_rollback_system';
use power_action_utils 'power_action';
use Utils::Backends 'is_pvm';
sub run {
my ($self) = @_;
if (!check_screen 'linux-login', 200) {
assert_screen 'displaymanager', 90;
}
select_console 'root-console';
# 1)
script_run('touch NOWRITE;test ! -f NOWRITE', 0);
# 1b) just debugging infos
script_run("snapper list", 0);
script_run("cat /etc/os-release", 0);
# rollback
script_run("snapper rollback -d rollback-before-migration");
assert_script_run("snapper list | tail -n 2 | grep rollback", 180);
power_action('reboot', textmode => 1, keepconsole => 1);
reconnect_mgmt_console if is_pvm;
$self->wait_boot(ready_time => 300, bootloader_time => 300);
select_console 'root-console';
check_rollback_system;
}
sub test_flags {
return {fatal => 1};
}
online_migration/snapper_rollback:
use base "consoletest";
use strict;
use warnings;
use testapi;
use power_action_utils 'power_action';
use version_utils 'is_desktop_installed';
use migration 'check_rollback_system';
sub run {
my ($self) = @_;
if (!check_screen 'linux-login', 200) {
assert_screen 'displaymanager', 90;
}
select_console 'root-console';
script_run "snapper rollback";
# reboot into the system before online migration
power_action('reboot', textmode => 1, keepconsole => 1);
$self->wait_boot(textmode => !is_desktop_installed);
select_console 'root-console';
check_rollback_system;
}