/
githubmirror
/
libpcap
Обзор
Документация
Войти
/
githubmirror
/
libpcap
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
testprogs/TESTst.pm
31 строка
670 B
Denis Ovsienko
Factor TESTlib.pm out. [skip appveyor]
06 фев 2025, 16:13
06 фев 2025, 16:13
b9a68a5
Код
Авторство
О чём код?
require 5.8.4; # Solaris 10 use strict; use warnings FATAL => qw(uninitialized); # TESTlib.pm use subs qw(get_njobs); # TESTrun helper functions (single-threaded implementation). my @tests; sub my_tmp_id { return 'main'; } sub start_tests { print "INFO: This Perl does not support threads.\n"; my $njobs = get_njobs; die "ERROR: Impossible to run $njobs tester threads!" if $njobs > 1; @tests = @_; } # Here ordering of the results is obviously the same as ordering of the tests. sub get_next_result { my $test = shift @tests; return undef unless defined $test; my $result = $test->{func} ($test); $result->{label} = $test->{label}; return $result; } 1;