use strict;
use warnings;
use Test::More;

use lib '../lib';

my @tests = (
    [ "\n{fetchrss http://www.burningchrome.com/~cdent/mt/index.xml}\n\n" =>
      qr{Glacial Erratics}
    ],
    [ "\n{fetchrss http://www.flickr.com/services/feeds/photos_public.gne?id=44124457654\@N01&format=atom_03 1}\n\n" =>
      qr{cdent's Photos}
    ],
);

my $test_count = scalar @tests;

plan tests => $test_count;

SKIP: {
    eval {require Kwiki::Test};
    skip 'we need Kwiki::Test to test', $test_count if $@;
        
    my $kwiki = Kwiki::Test->new->init([
        'Kwiki::FetchRSS',
        ]);

    my $formatter = $kwiki->hub->formatter;

    for my $test (@tests) {
        my $result = $formatter->text_to_html( $test->[0] );
        like( $result, $test->[1], $test->[0] );
    }

    $kwiki->cleanup;
}