Набор тестов, входящий в состав дистрибутива Perl 1, выполняется Perl 5.10 на 91%.
В книге Masterminds of Programming, в которой собраны интервью с создателями семнадцати языков программирования, я прочитал, как Ларри Уолл заметил, что многие тесты, которые были написаны для первой версии перла, правильно работают и под Perl 5.
Что ж, пробуем.
Дистрибутив Perl 1 доступен на сайте dev.perl.org. В нем есть папка t, в которой находятся около 50 файлов с тестами:
base.cond, base.if, base.lex, base.pat, base.term, cmd.elsif, cmd.for, cmd.mod, cmd.subval, cmd.while, comp.cmdopt, comp.cpp, comp.decl, comp.multiline, comp.script, comp.term, io.argv, io.fs, io.inplace, io.print, io.tell, op.append, op.auto, op.chop, op.cond, op.crypt, op.do, op.each, op.exec, op.exp, op.flip, op.fork, op.goto, op.int, op.join, op.list, op.magic, op.oct, op.ord, op.pat, op.push, op.repeat, op.sleep, op.split, op.sprintf, op.stat, op.subst, op.time, op.unshift
Имена довольно необычны для современных тестов. В добавок в комплекте есть файл TEST, который выполняет роль современной утилиты prove. Сам этот файл работать не хочет, но prove вполне работает:
$ prove *.*
Сводка с результатом работы выглядит так:
Failed 14/49 test scripts. 26/305 subtests failed.
Files=49, Tests=305, 7 wallclock secs ( 1.39 cusr + 0.47 csys = 1.86 CPU)
Failed 14/49 test programs. 26/305 subtests failed.
Из 305 тестов с ошибкой завершились только 26. И это после 20 лет разрабоки языка, невероятно!