use Test::More;

use Bencode qw( bdecode );

my @test = (
	'0:0:'                     => \[ qr/\Atrailing garbage at 2\b/, 'data past end of first correct bencoded string' ],
	'i'                        => \[ qr/\Aunexpected end of data at 1\b/, 'aborted integer' ],
	'i0'                       => \[ qr/\Amalformed integer data at 1\b/, 'unterminated integer' ],
	'ie'                       => \[ qr/\Amalformed integer data at 1\b/, 'empty integer' ],
	'i341foo382e'              => \[ qr/\Amalformed integer data at 1\b/, 'malformed integer' ],
	'i4e'                      => 4,
	'i0e'                      => 0,
	'i123456789e'              => 123456789,
	'i-10e'                    => -10,
	'i-0e'                     => \[ qr/\Amalformed integer data at 1\b/, 'negative zero integer' ],
	'i123'                     => \[ qr/\Amalformed integer data at 1\b/, 'unterminated integer' ],
	''                         => \[ qr/\Aunexpected end of data at 0/, 'empty data' ],
	'1:'                       => \[ qr/\Aunexpected end of string data starting at 2\b/, 'string longer than data' ],
	'i6easd'                   => \[ qr/\Atrailing garbage at 3\b/, 'integer with trailing garbage' ],
	'35208734823ljdahflajhdf'  => \[ qr/\Agarbage at 0/, 'garbage looking vaguely like a string, with large count' ],
	'2:abfdjslhfld'            => \[ qr/\Atrailing garbage at 4\b/, 'string with trailing garbage' ],
	'0:'                       => '',
	'3:abc'                    => 'abc',
	'10:1234567890'            => '1234567890',
	'02:xy'                    => \[ qr/\Amalformed string length at 0\b/, 'string with extra leading zero in count' ],
	'l'                        => \[ qr/\Aunexpected end of data at 1\b/, 'unclosed empty list' ],
	'le'                       => [],
	'leanfdldjfh'              => \[ qr/\Atrailing garbage at 2\b/, 'empty list with trailing garbage' ],
	'l0:0:0:e'                 => [ '', '', '' ],
	'relwjhrlewjh'             => \[ qr/\Agarbage at 0/, 'complete garbage' ],
	'li1ei2ei3ee'              => [ 1, 2, 3 ],
	'l3:asd2:xye'              => [ 'asd', 'xy' ],
	'll5:Alice3:Bobeli2ei3eee' => [ [ 'Alice', 'Bob' ], [ 2, 3 ] ],
	'd'                        => \[ qr/\Aunexpected end of data at 1\b/, 'unclosed empty dict' ],
	'defoobar'                 => \[ qr/\Atrailing garbage at 2\b/, 'empty dict with trailing garbage' ],
	'de'                       => {},
	'd3:agei25e4:eyes4:bluee'  => { 'age' => 25, 'eyes' => 'blue' },
	'd8:spam.mp3d6:author5:Alice6:lengthi100000eee' => { 'spam.mp3' => { 'author' => 'Alice', 'length' => 100000 } },
	'd3:fooe'                  => \[ qr/\Adict key is missing value at 7\b/, 'dict with odd number of elements' ],
	'di1e0:e'                  => \[ qr/\Adict key is not a string at 1/, 'dict with integer key' ],
	'd1:b0:1:a0:e'             => \[ qr/\Adict key not in sort order at 9/, 'missorted keys' ],
	'd1:a0:1:a0:e'             => \[ qr/\Aduplicate dict key at 9/, 'duplicate keys' ],
	'i03e'                     => \[ qr/\Amalformed integer data at 1/, 'integer with leading zero' ],
	'l01:ae'                   => \[ qr/\Amalformed string length at 1/, 'list with string with leading zero in count' ],
	'9999:x'                   => \[ qr/\Aunexpected end of string data starting at 5/, 'string shorter than count' ],
	'l0:'                      => \[ qr/\Aunexpected end of data at 3/, 'unclosed list with content' ],
	'd0:0:'                    => \[ qr/\Aunexpected end of data at 5/, 'unclosed dict with content' ],
	'd0:'                      => \[ qr/\Aunexpected end of data at 3/, 'unclosed dict with odd number of elements' ],
	'00:'                      => \[ qr/\Amalformed string length at 0/, 'zero-length string with extra leading zero in count' ],
	'l-3:e'                    => \[ qr/\Amalformed string length at 1/, 'list with negative-length string' ],
	'i-03e'                    => \[ qr/\Amalformed integer data at 1/, 'negative integer with leading zero' ],
	"2:\x0A\x0D"               => "\x0A\x0D",
);

plan tests => 1 + @test / 2;

while ( my ( $frozen, $thawed ) = splice @test, 0, 2 ) {
	my $result;
	my $lived = eval { $result = bdecode( $frozen ); 1 };

	if( ref $thawed ne 'REF' ) {
		is_deeply( $result, $thawed, "decode '$frozen'" )
	}
	else {
		my ( $error_rx, $kind_of_brokenness ) = @$$thawed;
		like( $@, $error_rx, "reject $kind_of_brokenness" );
	}
}

is_deeply( bdecode( 'd1:b0:1:a0:e', 1 ), { a => '', b => '', }, "accept missorted keys when decoding leniently" )

# vim: set ft=perl: