(in-package :fomus-test)

(in-suite :fomus-test)

(test-fomus simple-test.1 (:raw)
  (fomus-newpart 1 :instr :piano)
  (fomus-newnote 1 :note 61 :off 0 :dur 1)
  ;; test
  (test-checksum :raw))

(test-fomus simple-test.2 ((:raw) (:lilypond))
  (fomus-newpart 1 :instr :piano)
  (fomus-newnote 1 :note 62 :off 0 :dur 1)
  ;; test
  (test-checksum :raw)
  (test-checksum :lilypond))

(test-fomus simple-scale ((:raw) (:lilypond))
  (fomus-newpart 1 :instr :piano)
  (fomus-newnote 1 :note 60 :off 0 :dur 1)
  
  (fomus-newnote 1 :note 61 :off 1 :dur 1)
  (fomus-newnote 1 :note 62 :off 2 :dur 1)
  (fomus-newnote 1 :note 63 :off 3 :dur 1)
  (fomus-newnote 1 :note 64 :off 4 :dur 1)
  (fomus-newnote 1 :note 65 :off 5 :dur 1)
  (fomus-newnote 1 :note 66 :off 6 :dur 1)
  (fomus-newnote 1 :note 67 :off 7 :dur 1)  
  ;; test
  (test-checksum :raw)
  (test-checksum :lilypond))

(test-fomus simple-scale.2 ((:raw) (:lilypond))
  (fomus-newpart 1 :instr :piano)
  (fomus-newnote 1 :note 60 :off 0 :dur 1)
  
  (fomus-newnote 1 :note 61 :off 1 :dur 1)
  (fomus-newnote 1 :note 62 :off 2 :dur 1)
  (fomus-newnote 1 :note 63 :off 3 :dur 1)
  (fomus-newnote 1 :note 44 :off 4 :dur 1)
  (fomus-newnote 1 :note 65 :off 5 :dur 1)
  (fomus-newnote 1 :note 62 :off 6 :dur 1)
  (fomus-newnote 1 :note 67 :off 7 :dur 1)  
  ;; test
  (test-checksum :raw)
  (test-checksum :lilypond))