use Test::More tests => 6;
use strict;
use Data::Dumper::Concise;
use Audio::Nama::Lat;
my $lat = Audio::Nama::Lat->new(4,8);
my $lat2 = Audio::Nama::Lat->new(16,32);
is(ref $lat, 'Audio::Nama::Lat', "Latency object instantiation");
is("$lat","4 8","Stringify object");
is($lat->min, 4, "Min latency accessor");
is_deeply( $lat->add_latency($lat2), Audio::Nama::Lat->new(20,40), "Latency addition");
is_deeply( Audio::Nama::Lat->new(20,40), ($lat + $lat2), "Latency addition, overloading '+' operator");
is(do{ eval {Audio::Nama::Lat->new(1,0)}; defined $@}, 1, "Exception on Max greater than Min");
1;