# -*-perl-*-
use strict;
use Test::More 'no_plan';
use lib "$ENV{LJHOME}/cgi-bin";
require "parsefeed.pl";
require 'ljlib.pl';

#  These tests are of the correct identification of an "alternate" link.
#  We assume here that an HTML alternate link is preferred over text/plain, despite the
# fact that preferring the latter is technically allowed.

# This is taken verbatim from James Snell's set of test cases:
#    <http://www.snellspace.com/public/linktests.xml>

# Here's a giant, obnoxious hunk of XML!
my $contents = qq{
<feed xmlns="http://www.w3.org/2005/Atom">
  <id>tag:snellspace.com,2006:/atom/conformance/linktest/</id>
  <title>Atom Link Tests</title>
  <updated>2005-01-18T15:10:00Z</updated>
  <author><name>James Snell</name></author>
  <link href="http://www.intertwingly.net/wiki/pie/LinkConformanceTests" />
  <link rel="self" href="http://www.snellspace.com/public/linktests.xml" />
  
  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/1</id>
    <title>Just a single Alternate Link</title>
    <updated>2005-01-18T15:00:01Z</updated>
    <summary>The aggregator should pick the second link as the alternate</summary>
    <link rel="http://example.org/random"
         href="http://www.snellspace.com/public/wrong" /> 
    <link href="http://www.snellspace.com/public/linktests/alternate" />
    <link rel="http://example.org/random"
         href="http://www.snellspace.com/public/wrong" /> 
  </entry>

  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/2</id>
    <title>Two alternate links</title>
    <updated>2005-01-18T15:00:02Z</updated>
    <summary>The aggregator should pick either the second or third link below as the alternate</summary>
    <link rel="ALTERNATE" href="http://www.snellspace.com/public/linktests/wrong" />    
    <link href="http://www.snellspace.com/public/linktests/alternate" />
    <link type="text/plain" href="http://www.snellspace.com/public/linktests/alternate2" />
    <link rel="ALTERNATE" href="http://www.snellspace.com/public/linktests/wrong" />
  </entry>

  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/3</id>
    <title>One of each core link rel type</title>
    <updated>2005-01-18T15:00:03Z</updated>
    <summary>The aggregator should pick the first link as the alternate</summary>
    <link href="http://www.snellspace.com/public/linktests/alternate" />
    <link rel="enclosure" href="http://www.snellspace.com/public/linktests/enclosure" length="19" />
    <link rel="related" href="http://www.snellspace.com/public/linktests/related" />
    <link rel="self" href="http://www.snellspace.com/public/linktests/self" />
    <link rel="via" href="http://www.snellspace.com/public/linktests/via" />
  </entry>  

  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/4</id>
    <title>One of each core link rel type + An additional alternate link</title>
    <updated>2005-01-18T15:00:04Z</updated>
    <summary>The aggregator should pick either the first or last links as the alternate. First link is likely better.</summary>
    <link href="http://www.snellspace.com/public/linktests/alternate" />
    <link rel="enclosure" href="http://www.snellspace.com/public/linktests/enclosure" length="19" />
    <link rel="related" href="http://www.snellspace.com/public/linktests/related" />
    <link rel="self" href="http://www.snellspace.com/public/linktests/self" />
    <link rel="via" href="http://www.snellspace.com/public/linktests/via" />
    <link rel="alternate" type="text/plain" href="http://www.snellspace.com/public/linktests/alternate2" />
  </entry>  
  
  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/5</id>
    <title>Entry with a link relation registered by an extension</title>
    <updated>2005-01-18T15:00:05Z</updated>
    <summary>The aggregator should ignore the license link without throwing any errors.  The first link should be picked as the alternate.</summary>
    <link href="http://www.snellspace.com/public/linktests/alternate" />
    <link rel="license" href="http://www.snellspace.com/public/linktests/license" />
  </entry>
  
  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/6</id>
    <title>Entry with a link relation identified by URI</title>
    <updated>2005-01-18T15:00:06Z</updated>
    <summary>The aggregator should ignore the second link without throwing any errors.  The first link should be picked as the alternate.</summary>
    <link href="http://www.snellspace.com/public/linktests/alternate" />
    <link rel="http://example.org" href="http://www.snellspace.com/public/linktests/example" />
  </entry>
  
  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/7</id>
    <title>Entry with a link relation registered by an extension</title>
    <updated>2005-01-18T15:00:05Z</updated>
    <summary>The aggregator should ignore the license link without throwing any errors.  The second link should be picked as the alternate.</summary>
    <link rel="license" href="http://www.snellspace.com/public/linktests/license" />
    <link href="http://www.snellspace.com/public/linktests/alternate" />
  </entry>
  
  <entry>
    <id>tag:snellspace.com,2006:/atom/conformance/linktest/8</id>
    <title>Entry with a link relation identified by URI</title>
    <updated>2005-01-18T15:00:06Z</updated>
    <summary>The aggregator should ignore the first link without throwing any errors.  The second link should be picked as the alternate.</summary>
    <link rel="http://example.org" href="http://www.snellspace.com/public/linktests/example" />
    <link href="http://www.snellspace.com/public/linktests/alternate" />
  </entry>
  
</feed>
};

my ($feed, $error) = LJ::ParseFeed::parse_feed($contents);

foreach my $item (@{$feed->{items}}) {
    is($item->{link}, "http://www.snellspace.com/public/linktests/alternate", $item->{subject});
}