Imported Upstream version 2.18.0

[lilypond.git] / input / regression / bar-line-define-bar-line.ly

diff --git a/input/regression/bar-line-define-bar-line.ly b/input/regression/bar-line-define-bar-line.ly
new file mode 100644 (file)
index 0000000..b181aa3
--- /dev/null
+++ b/input/regression/bar-line-define-bar-line.ly
@@ -0,0 +1,21 @@
+\version "2.17.15"
+
+\header { texidoc = "New bar line styles can be defined by @code{\\defineBarLine}."
+        }
+
+\paper { ragged-right = ##t }
+
+\defineBarLine "[|;" #'("|" "[|;" " |")
+\defineBarLine ";|]" #'(";|]" "" " |")
+
+\relative c' \new StaffGroup <<
+  \new Staff {
+    c4 c \bar "[|;" c c \bar ";|]" \break
+    c4 c \bar ";|]" c c \bar "[|;" \break
+    c1 }
+  \new Staff {
+    c4 c c c
+    c4 c c c
+    c1
+  }
+>>