if !ok(run(perlapp(["CA.pl","-newreq"])),
'creating certificate request');
if !ok(run(perlapp(["CA.pl","-newreq"])),
'creating certificate request');
skip "failed to sign certificate request", 2
if !is(yes(cmdstr(perlapp(["CA.pl", "-sign"]))), 0,
'signing certificate request');
skip "failed to sign certificate request", 2
if !is(yes(cmdstr(perlapp(["CA.pl", "-sign"]))), 0,
'signing certificate request');