Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 50dcf883c7
Fetching contributors…

Cannot retrieve contributors at this time

177 lines (138 sloc) 5.213 kb
use lib 'lib';
use Test::More 'no_plan';
use Data::Dumper;
# 1 test load of base class
use_ok('Bookmarks::Parser');
# 2 parse opera style file
my $parser = Bookmarks::Parser->new();
$parser->parse({filename => 't/opera6.adr'});
isa_ok($parser, 'Bookmarks::Opera');
# 3 check root items exist
my @roots = $parser->get_top_level();
is_deeply([ map { $_->{name} } @roots ],
['Trash', 'Opera', 'Download.com', 'Amazon.com', 'Dealtime.com', 'eBay', 'Fake eBay' ], 'Found root items');
# 4,5 check we parsed subitems
my @subitems = $parser->get_folder_contents($roots[1]);
is($subitems[0]->{url}, 'http://www.opera.com/download/', 'Found first subitem');
is($subitems[-1]->{url}, 'http://www.opera.com/support/', 'Found last subitem');
# Check that "DISPLAY URL" is understood properly
my $fake_ebay = $roots[6];
is($fake_ebay->{id}, 25, 'Got the fake ebay bookmark id');
is($fake_ebay->{name}, 'Fake eBay', 'Got the fake ebay bookmark name');
is($fake_ebay->{url}, 'http://fake.ebay.com/', 'URL is parsed correctly');
is($fake_ebay->{display_url}, 'http://www.ebay.com/', 'DISPLAY URL is parsed correctly');
# 6 create new opera bookmarks
my $opera = Bookmarks::Opera->new();
isa_ok($opera, 'Bookmarks::Opera');
# 7 set the root item(s)
$opera->set_top_level('root folder');
@roots = $opera->get_top_level();
is($roots[0]->{name}, 'root folder', 'Set root items');
# 8 rename the root folder
is($opera->rename($roots[0], 'new root folder'),
'new root folder', 'Renamed root item');
# 9 set title
is($parser->set_title('Opera Bookmarks'), 'Opera Bookmarks');
# 10 change to netscape
my $netscape = $parser->as_netscape();
isa_ok($netscape, 'Bookmarks::Netscape');
# 11 output as netscape
my $netscapefile = $netscape->as_string();
# print $operafile;
my $xmlparser = $parser->as_xml();
isa_ok($xmlparser, 'Bookmarks::XML');
my $xmlfile = $xmlparser->as_string();
# print $xmlfile;
ok($xmlfile);
# ----------------------------------------------------
# Open the new Opera 11.50 default bookmarks file
#
# And check that we can do any of this both for DOS and Unix files
for ("t/opera-1150.adr", "t/opera-1150-unix.adr")
{
my $adr_file = $_;
$parser = Bookmarks::Parser->new();
my $parsed = $parser->parse({filename => $adr_file});
ok($parsed, "'$adr_file' has been loaded");
isa_ok(
$parser =>, 'Bookmarks::Opera',
'Reblessed parser as Bookmarks::Opera'
);
@roots = $parser->get_top_level();
my $trash = $roots[0];
my $opera = $roots[1];
is(scalar(@roots) => 2, "Root folder should contain 2 items");
is($trash->{name}, "Trash", "first item is the trash folder");
is($trash->{type}, "folder", "Trash is a folder");
is($trash->{uniqueid}, "14C645A5B8A3470FB3B52CC32C97E2B8");
is($opera->{name}, "Opera", "second item is the Opera folder");
is($opera->{type}, "folder", "Opera is a folder");
is($opera->{uniqueid}, "CFF0FB2AB8F0403BB524F77EF43A30E3", "Opera uniqueid is extracted correctly");
@subitems = $parser->get_folder_contents($opera);
is(
scalar(@subitems) => 19,
"Check that last bookmark is included in the parsed list"
);
my $download = $subitems[0];
my $myopera = $subitems[1];
my $sports = $subitems[-1];
my $myomail = $subitems[-2];
#iag("download=".Dumper($download));
#iag("myoperamail=".Dumper($myomail));
is(
$sports->{name}, "Sports",
"Check that we can load the last bookmark correctly"
);
is($download->{type}, 'url', 'Bookmark type must be "url"');
is($download->{id}, 14, 'Check that we got the correct one for real');
is(
$download->{uniqueid} => '1E1142BB54F648238B9236643A3183C0',
'Download Opera uniqueid extracted correctly'
);
is(
$download->{url} => 'http://www.opera.com/download/?utm_source=DesktopBrowser&utm_medium=Bookmark&utm_campaign=BrowserLinks',
"First bookmark points to Opera.com/download"
);
is(
$myomail->{name} => 'My Opera Mail',
"Last root bookmark is Mail"
);
is(
$myomail->{partnerid} => "opera-mail2",
"Partnerid is also extracted"
);
is(
$myomail->{icon} => 'https://mail.opera.com/favicon.ico',
"Icon extracted correctly",
);
is(
$myomail->{iconfile} => undef, # 'iconfile' is translated into 'icon'
"Iconfile property shouldn't be there. Icon is used instead",
);
is(
$myopera->{id} => 15,
"My Opera bookmark id is correct ($myopera->{id})",
);
is(
$myopera->{name} => 'My Opera Community',
"My Opera bookmark name is correct"
);
is(
$myopera->{icon} => 'http://redir.opera.com/favicons/myopera/favicon.ico',
"My Opera icon extracted correctly",
);
is(
$myopera->{on_personalbar} => 'YES',
"Personal bar flag is parsed correctly",
);
is(
$myopera->{personalbar_pos} => 4,
"Personal bar position is parsed correctly",
);
is(
$myopera->{partnerid} => 'opera-operasocial',
"My Opera partnerid is parsed correctly",
);
} # DOS and Unix line endings
#
# End of test
Jump to Line
Something went wrong with that request. Please try again.