+#!/usr/bin/perl
+
+use Test::More tests => 23 ;
+BEGIN {use_ok('VJournal::Format');}
+
+=head1 Low-level link formatting
+
+Check link formatting for known sites. Use cases simple name, name with
+underscore and alternate title specifed.
+
+=head2 Livejournal
+
+=cut
+
+is(MicroBlog::Format::user_link("lj","besm6"),'<a href="http://besm6.livejournal.com"><img src="/img/lj.gif"><b>besm6</b></a>','LJ simple');
+is(MicroBlog::Format::user_link("lj","vitus_wagner"),'<a href="http://vitus-wagner.livejournal.com"><img src="/img/lj.gif"><b>vitus_wagner</b></a>','LJ underscore');
+is(MicroBlog::Format::user_link("lj","besm6","Artem"),'<a href="http://besm6.livejournal.com"><img src="/img/lj.gif"><b>Artem</b></a>','LJ title');
+
+=head2 Dreamwidth
+
+=cut
+
+is(MicroBlog::Format::user_link("dw","besm6"),'<a href="http://besm6.dreamwidth.org"><img src="/img/dw.gif"><b>besm6</b></a>','DW simple');
+is(MicroBlog::Format::user_link("dw","vitus_wagner"),'<a href="http://vitus-wagner.dreamwidth.org"><img src="/img/dw.gif"><b>vitus_wagner</b></a>','DW underscore');
+is(MicroBlog::Format::user_link("dw","besm6","Artem"),'<a href="http://besm6.dreamwidth.org"><img src="/img/dw.gif"><b>Artem</b></a>','DW title');
+
+=head2 lj.rossia.org
+
+=cut
+
+is(MicroBlog::Format::user_link("ljr","kouzdra"),'<a href="http://lj.rossia.org/users/kouzdra"><img src="/img/ljr.gif"><b>kouzdra</b></a>','LJR simple');
+is(MicroBlog::Format::user_link("ljr","some_user"),'<a href="http://lj.rossia.org/users/some_user"><img src="/img/ljr.gif"><b>some_user</b></a>','LJ underscore');
+is(MicroBlog::Format::user_link("ljr","kouzdra","Anton"),'<a href="http://lj.rossia.org/users/kouzdra"><img src="/img/ljr.gif"><b>Anton</b></a>','LJ title');
+
+=head1 html parsing
+
+=head2 simple cases for all sites
+
+=cut
+
+is(MicroBlog::Format::find_user_links('<lj user="filin">'),
+ MicroBlog::Format::user_link('lj','filin'),"Parse LJ");
+
+
+is(MicroBlog::Format::find_user_links('<dw user="filin">'),
+ MicroBlog::Format::user_link('dw','filin'),"Parse DW");
+
+is(MicroBlog::Format::find_user_links('<ljr user="filin">'),
+ MicroBlog::Format::user_link('ljr','filin'),"Parse LJR");
+
+=head2 no quotes
+
+=cut
+
+is(MicroBlog::Format::find_user_links('<lj user=filin>'),
+ MicroBlog::Format::user_link('lj','filin'),"No quotes");
+
+=head2 various spaces
+
+=cut
+
+is(MicroBlog::Format::find_user_links('<lj user="filin" >'),
+ MicroBlog::Format::user_link('lj','filin'),"Space before closing tag");
+is(MicroBlog::Format::find_user_links('<lj user="filin">'),
+ MicroBlog::Format::user_link('lj','filin'),"Two spaces");
+is(MicroBlog::Format::find_user_links('<lj user="filin" />'),
+ MicroBlog::Format::user_link('lj','filin'),"XML empty tag");
+is(MicroBlog::Format::find_user_links("<lj\tuser=filin>"),
+ MicroBlog::Format::user_link('lj','filin'),"tab instead of space");
+
+=head2 title
+
+=cut
+
+is(MicroBlog::Format::find_user_links("<lj user=filin title=\"Artem\">"),
+ MicroBlog::Format::user_link('lj','filin','Artem'),"title");
+
+is(MicroBlog::Format::find_user_links("<lj user=filin title=\"Other guy\">"),
+ MicroBlog::Format::user_link('lj','filin','Other guy'),"Title with space");
+
+is(MicroBlog::Format::find_user_links("<lj\nuser=filin\ntitle=\"Other guy\">"),
+ MicroBlog::Format::user_link('lj','filin','Other guy'),"Multiline");
+
+
+=head2 Multiple user names
+
+=cut
+
+
+is(MicroBlog::Format::find_user_links('<lj user="filin"> and <lj user="kilka">'),
+ MicroBlog::Format::user_link('lj','filin')." and ".
+ MicroBlog::Format::user_link('lj','kilka')
+ ,"Two user links on same line");
+
+is(MicroBlog::Format::find_user_links("<lj user=\"filin\">\n\n<lj user=\"kilka\">"),
+MicroBlog::Format::user_link('lj','filin')."\n\n".
+ MicroBlog::Format::user_link('lj','kilka')
+ ,"Two user links on separate lines");