# $Id: 20-write.t,v 1.4 2004/12/22 17:45:13 asc Exp $
use strict;
use Test::More;
use Digest::SHA1 qw (sha1_hex);
plan tests => 7;
SKIP: {
eval {
require XML::SAX::Writer;
};
if ($@) {
skip("XML::SAX::Writer not installed", 7);
}
use_ok("XML::Generator::vCard::RDF");
use_ok("XML::SAX::Writer");
#
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");
ok($str_xml);
}