From a6ed88c3278104d5b575592fa5105c02d8e0de9b Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Mon, 27 Jun 2016 14:11:33 -0500
Subject: [PATCH] Revise testing for ECL.

ECL version 16+ seems to have working encodings support.  So we check
the ECL version early and either abort the test (successfully) if ECL is
too old, or push on if ECL is version 16+
---
 test/test-encodings.script | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/test/test-encodings.script b/test/test-encodings.script
index 04fb418dc..e93abff35 100644
--- a/test/test-encodings.script
+++ b/test/test-encodings.script
@@ -59,7 +59,11 @@
       :components ((:file "lambda" :encoding :default))))
   (with-encoding-test (:utf-8)
     (def-test-system :test-encoding-implicit-default
-      :components ((:file "lambda")))))
+        :components ((:file "lambda")))))
+
+#+ecl
+(unless (>= ext:+ecl-version-number+ 160000)
+  (leave-test "This version of ECL is known to have broken encoding support" 0))
 
 ;; Try to load asdf-encodings
 (setf *central-registry*
@@ -83,9 +87,6 @@
     (def-test-system :test-encoding-implicit-autodetect
       :components ((:file "lambda")))))
 
-#+ecl
-(leave-test "ECL recently broke its encoding support" 0)
-
 #+sbcl
 (with-encoding-test (:koi8-r)
   (def-test-system :test-encoding-explicit-koi8-r
-- 
GitLab