use Test::More tests => 6;
BEGIN { use_ok('RDF::vCard') };

ok(
	RDF::vCard::Importer->can('new'),
	"RDF::vCard::Importer can be instantiated.",
	);

ok(
	RDF::vCard::Exporter->can('new'),
	"RDF::vCard::Exporter can be instantiated.",
	);
ok(
	RDF::vCard::Line->can("new"),
	"RDF::vCard::Line can be instantiated.",
	);

my $line = RDF::vCard::Line->new(
	property        => "email",
	value           => "joe\@example.net",
	type_parameters => { type=>[qw(PREF INTERNET)] },
	);

is(
	"$line",
	"EMAIL;TYPE=PREF,INTERNET:joe\@example.net",
	"Lines seem formatted correctly.",
	);

my $card = RDF::vCard::Entity->new;
$card->add($line);

ok(
	"$card" =~ /example.net/,
	"Cards seem to work.",
	);