#!/usr/bin/perl

# Test the add_item(mode => "insert")

use strict;
use warnings;

use Test::More tests => 3;

use XML::RSS;

sub contains
{
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    my ($rss, $sub_string, $msg) = @_;
    my $rss_output = $rss->as_string();
    my $ok = ok (index ($rss_output,
        $sub_string) >= 0,
        $msg
    );
    if (! $ok)
    {
        diag("Could not find the substring [$sub_string] in:{{{{\n$rss_output\n}}}}\n");
    }
}

sub create_rss
{
    my $rss = XML::RSS->new(version => "2.0");

    $rss->channel(
        title => "freshmeat.net",
        link  => "http://freshmeat.net",
        description => "the one-stop-shop for all your Linux software needs",
        );

    $rss->add_item(
        title => "GTKeyboard 0.85",
        link  => "http://freshmeat.net/news/1999/06/21/930003829.html"
        );

    return $rss;
}

{
    my $rss = create_rss();

    $rss->add_item(
        title => "gcc 10.0.10",
        link => "http://gcc-compiler.tld/",
    );

    # TEST
    contains($rss,
        qq{<item>\n<title>GTKeyboard 0.85</title>\n} .
        qq{<link>http://freshmeat.net/news/1999/06/21/930003829.html</link>\n} .
        qq{</item>\n} .
        qq{<item>\n<title>gcc 10.0.10</title>\n} .
        qq{<link>http://gcc-compiler.tld/</link>\n} .
        qq{</item>\n},
        "Checking for second item after first item when add_item without mode."
    );
}

{
    my $rss = create_rss();

    $rss->add_item(
        mode => "append",
        title => "gcc 10.0.10",
        link => "http://gcc-compiler.tld/",
    );

    # TEST
    contains($rss,
        qq{<item>\n<title>GTKeyboard 0.85</title>\n} .
        qq{<link>http://freshmeat.net/news/1999/06/21/930003829.html</link>\n} .
        qq{</item>\n} .
        qq{<item>\n<title>gcc 10.0.10</title>\n} .
        qq{<link>http://gcc-compiler.tld/</link>\n} .
        qq{</item>\n},
        "Checking for second item after first item when add_item with mode == append."
    );
}

{
    my $rss = create_rss();

    $rss->add_item(
        mode => "insert",
        title => "gcc 10.0.10",
        link => "http://gcc-compiler.tld/",
    );

    # TEST
    contains($rss,
        qq{<item>\n<title>gcc 10.0.10</title>\n} .
        qq{<link>http://gcc-compiler.tld/</link>\n} .
        qq{</item>\n} .
        qq{<item>\n<title>GTKeyboard 0.85</title>\n} .
        qq{<link>http://freshmeat.net/news/1999/06/21/930003829.html</link>\n} .
        qq{</item>\n},
        "Checking for second item before first item when add_item with mode == insert."
    );
}