tests: Add tests for the PGP trust model.
[gnupg.git] / tests / openpgp / clearsig.scm
index 96b1b4c..b1c72c2 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-signing args input)
   (lambda (source sink)
     (lettmp (signed)
            (call-popen `(,@GPG --output ,signed --yes
                                ,@args ,source) input)
-           (call-popen `(,@GPG --output ,sink --yes ,signed) ""))))
+           (call-popen `(,@GPG --output ,sink --yes --verify ,signed) ""))))
 
 (for-each-p
  "Checking signing and verifying plain text messages"
@@ -36,7 +37,7 @@
        ;; Otherwise, we do check that we recover the original file.
        check-identity)
     source
-    (check-signing '(--passphrase-fd "0" --clearsign) usrpass1)))
+    (check-signing '(--passphrase-fd "0" --clear-sign) usrpass1)))
  (append plain-files '("plain-large")))
 
 ;; The test vectors are lists of length three, containing
@@ -101,7 +102,7 @@ there is a blank line after this
        (with-output-to-file tmp (lambda () (display (:string vec))))
        ((if (:check-equality vec) check-identity check-execution)
        tmp
-       (check-signing `(--passphrase-fd "0" --clearsign ,@(:options vec))
+       (check-signing `(--passphrase-fd "0" --clear-sign ,@(:options vec))
                       usrpass1))))
    (lambda (vec) (counter))
    vectors))