The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;

use Test::More tests => 2;

use Netscape::Bookmarks;

require "examples/Visitor.pm";

my $visitor = Visitor->new();
isa_ok( $visitor, 'Visitor' );

my $netscape = Netscape::Bookmarks->new( "bookmark_files/Bookmarks.html" );
isa_ok( $netscape, 'Netscape::Bookmarks::Category' );

$netscape->introduce( $visitor );