[nongnu] elpa/hyperdrive 677ccc02f1 08/16: Tests: Fix test on older Orgs

[ELPA Syncer]

branch: elpa/hyperdrive
commit 677ccc02f194b355382a4eb87d3d5201d2f007c9
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Tests: Fix test on older Orgs
    
    Apparently Org used to put the link in the description as well.
---
 tests/test-hyperdrive-org.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/tests/test-hyperdrive-org.el b/tests/test-hyperdrive-org.el
index 9f27e22f70..1a8fd336bc 100644
--- a/tests/test-hyperdrive-org.el
+++ b/tests/test-hyperdrive-org.el
@@ -115,7 +115,14 @@ Point is indicated by ★."
                      (hyperdrive-test-org-store-link content
                        :public-key public-key :path path)))
          (should (string= expected-url got-url))
-         (should (string= expected-desc got-desc))))))
+         (should (string= ,(if ;; TODO(deprecate-27): Remove this hack someday.
+                               (and (version<= org-version "9.4.4")
+                                    (equal scenario 'org-mode-before-heading))
+                               '(progn
+                                 (ignore expected-desc)
+                                 expected-url)
+                             'expected-desc)
+                          got-desc))))))
 
 ;; TODO: Loop through `hyperdrive-test-org-store-link-scenarios'?
 (hyperdrive-test-org-store-link-deftest org-mode-before-heading)