From ca06ce491b787b4cbefdccec027769265b2bb006 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 1 Sep 2014 15:09:10 -0400
Subject: [PATCH] Add a test case for lp#1362875 (tested to break on 3.1.2).

---
 test/test-bundle.script | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/test-bundle.script b/test/test-bundle.script
index fe30636e..172a3c52 100644
--- a/test/test-bundle.script
+++ b/test/test-bundle.script
@@ -54,6 +54,10 @@
 (progn
   #+ecl (trace c::builder)
   (require 'sockets) ;; Test the pre-compiled system feature
+  ;; Test that we didn't break require for non-asdf modules
+  (progn
+    (pop #+ecl ext:*module-provider-functions* #+mkcl mkext:*module-provider-functions*)
+    (require 'serve-event))
   (operate 'dll-op :test-asdf/dll-test)
   (let ((dll (first (output-files 'dll-op :test-asdf/dll-test))))
     (si:load-foreign-module dll)
-- 
GitLab