use strict;
use Test::More;

plan tests => 18;

use constant LOCAL_TITLE => "folder test";
use constant LOCAL_DESC  => "bag of holding";
use constant LOCAL_ID    => "";

use constant LOCAL_NEW_TITLE => "perl";
use constant LOCAL_NEW_DESC  => "there's more than one way to do it";
use constant LOCAL_NEW_ID    => "japh";

use_ok("XML::XBEL::Folder");

my $folder = XML::XBEL::Folder->new({title => LOCAL_TITLE,
				     desc  => LOCAL_DESC,
				     added => "2004-06-22T18:03:07 -0400"});

isa_ok($folder,"XML::XBEL::Folder");

#

cmp_ok($folder->title(),"eq",LOCAL_TITLE,
       sprintf("title is %s",LOCAL_TITLE));

ok($folder->title(LOCAL_NEW_TITLE),
   sprintf("set new title as %s",LOCAL_NEW_TITLE));

cmp_ok($folder->title(),"eq",LOCAL_NEW_TITLE,
       sprintf("new title is %s",LOCAL_NEW_TITLE));

#

cmp_ok($folder->desc(),"eq",LOCAL_DESC,
       sprintf("description is %s",LOCAL_DESC));

ok($folder->desc(LOCAL_NEW_DESC),
   sprintf("set new description as %s",LOCAL_NEW_DESC));

cmp_ok($folder->desc(),"eq",LOCAL_NEW_DESC,
       sprintf("new description is %s",LOCAL_NEW_DESC));

#

cmp_ok($folder->id(),"eq",LOCAL_ID,
       sprintf("id is %s",LOCAL_ID));

ok($folder->id(LOCAL_NEW_ID),
   sprintf("set new id as %s",LOCAL_NEW_ID));

cmp_ok($folder->id(),"eq",LOCAL_NEW_ID,
       sprintf("new id is %s",LOCAL_NEW_ID));

#

cmp_ok($folder->folded(),"eq","yes",
       "folder is folded");

$folder->folded(0);

cmp_ok($folder->folded(),"eq","no",
       "folder is not folded");

#

ok($folder->added(),
   sprintf("folder added %s",$folder->added()));

#

ok($folder->add_bookmark({title    =>"aaron's cpan stuff",
		          href     => "http://search.cpan.org/~ascope",
		          desc     => "shameless huckerism",
			  added    => "2004-06-22T18:03:07 -0400",
			  modified => "2004-06-22T18:03:07 -0400"}),
   "added new bookmark");

#

ok($folder->add_folder({title => "a sub directory",
			added => "2004-06-22T18:03:07 -0400"}),
   "added new folder");

#

ok($folder->add_separator(),
   "added separator");

ok($folder->add_alias({ref=>"123"}),
   "added alias to bookmark 123");

# $Id: 25-xbel-folder.t,v 1.4 2004/06/23 06:30:21 asc Exp $