Add note names regtest.

[lilypond.git] / input / regression / note-names.ly

diff --git a/input/regression/note-names.ly b/input/regression/note-names.ly
new file mode 100644 (file)
index 0000000..eb0e1ec
--- /dev/null
+++ b/input/regression/note-names.ly
@@ -0,0 +1,28 @@
+
+\header
+{
+  texidoc = "Various languages are supported for note names input.
+Selecting another language within a music expression is possible,
+and doesn't break point-and-click abilities.
+"
+}
+
+\version "2.13.37"
+
+\include "english.ly"
+
+\relative c'' {
+  g bf d c
+
+  %% nederlands.ly is loaded by default, so the
+  %% dutchPitchnames variable is already defined.
+  #(begin
+    (set! pitchnames dutchPitchnames)
+    (ly:parser-set-note-names parser dutchPitchnames))
+  bes a g fis
+
+  %% The \language command just retrieves a pitches alist
+  %% from the relevant file, and sets pitchnames accordingly.
+  \language "italiano"
+  sol fa mib re
+}
\ No newline at end of file