Merge branch 'STABLE-BRANCH-2-2' into master
[gnupg.git] / tests / openpgp / export.scm
index a79411c..aa6fa78 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)
 
 (define (check-for predicate lines message)
   (unless (any predicate lines)
-         (error message)))
+         (fail message)))
 
 (define (check-exported-key dump keyid)
   (check-for (lambda (l)
@@ -68,7 +68,7 @@
      (lambda (port)
        (unless
        (eof-object? (peek-char port))
-       (error (string-append
+       (fail (string-append
                "Expected all passphrases to be consumed, but found: "
                (read-all port)))))))