Unit test framework для языка Perl
Хотя на работе я пишу в основном на 2-х языках, на C++ и Perl, идея того, что юнит тесты можно писать и для скриптов на Perl'е, а не только для C++ программ, пришла мне в голову относительно недавно. Perl не относится к числу простых в изучении языков, да и синтаксис у него такой, что можно голову сломать порою, так что автоматизированная проверка скриптов на то, что они делают то, для чего они были написаны, в общем, не плохая идея.
С относительно простыми скриптами можно конечно и без автоматизированного тестирования обойтись, но по мере того, как они начинают усложняться и увеличиваться в длину, да ещё, по идее, требовать рефакторинга с целью выделения общего кода для нескольких скриптов в отдельный модуль, юнит тесты становятся уже жизненной необходимостью. Да что там модули, даже для отдельных регулярных выражениий совсем неплохо бы иметь по нескольку юнит тестов, чтобы понимать, что они правильно обрабатывают разные входные данные: поди пойми без бутылки, что делает нечто подобное:
s/((?:(?! [-_] )[\w-]+\.)+[A-Za-z][\w-]+)/"$1 "( ($addr = gethostbyname($1))?"[" . inet_ntoa($addr) . "]" : "???")/gex;
Полез искать юнит тест фреймворк для Perl'а - нашёл несколько, но реально попробовал только один: Test::More.
Читать дальше... - Unit test framework для языка Perl
LiveJournal Tags: программирование,perl,how to