X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.impure.lisp;h=31cb5171528a5ac599b66cd6dcd2824a031e4da0;hb=390073eee1f9738487bf22c7fd118156899fabbe;hp=613bc666e6da0c857456919aaed1a9fb99c326e4;hpb=026aef761bfe2e191fa38be357da233aacd6119e;p=sbcl.git

diff --git a/tests/interface.impure.lisp b/tests/interface.impure.lisp
index 613bc66..31cb517 100644
--- a/tests/interface.impure.lisp
+++ b/tests/interface.impure.lisp
@@ -292,5 +292,10 @@
                    (sb-debug:backtrace 100 s))))
         (foo 100 (let ((list (list t)))
                    (nconc list list)))))))
+
+(with-test (:name :endianness-in-features)
+  (assert
+   (or (member :big-endian *features*)
+       (member :little-endian *features*))))
 
 ;;;; success