From e5cc39a9a82b3c05156553173a8513db4152b1f9 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 13 Mar 2011 12:26:05 +0100
Subject: [PATCH] Midi: add staff-mapping test.

---
 input/regression/midi/staff-map.ly | 45 ++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 input/regression/midi/staff-map.ly

diff --git a/input/regression/midi/staff-map.ly b/input/regression/midi/staff-map.ly
new file mode 100644
index 0000000000..a159f43978
--- /dev/null
+++ b/input/regression/midi/staff-map.ly
@@ -0,0 +1,45 @@
+\version "2.13.53"
+
+\header {
+texidoc="Midi2ly remaps voices are corectly to staves.  TODO: pianostaff"
+options=""
+}
+
+\score {
+%% TODO:PIANOSTAFF  \context PianoStaff <<
+  <<
+    \context Staff = "treble" <<
+      \set Score.midiChannelMapping = #'voice
+      \context Voice="one" \relative c'' {
+	\time 4/4
+	\key c \minor
+	\voiceOne
+%comes
+%7
+	f8 es16 d c16 bes ! as g f8 as' g f 
+%8	es8 d es f b, c d b |
+	f,16 g as4 g16 f e2 |
+      }
+      \context Voice="two" \relative c'' {
+	\voiceTwo
+%dux
+%7
+	c4 r4 r8 f es d |
+%8	r8 as g f g f16 es f8 d | 
+	<b, d>8 r <b d> r <g c>2 |
+      }
+    >>
+    \context Staff = "bass" <<
+      \context Voice="three" \relative c' {
+	\key c \minor
+	\clef bass
+%7
+	r8 c16 b c8 g as c16 b c8 d |
+%8	g8 c16 b c8 d f,16 g as4 g16 f | 
+	<c,, c'>1
+      }
+    >>
+  >>
+  \layout {}
+  \midi {}
+}
-- 
2.39.2