tests/key.scm: Bugfix: Handle DSA deprecation properly

* tests/key.scm: Bugfix: Don't try to load a DSA key when DSA is not supported.
artyom-poptsov · Sep 24, 2024 · c135950 · c135950
1 parent bbff63f
commit c135950
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tests/key.scm b/tests/key.scm
@@ -1,6 +1,6 @@
 ;;; key.scm -- Testing of Guile-SSH keys
 
-;; Copyright (C) 2014-2022 Artyom V. Poptsov <[email protected]>
+;; Copyright (C) 2014-2024 Artyom V. Poptsov <[email protected]>
 ;;
 ;; This file is a part of Guile-SSH.
 ;;
@@ -70,7 +70,8 @@
   (private-key-from-file %ecdsakey))
 
 (define *rsa-pub-key*   (public-key-from-file %rsakey-pub))
-(define *dsa-pub-key*   (public-key-from-file %dsakey-pub))
+(define *dsa-pub-key*   (and (dsa-support?)
+                             (public-key-from-file %dsakey-pub)))
 (define *ecdsa-pub-key* (when-openssl
                          (public-key-from-file %ecdsakey-pub)))