root/lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/t/01_basic.t @ 690

Revision 690, 2.1 kB (checked in by tokuhirom, 7 years ago)

lang/perl/WWW-CommentGetter: livedoor blog is now scraping by perl.
lang/perl/WWW-CommentGetter: added nowa support for watching mala versus ameblo.

Line 
1use strict;
2use warnings;
3use utf8;
4use Test::Base;
5use WWW::CommentGetter;
6
7sub comment_extract {
8    my $url = shift;
9    my $wcg = WWW::CommentGetter->new('assets/');
10    return $wcg->get($url);
11}
12
13filters {
14    input => ['comment_extract'],
15    expected => ['yaml'],
16};
17
18plan tests => 1*blocks;
19
20run_is_deeply 'input' => 'expected';
21
22__END__
23
24=== livedoor blog
25--- input: http://blog.livedoor.jp/tokuhirom/archives/50022471.html
26--- expected
27-
28  body: コンニチハ
29-
30  body: ぶうふぃい
31
32=== yahoo blog
33--- input: http://blogs.yahoo.co.jp/tokuhirom/1302.html
34--- expected
35-
36  body: おこんちは。ちはちは。
37
38=== ameblo
39--- input: http://ameblo.jp/shibuyasec/entry-10051319766.html
40--- expected
41-
42  body: 番組視ましたょ社長の紹介ブログも良いけどたまには御自身の事も書いて下さい
43-
44  body: きれいでした!このブログでまた登場していただけることを期待してます笑
45
46=== yaplog.jp
47--- input: http://yaplog.jp/tokuhirom/archive/1
48--- expected
49-
50  body: ウヒー。ウヒー。チョウチョウヒー。
51
52=== seesaa.net
53--- input: http://tokuhirom.seesaa.net/article/61813178.html
54--- expected
55-
56  body: テストに協力してやんよ
57
58=== cocolog-nifty.com
59--- input: http://tokuhirom.cocolog-nifty.com/blog/2005/11/post_d6cd.html
60--- expected
61-
62  body: XMLは大袈裟だよ。
63
64=== d.hatena.ne.jp
65--- input: http://d.hatena.ne.jp/tokuhirom/20061111/1163229989#c
66--- expected
67-
68  author: tokuhirom
69  body: そんなもんかね。
70  date: 2007/10/22 07:29
71
72=== goo blog
73--- input: http://blog.goo.ne.jp/tokuhirom/e/f4015ced37f302a53d154d2e6a197359
74--- expected
75-
76  body: トオリスガリノテスター。ナリ。
77
78=== jugem
79--- input: http://tokuhirom.jugem.jp/?eid=1
80--- expected
81-
82  body: タナカカクエイタナカカクエイ
83  date: 2007/10/22 8:56 AM
84  author: ポチョムキン
85-
86  body: オマアアアアア
87  date: 2007/10/22 9:06 AM
88  author: てつろう
89
90=== nowa
91--- input: http://tokuhirom.nowa.jp/entry/8675674cf1
92--- expected
93-
94  body: タケヤブヤケタ。
95  date: 2007.10.25 00:53
96  author: tokuhirom
97
Note: See TracBrowser for help on using the browser.