### ----------------------------------------------------
### -- URL::Find
### -- Licenses: Artistic-2.0
### -- Authors: Samantha McVey
### -- File: t/01-url-find-unicode.rakutest
### ----------------------------------------------------
use Test;
use URL::Find;

plan 1;

my $test-string =
Q{
file://home/me/myfile.jpg
http://www.com/commaæ,
https://www.google.com/search?q=perl+6&oq=perl+6&aqs=chrome.0.69i59l3j69i60l3.742j0j1&sourceid=chrome&ie=UTF-8&,%
http://правительство.рф
ooooooooooooooo
http://실례.테스트/ель
http://παράδειγμα.δοκιμή/&};
my @correct =
'http://www.com/commaæ',
'https://www.google.com/search?q=perl+6&oq=perl+6&aqs=chrome.0.69i59l3j69i60l3.742j0j1&sourceid=chrome&ie=UTF-8',
'http://правительство.рф',
'http://실례.테스트/ель',
'http://παράδειγμα.δοκιμή/';

is find-urls($test-string), @correct, "Test finding Unicode URL's";

# vim: expandtab shiftwidth=4


