# $Id: 30-rdf.t,v 1.4 2004/12/22 17:48:35 asc Exp $
use strict;
plan tests => 9;
my $res = "";
SKIP: {
eval {
};
if ($@) {
skip("XML::SAX::Writer not installed", 9);
}
eval {
};
if ($@) {
skip("RDF::Simple::Parser not installed", 9);
}
#
use_ok("XML::Generator::vCard::RDF");
use_ok("XML::SAX::Writer");
use_ok("RDF::Simple::Parser");
#
my $vcard = "t/Senzala.vcf";
ok((-f $vcard),"found $vcard");
#
my $str_xml = "";
my $writer = XML::SAX::Writer->new(Output=>\$str_xml);
isa_ok($writer,"XML::Filter::BufferText");
#
my $parser = XML::Generator::vCard::RDF->new(Handler=>$writer);
isa_ok($parser,"XML::Generator::vCard::RDF");
#
ok($parser->parse_files($vcard),"parsed $vcard");
#
my $rdf_parser = RDF::Simple::Parser->new(base => "");
isa_ok($rdf_parser,"RDF::Simple::Parser");
my @triples = $rdf_parser->parse_rdf($str_xml);
cmp_ok(scalar(@triples),"==",33,"found 33 triples");
}