# $Id: 20-write.t,v 1.3 2004/10/17 23:05:35 asc Exp $ use strict; use Test::More; plan tests => 7; my $res = qq(PUBLICSenzalab177 Bernard o.MontrealQuebecCanada514/274-146445.5249-73.6043Senzalafoobarmontreal); 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"); cmp_ok($str_xml,"eq",$res,"output ok"); }