#!/usr/bin/perl
# $Id: fuzz,v 1.6 2012/03/03 07:38:56 je Exp $

use Fuzz;
use Score qw(lilypond);
use Song::HitaatLiikkeet;
use Song::Instanssi;
use Song::Testing;

my %songs = (
  # hitaat_liikkeet => 'Song::HitaatLiikkeet',
  instanssi         => 'Song::Instanssi',
  # testing         => 'Song::Testing',
);

my @songs = @ARGV ? @ARGV : keys %songs;
for my $songname (@songs) {
  my $songclass = $songs{ $songname }   or die "No song named $songname";
  lilypond $songname => $songclass->new;
}
