54 lines
2.4 KiB
Perl
54 lines
2.4 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This script tests that we can update (and downgrade) flatpaks. We will
|
|
# use a test repository with a Dummy application.
|
|
|
|
sub run {
|
|
|
|
my $self = shift;
|
|
$self->root_console(tty => 3);
|
|
# We will need Flathub to pull dependencies.
|
|
# Flathub is not set as a Flatpak remote by default, only when Third Party Repos
|
|
# are enabled. To make sure, we have it enabled, we will use the following command to
|
|
# add the Flathub repository.
|
|
assert_script_run("sudo flatpak remote-add --if-not-exists flathub https://dl.flathub.org/repo/flathub.flatpakrepo", timeout => 120);
|
|
# We will also add the test repository.
|
|
assert_script_run("flatpak remote-add --if-not-exists flatpaktest https://lruzicka.fedorapeople.org/flatpaktest/flatpaktest.flatpakrepo", timeout => 120);
|
|
|
|
# Install the Dummy application.
|
|
assert_script_run("flatpak install -y org.flatpak.Dummy", timeout => 600);
|
|
# Check that the application has been installed
|
|
assert_script_run("flatpak list | grep org.flatpak.Dummy");
|
|
|
|
# The application is installed in version 2. Let's check the output.
|
|
validate_script_output("flatpak run org.flatpak.Dummy", sub { m/Dummy flatpak: version 2/ });
|
|
|
|
# Now, we will attempt to downgrade the application to force the previous commit
|
|
assert_script_run("flatpak update -y --commit=37be70fa26aa652379f968a7aaf7b63fa515483b9381756cd371c8174ae68626 org.flatpak.Dummy");
|
|
|
|
# If that was successful, the output of the application will show version 1.
|
|
validate_script_output("flatpak run org.flatpak.Dummy", sub { m/Dummy flatpak: version 1/ });
|
|
|
|
# Now we can update the application again, using the standard command, which will update to the
|
|
# newest version (version 2) of the application again.
|
|
assert_script_run("flatpak update -y org.flatpak.Dummy");
|
|
# Let's check the application now provides the correct output.
|
|
validate_script_output("flatpak run org.flatpak.Dummy", sub { m/Dummy flatpak: version 2/ });
|
|
|
|
# Now, remove the package and test that it is not listed and that it cannot be run.
|
|
assert_script_run("flatpak remove -y org.flatpak.Dummy");
|
|
validate_script_output("flatpak list", sub { $_ !~ m/org\.flatpak\.Dummy/ });
|
|
assert_script_run("! flatpak run org.flatpak.Dummy", sub { $_ !~ m/Dummy flatpak: version 2/ });
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|