use Speech::Synthesis;
use Test::More;
use strict;
use warnings;

my @engines = Speech::Synthesis->InstalledEngines();
plan skip_all => "No Speech Engines installed" unless @engines;
plan tests => scalar(@engines);

foreach my $engine (@engines)
{
    my @langs = Speech::Synthesis->InstalledLanguages(engine => $engine,
                                                        host   => $ENV{FESTIVAL_HOST},
                                                        port   => $ENV{FESTIVAL_PORT});
SKIP:{
        skip "No languages installed for engine $engine", 1 unless @langs;
        ok(scalar(@langs) > 0, "You have installed languages ".join(", ", @langs)." for engine $engine");
     };
}