From e633c3dfbd1a1d85b693335d9fbfaf126e107b44 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 26 Apr 2011 22:52:56 +0900
Subject: [PATCH] adding scribble to lib tests

---
 tests/lib-tests.scm                             |  1 +
 tests/{scribble-test.scm => scribble-tests.scm} | 12 ++++++------
 2 files changed, 7 insertions(+), 6 deletions(-)
 rename tests/{scribble-test.scm => scribble-tests.scm} (95%)

diff --git a/tests/lib-tests.scm b/tests/lib-tests.scm
index 7d2ebcd4..152c2100 100644
--- a/tests/lib-tests.scm
+++ b/tests/lib-tests.scm
@@ -9,6 +9,7 @@
 (load "tests/sort-tests.scm")
 (load "tests/loop-tests.scm")
 (load "tests/match-tests.scm")
+(load "tests/scribble-tests.scm")
 (load "tests/record-tests.scm")
 (load "tests/thread-tests.scm")
 ;;(load "tests/weak-tests.scm")
diff --git a/tests/scribble-test.scm b/tests/scribble-tests.scm
similarity index 95%
rename from tests/scribble-test.scm
rename to tests/scribble-tests.scm
index 9869130c..11096bbd 100644
--- a/tests/scribble-test.scm
+++ b/tests/scribble-tests.scm
@@ -17,7 +17,7 @@
 (test-scribble '((foo width: 2 "blah blah")) "@foo[width: 2]{blah blah}")
 (test-scribble '((foo "blah blah" "\n" "     yada yada")) "@foo{blah blah
      yada yada}")
-(test-scribble '((foo "  blah blah" "\n" "  yada yada")) "@foo{
+(test-scribble '((foo "  blah blah" "\n" "  yada yada" "\n")) "@foo{
   blah blah
   yada yada
 }")
@@ -136,18 +136,18 @@
 (test-scribble '((foo " bar" "\n" "     baz ")) "@foo{ bar
      baz }")
 
-(test-scribble '((foo "bar")) "@foo{bar
+(test-scribble '((foo "bar" "\n")) "@foo{bar
 }")
-(test-scribble '((foo "  bar") "\n") "@foo{
+(test-scribble '((foo "  bar" "\n") "\n") "@foo{
   bar
 }
 ")
-(test-scribble '((foo "  bar" "\n")) "@foo{
+(test-scribble '((foo "  bar" "\n" "\n")) "@foo{
 
   bar
 
 }")
-(test-scribble '((foo "  bar" "\n" "\n" "  baz")) "@foo{
+(test-scribble '((foo "  bar" "\n" "\n" "  baz" "\n")) "@foo{
   bar
 
   baz
@@ -160,7 +160,7 @@
 (test-scribble '((foo " bar" "\n" "     baz ")) "@foo{ bar
      baz }")
 
-(test-scribble '((foo "  bar" "\n" "  baz" "\n" "  blah")) "@foo{
+(test-scribble '((foo "  bar" "\n" "  baz" "\n" "  blah" "\n")) "@foo{
   bar
   baz
   blah