test/recipes/01-test_abort.t

   1 #! /usr/bin/perl
   2
   3 use OpenSSL::Test;
   4
   5 setup("test_abort");
   6
   7 plan tests => 1;
   8
   9 is(run(test(["aborttest"])), 0, "Testing that abort is caught correctly");