#!perl
use strict;
use warnings;
use Test::More qw(no_plan);;
use lib 'lib';
use Error qw/ :try /;

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

require_ok("Audio::Tagger::Error");

my $string = "";

try {
	throw Audio::Tagger::Error("Test!");
	fail("Throw Audio::Tagger::Error failed.");
}
catch Audio::Tagger::Error with {
	my $E = shift;
	pass("Caught Audio::Tagger::Error");
	$string .= $E;
};

try {
	throw Audio::Tagger::Error();
	fail("Throw Audio::Tagger::Error failed.");
}
catch Audio::Tagger::Error with {
        my $E = shift;
        pass("Caught Audio::Tagger::Error");
	$string .= $E;
};

try {
	throw Audio::Tagger::Error("test\n");
	fail("Throw Audio::Tagger::Error failed.");
}
catch Error with {
	my $E = shift;
        pass("Caught Audio::Tagger::Error");
	$string .= $E;
};