From 35e6b138d0fee98000c7c3f54d238e1e31353346 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 16 Oct 2011 23:09:50 +0200 Subject: [PATCH] Add regtest for skipping optional arguments via predicate. --- input/regression/optional-args-predicate.ly | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 input/regression/optional-args-predicate.ly diff --git a/input/regression/optional-args-predicate.ly b/input/regression/optional-args-predicate.ly new file mode 100644 index 0000000000..b7008ddc02 --- /dev/null +++ b/input/regression/optional-args-predicate.ly @@ -0,0 +1,20 @@ +\version "2.15.15" + +\header{ + texidoc= "Test predicate-based optional music function argument skipping." +} + +\layout { ragged-right = ##t } + +test=#(define-scheme-function (parser location str int frac exp) + ((string? "def1") (integer? "def2") (number-pair? "def3") list?) + (if (not (equal? (list str int frac) exp)) + (ly:parser-error parser + (format #f "Expected ~a, got ~a.\n" exp + (list str int frac)) + location))) + +\test "a" #3 #'(3 . 4) #'("a" 3 (3 . 4)) +\test "a" #3 #'("a" 3 "def3") +\test "a" #'("a" "def2" "def3") +\test #'("def1" "def2" "def3") -- 2.39.5