24 lines
482 B
Perl
24 lines
482 B
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
$self->root_console(tty => 3);
|
|
# figure out which packages from the update actually got installed
|
|
# (if any) as part of this test
|
|
advisory_get_installed_packages;
|
|
# figure out if we have a different version of any package from the
|
|
# update installed
|
|
advisory_check_nonmatching_packages;
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|