use Test::More;
use lib './lib', '../lib';
$|++;

# Does it return 1?
use_ok 'Net::BitTorrent::Protocol::BEP07', ':all';
TODO: {
    local $TODO = 'IPv6 is just plain broken';

    #
    is compact_ipv6(['2001:0db8:85a3:0000:0000:8a2e:0370:7334', 2223]),
        pack('H*', '20010db885a3000000008a2e03707334000008af'),
        'compact_ipv6( [...] )';
    is compact_ipv6(['2001:0db8:85a3:::8a2e:0370:7334',     2223],
                    ['3ffe:1900:4545:3:200:f8ff:fe21:67cf', 911],
                    ['2001:0db8:85a3:::8a2e:0370:7334',     2223]
        ),
        pack("H*",
             "20010db885a3000000008a2e03707334000008af3ffe190045453200f8fffe2167cf00000000038f"
        ),
        'compact_ipv6( [...], [...], [...] )';

    #
    is_deeply uncompact_ipv6(
                        pack('H*', '20010db885a3000000008a2e03707334000008af')
        ),
        ['2001:DB8:85A3:0:0:8A2E:370:7334', 2223],
        'uncompact_ipv6( ... )';
    is_deeply [
        uncompact_ipv6(
            pack("H*",
                 "20010db885a3000000008a2e03707334000008af3ffe1900454500030200f8fffe2167cf0000038f"
            )
        )
        ],
        [['2001:DB8:85A3:0:0:8A2E:370:7334',     2223],
         ['3FFE:1900:4545:3:200:F8FF:FE21:67CF', 911]
        ],
        'uncompact_ipv6( ... )';
}

# We're finished!
done_testing;
__END__
Copyright (C) 2008-2012 by Sanko Robinson <sanko@cpan.org>

This program is free software; you can redistribute it and/or modify it
under the terms of The Artistic License 2.0.  See the LICENSE file
included with this distribution or
http://www.perlfoundation.org/artistic_license_2_0.  For
clarification, see http://www.perlfoundation.org/artistic_2_0_notes.

When separated from the distribution, all POD documentation is covered by
the Creative Commons Attribution-Share Alike 3.0 License.  See
http://creativecommons.org/licenses/by-sa/3.0/us/legalcode.  For
clarification, see http://creativecommons.org/licenses/by-sa/3.0/us/.