File: 0-signature.t

package info (click to toggle)
libacme-brainfck-perl 1.1.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, jessie, jessie-kfreebsd, lenny, sarge, squeeze, wheezy
  • size: 92 kB
  • ctags: 9
  • sloc: perl: 107; makefile: 50
file content (15 lines) | stat: -rw-r--r-- 503 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use Test::More tests => 1;

SKIP: {
    if (!eval { require Module::Signature; 1 }) {
        skip("Next time around, consider install Module::Signature, ".
             "so you can verify the integrity of this distribution.", 1);
    }
    elsif (!eval { require Socket; Socket::inet_aton('wwwkeys.pgp.net') }) {
        skip("Cannot connect to the keyserver", 1);
    }
    else {
        ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK()
            => "Valid signature" );
    }
}