diff options
Diffstat (limited to 'tests/openpgp/4gb-packet.scm')
| -rwxr-xr-x | tests/openpgp/4gb-packet.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/openpgp/4gb-packet.scm b/tests/openpgp/4gb-packet.scm new file mode 100755 index 000000000..040732ecf --- /dev/null +++ b/tests/openpgp/4gb-packet.scm @@ -0,0 +1,10 @@ +#!/usr/bin/env gpgscm + +;; GnuPG through 2.1.7 would incorrect mark packets whose size is +;; 2^32-1 as invalid and exit with status code 2. + +(load (with-path "defs.scm")) + +(if (= 0 (call `(,@GPG --list-packets ,(in-srcdir "4gb-packet.asc")))) + (info "Can parse 4GB packets.") + (error "Failed to parse 4GB packet.")) |