mirror of
https://github.com/rocky-linux/os-autoinst-distri-rocky.git
synced 2024-12-23 03:08:30 +00:00
18 lines
342 B
Perl
18 lines
342 B
Perl
|
package main_common;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
use base 'Exporter';
|
||
|
use Exporter;
|
||
|
|
||
|
use testapi;
|
||
|
|
||
|
our @EXPORT = qw/run_with_error_check/;
|
||
|
|
||
|
sub run_with_error_check {
|
||
|
my ($func, $error_screen) = @_;
|
||
|
die "Error screen appeared" if (check_screen $error_screen, 5);
|
||
|
$func->();
|
||
|
die "Error screen appeared" if (check_screen $error_screen, 5);
|
||
|
}
|