%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "/lilypond-2.27.4/input/regression/music-function-duration-as-music-warning.ly"
\sourcefileline 0
\version "2.27.4"

\header {
  texidoc = "When music functions interpret a duration as music right after
accepting a pitch argument, chances are that the duration actually was entered
in accident.  Checks that the expected warnings are emitted.  No score is
output, but there is informational output about the number of music expressions
seen by LilyPond's parser for several constructs."
}

#(ly:expect-warning (G_ "Duration following pitch taken as music"))

count-expressions =
#(define-scheme-function (m) (ly:music?)
  (assert (music-is-of-type? m 'sequential-music))
  (let ((m (ly:music-property m 'elements)))
   (ly:music-message (car m) "~a"
    (format #f "~d music expression~:p seen" (length m)))))

\count-expressions {
  \relative c' { c4 d e f }
}

\count-expressions {
  \relative c'1 { c4 d e f }
}

\count-expressions {
  \relative 1
}

\count-expressions {
  \transpose c c' { c4 d e f }
}

#(ly:expect-warning (G_ "Duration following pitch taken as music"))

\count-expressions {
  \transpose c c'1 { c4 d e f }
}

#(ly:expect-warning (G_ "Duration following pitch taken as music"))

\count-expressions {
  \fixed c'1 { c4 d e f }
}



% ****************************************************************
% end ly snippet
% ****************************************************************