input/regression/safe.ly

   1 \version "2.16.0"
   2
   3 expect-error = ##t
   4
   5 % Ugh - this affects other files too.
   6 #(ly:set-option 'protected-scheme-parsing #t)
   7 #(ly:set-option 'safe #t)
   8
   9 force-finish = ##t
  10
  11 \header{
  12     texidoc = "This should not survive lilypond --safe-mode"
  13
  14     #(open-file "w")
  15 }
  16
  17
  18 #(open-file "/tmp/safe-guile.scm")
  19
  20 \include "this-should-fail.ly"