Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 50dcf883c7
Fetching contributors…

Cannot retrieve contributors at this time

60 lines (45 sloc) 1.688 kB
#!/usr/bin/perl
use lib 'lib';
use Test::More tests => 12;
use Data::Dumper;
# 1 test load of base class
use_ok('Bookmarks::Parser');
my $parser = Bookmarks::Parser->new();
# 2 create base class
isa_ok($parser, 'Bookmarks::Parser');
# 3 check parse function
can_ok('Bookmarks::Parser', 'parse');
# 4 parse netscape style file
$parser->parse({filename =>'t/bookmarks.html'});
isa_ok($parser, 'Bookmarks::Netscape');
# print Dumper($parser);
# 5 check root items exist
my @roots = $parser->get_top_level();
is($roots[0]->{name}, 'Personal Toolbar Folder', 'Found root item');
# 6,7 check we parsed all subitems
my @subitems = $parser->get_folder_contents($roots[0]);
is($subitems[0]->{url}, 'http://home.netscape.com/bookmark/4_05/ptmembers.html?t', 'Found first subitem');
is($subitems[-1]->{url}, 'http://home.netscape.com/bookmark/4_05/ptmarketplace.html?t', 'Found last subitem');
# 8 recreate input file as string
my $origfile = $parser->as_string();
# print $origfile;
# 8 create new netscape bookmarks
my $netscape = Bookmarks::Netscape->new();
isa_ok($netscape, 'Bookmarks::Netscape');
# 9 set the root item(s)
$netscape->set_top_level('root folder');
@roots = $netscape->get_top_level();
is($roots[0]->{name}, 'root folder', 'Set root items');
# 10 rename the root folder
is($netscape->rename($roots[0], 'new root folder'),
'new root folder', 'Renamed root item');
# 11 change to opera
my $opera = $parser->as_opera();
isa_ok($opera, 'Bookmarks::Opera');
# 12 output as opera
my $operafile = $opera->as_string();
# print $operafile;
my $xmlparser = $parser->as_xml();
isa_ok($xmlparser, 'Bookmarks::XML');
my $xmlfile = $xmlparser->as_string();
# print $xmlfile;
Jump to Line
Something went wrong with that request. Please try again.