my $tests = {
    all => {
        cost      => \&cost_checker
    },
    YEAM => {
        lipmons => sub { check_lipmons(@_, 'SD'  => 3,
                                           'ron' => 2,
                                           'SP' => 3); },
        dd          => \&check_dd,
        stype     => sub { check_stypes(@_, "EM"); },
        heat_monr => sub { check_heatmonr(@_, 1); },
        heat_pgm     => sub { check_hpgm(@_, 'Solar'); },
    },
    ...