From 780ee4e4e57f2a52831e6faaf1cf1283347699b7 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 26 Jan 2007 16:45:49 +0100
Subject: [PATCH] more coverage.

---
 input/regression/clip-systems.ly    | 86 ++++++++++++++++++-----------
 input/regression/markup-commands.ly |  1 +
 2 files changed, 56 insertions(+), 31 deletions(-)

diff --git a/input/regression/clip-systems.ly b/input/regression/clip-systems.ly
index a49dceaf9d..06247e76b5 100644
--- a/input/regression/clip-systems.ly
+++ b/input/regression/clip-systems.ly
@@ -21,41 +21,65 @@ The result will be files named
 
 \version "2.10.0"
 
+#(ly:set-option 'clip-systems)
 
-% each clip-region is a (START . END) pair
-% where both are rhythmic-locations.
+#(set! output-count 1)
 
-% (make-rhythmic-locations BAR-NUMBER NUM DEN)
-% means NUM/DEN whole-notes into bar numbered BAR-NUMBER
-
-\paper {
+origScore = \score{
+    \relative {
+      \set Staff.instrumentName = #"bla"
+      c1
+      d
+      \grace c16
+      e1
+      \key d\major
+      
+      f
+      \break  \clef bass
+      g,
+      fis
+    }  
+}
 
-  clip-regions
-  = #(list
-      (cons
-       (make-rhythmic-location 2 0 1)
-       (make-rhythmic-location 4 0 1))
+\book { 
+  \score {
+    \origScore
+    \layout {
 
-      (cons
-       (make-rhythmic-location 0 0 1)
-       (make-rhythmic-location 4 0 1))
+      %% each clip-region is a (START . END) pair
+      %% where both are rhythmic-locations.
       
-      (cons
-       (make-rhythmic-location 0 0 1)
-       (make-rhythmic-location 6 0 1))
-    )
+      %% (make-rhythmic-locations BAR-NUMBER NUM DEN)
+      %% means NUM/DEN whole-notes into bar numbered BAR-NUMBER
+
+      clip-regions
+      = #(list
+	  (cons
+	   (make-rhythmic-location 2 0 1)
+	   (make-rhythmic-location 4 0 1))
+
+	  (cons
+	   (make-rhythmic-location 0 0 1)
+	   (make-rhythmic-location 4 0 1))
+	  
+	  (cons
+	   (make-rhythmic-location 0 0 1)
+	   (make-rhythmic-location 6 0 1))
+	)
+    }
+  }
 }
 
-\relative {
-  \set Staff.instrumentName = #"bla"
-  c1
-  d
-  \grace c16
-  e1
-  \key d\major
-  
-  f
-  \break  \clef bass
-  g,
-  fis
-}  
+#(set! output-count 0)
+#(ly:set-option 'clip-systems #f)
+
+\book {
+  \score { \origScore }
+  \markup { \bold \fontsize #6 clips }
+  \score {
+    \lyrics {
+      \markup { from-2.0.1-to-4.0.1-clip.eps }
+      \markup { \epsfile #X #30.0 #(format #f "~a-1-from-2.0.1-to-4.0.1-clip.eps" (ly:parser-output-name parser)) }
+    }
+  }
+}
diff --git a/input/regression/markup-commands.ly b/input/regression/markup-commands.ly
index 3e6a211fe9..dc01e9e40b 100644
--- a/input/regression/markup-commands.ly
+++ b/input/regression/markup-commands.ly
@@ -14,6 +14,7 @@
 	foo \magnify #2 foo
 	LOWER \lower #3 LOWER
 	\large \bold { normal \normal-text normal }
+	Small-Caps \smallCaps 	Small-Caps
       }
       
       \override #'(line-width . 50) 
-- 
2.39.5