#lang racket (require "../main.rkt" racket/runtime-path rackunit) (define-runtime-path contrib-file "../contrib/lmfao-party_rock_anthem.mid") (define parsed (midi-file-parse (build-path contrib-file))) ;; regression tests... (check-equal? (first parsed) 'multi) (check-equal? (second parsed) '(ticks-per-quarter 120)) (check-equal? (length (second (third parsed))) 2379)