diff --git a/test.bat b/test.bat
index 990e23c..522d701 100644
--- a/test.bat
+++ b/test.bat
@@ -16,6 +16,11 @@
   (sb-sys:interactive-interrupt ()^
     (sb-ext:exit :code -1073741510 :abort t)))
 
+@set PORTABLE_TEST_EXP=^
+(progn (handler-case (uiop:quit (apply #'com.inuoe.jzon-tests:main (uiop:command-line-arguments)))^
+  (error ()^
+    (uiop:quit 2))))
+
 @sbcl^
  --noinform^
  --end-runtime-options^
@@ -29,4 +34,13 @@
  --eval "%TEST_EXP%"
 @if %errorlevel% neq 0 exit /b %errorlevel%
 
+@ecl^
+ --norc^
+ --eval "(load """"~/quicklisp/setup.lisp"""")"^
+ --eval "(asdf:load-asd #p""%JZON_ASD_E%\"")"^
+ --eval "(asdf:load-asd #p""%JZON_TESTS_ASD_E%\"")"^
+ --eval "(ql:quickload '#:com.inuoe.jzon-tests)"^
+ --eval "%PORTABLE_TEST_EXP%"
+@if %errorlevel% neq 0 exit /b %errorlevel%
+
 @endlocal
diff --git a/test.sh b/test.sh
index 5c33b94..d07f61a 100755
--- a/test.sh
+++ b/test.sh
@@ -12,6 +12,12 @@ test_exp="
     (sb-ext:exit :code -1073741510 :abort t)))
 "
 
+portable_test_exp="
+(progn (handler-case (uiop:quit (apply #'com.inuoe.jzon-tests:main (uiop:command-line-arguments)))
+         (error ()
+           (uiop:quit 2))))
+"
+
 sbcl --noinform \
      --end-runtime-options \
      --no-sysinit \
@@ -23,3 +29,9 @@ sbcl --noinform \
      --eval "(ql:quickload :com.inuoe.jzon-tests)" \
      --eval "$test_exp"
     
+ecl --norc \
+    --eval "(load #p\"~/quicklisp/setup.lisp\")" \
+    --eval "(asdf:load-asd #p\"$jzon_asd\")" \
+    --eval "(asdf:load-asd #p\"$jzon_test_asd\")" \
+    --eval "(ql:quickload :com.inuoe.jzon-tests)" \
+    --eval "$portable_test_exp"