Test::Fake::HTTPD использует Test::TCP https://metacpan.org/module/Test::TCP
там есть то что нужно: my $port = empty_port(); 14 мая 2012 г., 14:53 пользователь Eugene Ardarov <[email protected]> написал: > Test::Fake::HTTPD? > http://www.effectiveperlprogramming.com/blog/1463 > > 14 мая 2012 г., 14:51 пользователь Alexandr Alexeev <[email protected]> > написал: >> Я бы методом тыка искал. На обычной системе свободный порт почти наверняка с >> первой попытки найдется. >> >> 14 мая 2012 г., 14:40 пользователь Ivan Petrov <[email protected]> >> написал: >> >>> >>> Нужно в тесте поднять тестовый сервер и поделать к нему несколько >>> запросов. Соответственно надо сделать сабж. то есть нужна либо функция >>> которая по номеру порта скажет свободен он или нет, либо функция >>> которая возвращает номер свободного порта в диапазоне от-до. >>> >>> конечно можно что-то запилить свое, но может есть что-то готовое? >>> задача какбы повторяющаяся >>> -- >>> Moscow.pm mailing list >>> [email protected] | http://moscow.pm.org >> >> >> >> >> -- >> С уважением, Александр >> Личный блог: http://eax.me/ >> Мой форум: http://it-talk.org/ >> Мой Twitter: http://twitter.com/afiskon >> >> >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org >> > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
