#!perl

# TODO add test that checks that File actually deletes undefed items

use Test::More qw(no_plan);

use File::Basename;
use diagnostics;
use Cwd qw/abs_path/;
use blib;

BEGIN {
	use_ok( 'Audio::Tagger::File' );
}

require_ok('Audio::Tagger::File');

my $file;
eval{$file = Audio::Tagger::File->open;};
ok($@, "create new object without sending filename");

eval{$file = Audio::Tagger::File->open("t/file");};
ok($@, "checking that file does not exsist");

eval{$file = Audio::Tagger::File->open("t/test");};
ok($@, "checking what happens when there is no extension");

chmod 0000, 't/test2.mp3';
eval{$file = Audio::Tagger::File->open("t/test2.mp3");};
ok($@, "checking what happens with file without read-permissions");
chmod 0600, 't/test2.mp3';