1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-14 02:34:21 +00:00
os-autoinst-distri-fedora/tests/fedora_release.pm

37 lines
1.1 KiB
Perl
Raw Normal View History

use base "installedtest";
use strict;
use testapi;
use utils;
# This test checks that Fedora release is correctly described in /etc/fedora-release file.
# The content of the file should be: "Fedora release <version> (<version_words>)"
# where "version" is a number of the current Fedora version and "version_words" is the number
# quoted in words, such as 31 = Thirty One.
# Before branching, the parenthesis contain the word "Rawhide".
sub run {
my $self = shift;
# Version as defined in the VERSION variable.
my $version = get_var('VERSION');
# Create a spelt form of the version number.
my $speltnum = spell_version_number($version);
if ($version eq "Rawhide") {
# this is the Rawhide release number, which we expect to see.
$version = get_var('RAWREL');
}
# Create the expected content of the release file
# and compare it with its real counterpart.
my $expected = "Fedora release $version ($speltnum)";
validate_script_output 'cat /etc/fedora-release', sub { $_ eq $expected };
}
sub test_flags {
return {always_rollback => 1};
}
1;
# vim: set sw=4 et: