pike.git / lib / modules / Standards.pmod / testsuite.in

version» Context lines:

pike.git/lib/modules/Standards.pmod/testsuite.in:429:    m = Standards.X509.verify_certificate_chain( ({ c }), auths, 1);    if(!m->verified || m->error_code!=Standards.X509.CERT_TOO_NEW)    return m+(["line":__LINE__]);       return 1;   ]], 1)      test_true(mappingp(Standards.X509.load_authorities()))      define(test_cert, ([[ -  test_true(Standards.X509.verify_certificate(Standards.PEM.Messages(#"$1")->parts->CERTIFICATE->body, ([]))) +  test_true(Standards.X509.verify_certificate(Standards.PEM.Messages(#"$1")->parts->CERTIFICATE[0]->body, ([])))    test_any([[ -  string der = Standards.PEM.Messages(#"$1")->parts->CERTIFICATE->body; +  string der = Standards.PEM.Messages(#"$1")->parts->CERTIFICATE[0]->body;    object o = decode_value(encode_value(Standards.X509.decode_certificate(der)));    /* TBS does not contain the full certificate... */    /* if( o->get_der() != der ) return -1; */       if( o->ext_basicConstraints != 1) return 2;    if( !o->public_key->pkc ) return 3;    return 1;    ]], 1)   ]]))