use strict;
use Test::More;

plan tests => 12;

use_ok("XML::XBEL");

my $xbel = XML::XBEL->new();
isa_ok($xbel,"XML::XBEL");

ok($xbel->parse_file("./t/test.xbel"),
   "parsed xbel");

cmp_ok($xbel->title(),"eq","Bookmarks",
       sprintf("xbel's title is %s",$xbel->title()));

#

cmp_ok(scalar($xbel->bookmarks()),"==",0,
       "xbel has 0 bookmarks");

cmp_ok(scalar($xbel->folders()),"==",1,
      "xbel has 1 folders");

cmp_ok(scalar($xbel->aliases()),"==",1,
       "xbel has 1 aliases");

#

cmp_ok(scalar($xbel->bookmarks(1)),"==",41,
       "xbel has 41 bookmarks");

my @folders = $xbel->folders(1);

cmp_ok(scalar(@folders),"==",2,
      "xbel has 2 folders");

cmp_ok(scalar($folders[0]->folders()),"==",1,
      "first folder has 1 sub folder");
      
cmp_ok(scalar($folders[1]->folders()),"==",0,
       "second folder has 0 sub folders");

cmp_ok(scalar($xbel->aliases(1)),"==",1,
       "xbel has 1 aliases");

# $Id: 75-parse.t,v 1.3 2004/06/24 02:15:15 asc Exp $