use strict;
use warnings;
use Test::More;
use WWW::YouTube::Download;

sub test_playlist_id {
    my ($input, $expects) = @_;
    is +WWW::YouTube::Download->new()->playlist_id($input), $expects;
}

test_playlist_id(
    'http://www.youtube.com/playlist?list=FLa6SM4ycX9Ltbrhf71es_RA',
    'FLa6SM4ycX9Ltbrhf71es_RA'
);

test_playlist_id(
    'FLbKM5fcSsaEFZRP-bjH8Y9w',
    'FLbKM5fcSsaEFZRP-bjH8Y9w'
);

test_playlist_id(
    'http://www.youtube.com/watch?v=9VV8sgVSZNQ&list=ALHTd1VmZQRNpEtPhKH9FrcB_S6domiCtv',
    'ALHTd1VmZQRNpEtPhKH9FrcB_S6domiCtv'
);

test_playlist_id(
    'http://www.youtube.com/playlist?list=PLUyiyCkoNwG8C_4ljTZWYYxmw7emk0W-f',
    'PLUyiyCkoNwG8C_4ljTZWYYxmw7emk0W-f'
);

test_playlist_id(
    'http://www.youtube.com/watch?v=tAjFnJuk1Aw&list=PL48DBEDD2147DDC46',
    'PL48DBEDD2147DDC46'
);

test_playlist_id(
    'ALHTd1VmZQRNpEtPhKH9FrcB_S6domiCtv',
    'ALHTd1VmZQRNpEtPhKH9FrcB_S6domiCtv'
);

test_playlist_id(
    'PLu-EVkxXzIVQp07QyLO0qFNQjBHkHwPf2',
    'PLu-EVkxXzIVQp07QyLO0qFNQjBHkHwPf2'
);

test_playlist_id(
    '3J3dCCJTos-sucVYP7nAWmR97LFbiVNJ',
    '3J3dCCJTos-sucVYP7nAWmR97LFbiVNJ'
);

test_playlist_id(
    'PLA0FA2050A02AEFF4',
    'PLA0FA2050A02AEFF4'
);

test_playlist_id(
    'C5353E661DEF8150',
    'C5353E661DEF8150'
);

done_testing;