use Test::More tests => 2;

BEGIN { use_ok('Audio::TagLib::Vorbis::Properties') };

my @methods = qw(DESTROY length bitrate sampleRate channels);
can_ok("Audio::TagLib::Vorbis::Properties", @methods) 					or 
	diag("can_ok failed");

=if 0
TODO: {
    local $TODO = "Audio::TagLib::Vorbis::File has no new" if 1;

    my @failing_methods = qw(new vorbisVersion
                             bitrateMaximum bitrateNominal bitrateMinimum);
    can_ok("Audio::TagLib::Vorbis::File", @failing_methods)             or
        diag("can_ok failed");
    my $file = "sample/guitar.ogg";
    # CPAN perl 5.17.2  Can't locate object method "new" via package "Audio::TagLib::Ogg::Vorbis::File"`
    my $oggfile = Audio::TagLib::Vorbis::File->new($file);
    my $i = $oggfile->audioProperties();
    isa_ok($i, "Audio::TagLib::Vorbis::Properties") 					or 
        diag("method Audio::TagLib::Vorbis::audioProperties() failed");
    cmp_ok($i->length(), "==", 6) 										or 
        diag("method length() failed");
    cmp_ok($i->bitrate(), "==", 160) 									or 
        diag("method bitrate() failed");
    cmp_ok($i->sampleRate(), "==", 44100) 								or 
        diag("method sampleRate() failed");
    cmp_ok($i->channels(), "==", 2) 									or 
        diag("method channels() failed");
    cmp_ok($i->vorbisVersion(), "==", 0) 								or 
        diag("method vorbisVersion() failed");
    cmp_ok($i->bitrateMaximum(), "==", 0) 							    or 
        diag("method bitrateMaximum() failed");
    cmp_ok($i->bitrateNominal(), "==", 160000) 							or 
        diag("method bitrateNominal() failed");
    cmp_ok($i->bitrateMinimum(), "==", 0) 							    or 
        diag("method bitrateMinimum() failed");
}
=cut