Merge branch 'STABLE-BRANCH-2-2' into master
[gnupg.git] / tests / openpgp / gpgtar.scm
index 07f2fd7..906707f 100755 (executable)
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, see <http://www.gnu.org/licenses/>.
 
-(load (with-path "defs.scm"))
+(load (in-srcdir "tests" "openpgp" "defs.scm"))
+(setup-legacy-environment)
 
-(unless (= 0 (call `(,(tool 'gpgtar) --help)))
-       (skip "gpgtar not installed"))
+(catch (skip "gpgtar not built")
+       (call-check `(,(tool 'gpgtar) --help)))
 
 (define testfiles (append plain-files data-files))
 (define gpgargs
@@ -42,7 +43,7 @@
      (tr:call-with-content
       (lambda (c)
        (unless (all (lambda (f) (string-contains? c f)) testfiles)
-               (error "some file(s) are missing from archive")))))
+               (fail "some file(s) are missing from archive")))))
 
     (with-temporary-working-directory
      (call-check `(,(tool 'gpgtar) --gpg ,(tool 'gpg) --gpg-args ,gpgargs
@@ -52,7 +53,7 @@
 
      (for-each
       (lambda (f) (unless (call-with-input-file f (lambda (x) #t))
-                         (error (string-append "missing file: " f))))
+                         (fail (string-append "missing file: " f))))
       testfiles))))
 
 (info "Checking gpgtar without encryption")
@@ -83,7 +84,8 @@
 
     (info "Checking gpgtar with symmetric encryption and chosen cipher")
     (do-test `(,@ppflags --symmetric --gpg-args
-                        ,(string-append "--cipher=" (car all-cipher-algos)))
+                        ,(string-append "--cipher="
+                                        (car (force all-cipher-algos))))
             ppflags (cons '--decrypt ppflags))
 
     (info "Checking gpgtar with both symmetric and asymmetric encryption")