From 4fa1eacaa67ffb6768f584262e4ff9c0613fd4f7 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 27 Jul 2014 16:14:43 +0900
Subject: [PATCH] Adding a list sorting example.

---
 tests/sort-tests.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/sort-tests.scm b/tests/sort-tests.scm
index 6123a158..6305539b 100644
--- a/tests/sort-tests.scm
+++ b/tests/sort-tests.scm
@@ -45,6 +45,13 @@
   (sort '("elephant" "CaT" "DOG" "ape" "GoAt" "Fox" "HAWK" "Bear")
           string-ci<?))
 
+(test "sort lists"
+    '((chibi) (scheme r5rs) (scheme write))
+  (sort '((chibi) (scheme r5rs) (scheme write))
+        (lambda (a b)
+          (string<? (call-with-output-string (lambda (out) (write a out)))
+                    (call-with-output-string (lambda (out) (write b out)))))))
+
 (test "sort numeric inexact vector <" '#(1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9)
   (sort '#(7.7 5.5 2.2 8.8 1.1 6.6 4.4 9.9 3.3) <))
 (test "sort numeric signed inexact vector <"