3 # Test comment for test commit
5 use Test::More tests => 23 ;
6 BEGIN {use_ok('VJournal::Format');}
8 =head1 Low-level link formatting
10 Check link formatting for known sites. Use cases simple name, name with
11 underscore and alternate title specifed.
17 is(MicroBlog::Format::user_link("lj","besm6"),'<a href="http://besm6.livejournal.com"><img src="/img/lj.gif"><b>besm6</b></a>','LJ simple');
18 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');
19 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');
25 is(MicroBlog::Format::user_link("dw","besm6"),'<a href="http://besm6.dreamwidth.org"><img src="/img/dw.gif"><b>besm6</b></a>','DW simple');
26 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');
27 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');
33 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');
34 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');
35 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');
39 =head2 simple cases for all sites
43 is(MicroBlog::Format::find_user_links('<lj user="filin">'),
44 MicroBlog::Format::user_link('lj','filin'),"Parse LJ");
47 is(MicroBlog::Format::find_user_links('<dw user="filin">'),
48 MicroBlog::Format::user_link('dw','filin'),"Parse DW");
50 is(MicroBlog::Format::find_user_links('<ljr user="filin">'),
51 MicroBlog::Format::user_link('ljr','filin'),"Parse LJR");
57 is(MicroBlog::Format::find_user_links('<lj user=filin>'),
58 MicroBlog::Format::user_link('lj','filin'),"No quotes");
64 is(MicroBlog::Format::find_user_links('<lj user="filin" >'),
65 MicroBlog::Format::user_link('lj','filin'),"Space before closing tag");
66 is(MicroBlog::Format::find_user_links('<lj user="filin">'),
67 MicroBlog::Format::user_link('lj','filin'),"Two spaces");
68 is(MicroBlog::Format::find_user_links('<lj user="filin" />'),
69 MicroBlog::Format::user_link('lj','filin'),"XML empty tag");
70 is(MicroBlog::Format::find_user_links("<lj\tuser=filin>"),
71 MicroBlog::Format::user_link('lj','filin'),"tab instead of space");
77 is(MicroBlog::Format::find_user_links("<lj user=filin title=\"Artem\">"),
78 MicroBlog::Format::user_link('lj','filin','Artem'),"title");
80 is(MicroBlog::Format::find_user_links("<lj user=filin title=\"Other guy\">"),
81 MicroBlog::Format::user_link('lj','filin','Other guy'),"Title with space");
83 is(MicroBlog::Format::find_user_links("<lj\nuser=filin\ntitle=\"Other guy\">"),
84 MicroBlog::Format::user_link('lj','filin','Other guy'),"Multiline");
87 =head2 Multiple user names
92 is(MicroBlog::Format::find_user_links('<lj user="filin"> and <lj user="kilka">'),
93 MicroBlog::Format::user_link('lj','filin')." and ".
94 MicroBlog::Format::user_link('lj','kilka')
95 ,"Two user links on same line");
97 is(MicroBlog::Format::find_user_links("<lj user=\"filin\">\n\n<lj user=\"kilka\">"),
98 MicroBlog::Format::user_link('lj','filin')."\n\n".
99 MicroBlog::Format::user_link('lj','kilka')
100 ,"Two user links on separate lines");