# $Id: 10-parse.t,v 1.1 2004/10/06 22:03:31 asc Exp $

use strict;
use Test::More;

plan tests => 4;

my $vcard = "t/Senzala.vcf";

use_ok("XML::Generator::vCard");

ok((-f $vcard),"found $vcard");

my $parser = XML::Generator::vCard->new();

isa_ok($parser,"XML::Generator::vCard");

ok($parser->parse_files($vcard),"parsed $vcard");