use strict;
use Test::More;

plan tests => 9;

#

use_ok("XML::XBEL");

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

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

my $bm = $xbel->find_by_id("rdf%3A#\$u9UIH");
isa_ok($bm,"XML::XBEL::Bookmark");

cmp_ok($bm->title(),"eq","The processed book",
       "The processed book");

my $folder = $xbel->find_by_id("rdf%3A#\$khJ4y");
isa_ok($folder,"XML::XBEL::Folder");

cmp_ok($folder->title(),"eq","perl",
       "perl");

my $link = ($xbel->find_by_href("http://www.w3.org/2003/01/21-RDF-RDB-access/"))[0];
isa_ok($link,"XML::XBEL::Bookmark");

cmp_ok($link->title(),"eq","RDF Access to Relational Databases",
       "RDF Access to Relational Databases");

# $Id: 85-find-by.t,v 1.1 2004/06/23 06:23:57 asc Exp $