1 2 3 4 5 6 7 8 9 10 11 12
#! /usr/bin/perl use strict; use warnings; use Test::More; use OpenSSL::Test; setup("test_md4"); plan tests => 1; ok(run(test(["md4test"])), "running md4test");