Ignore:
Timestamp:
11/03/20 07:40:40 (2 years ago)
Author:
Mark Evenson
Message:

t/abcl-build: update ant test download uri

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/abcl-build/build/t/install.lisp

    r15136 r15479  
    11(in-package :cl-user)
    22
    3 (prove:plan 1)
    4 (prove:ok
    5  (abcl/build:xdg/abcl-install-root #P"http://archive.apache.org/dist/ant/binaries/apache-ant-1.9.4-bin.zip"))
     3(let ((uri #p"https://downloads.apache.org/ant/binaries/apache-ant-1.10.9-bin.zip"))
     4  (prove:plan 1)
     5  (prove:ok
     6   (abcl/build:xdg/abcl-install-root uri)
     7   (format nil "Suitable install root for <~a>" uri))
    68
    7 (prove:plan 2)
    8 (let ((path (ext:make-temp-directory))
    9       (uri #p"http://www-eu.apache.org/dist/ant/binaries/apache-ant-1.10.7-bin.zip"))
    10   (prove:diag
    11    (format nil "Testing binary unzip installation of~%~,2t<~a>~%to~%~,2t '~a'." uri path))
    12   (multiple-value-bind (root contents)
    13       (abcl/build:xdg/install uri)
    14     (prove:ok (and root
    15                    (probe-file root)))
    16     (prove:ok (and
    17                (consp contents)
    18                (> (length contents) 0)))))
     9   (prove:plan 2)
     10   (let ((path (ext:make-temp-directory)))
     11         (prove:diag
     12           (format nil "Testing binary unzip installation of~%~,2t<~a>~%to~%~,2t '~a'." uri path))
     13         (multiple-value-bind (root contents)
     14             (abcl/build:xdg/install uri)
     15           (prove:ok (and root
     16                          (probe-file root)))
     17           (prove:ok (and
     18                      (consp contents)
     19                      (> (length contents) 0))))))
    1920(prove:finalize)
    2021
Note: See TracChangeset for help on using the changeset viewer.