sympa-6.2.62/t/Tools_SMIME.t

14 use Sympa::Tools::SMIME;
30 ok(!Sympa::Tools::SMIME::find_keys('*', 'sign'), 'empty directory');
41 ok(!Sympa::Tools::SMIME::find_keys('*', 'sign'),
48 ok(!Sympa::Tools::SMIME::find_keys('*', 'sign'), 'directory with key only');
56     [Sympa::Tools::SMIME::find_keys('*', 'sign')],
62     [Sympa::Tools::SMIME::find_keys('*', 'encrypt')],
68     [Sympa::Tools::SMIME::find_keys('*', 'decrypt')],
79     [Sympa::Tools::SMIME::find_keys('*', 'sign')],
85     [Sympa::Tools::SMIME::find_keys('*', 'encrypt')],
91     [Sympa::Tools::SMIME::find_keys('*', 'decrypt')],
98 ok(!Sympa::Tools::SMIME::parse_cert(), 'neither text nor file given',);
100 ok( !Sympa::Tools::SMIME::parse_cert(file => '/no/where'),
104 ok(!Sympa::Tools::SMIME::parse_cert(text => ''), 'empty string',);
123     is_deeply(Sympa::Tools::SMIME::parse_cert(file => $cert_file,),
126     is_deeply(Sympa::Tools::SMIME::parse_cert(text => $cert_string,),
145     is_deeply(Sympa::Tools::SMIME::parse_cert(file => $ca_cert_file,),