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

plan 1;

my $test-string =
Q{"file://home/me/myfile.jpg",
"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 =
'file://home/me/myfile.jpg',
'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, :any<1>), @correct, "Test URL's with any scheme";

# vim: expandtab shiftwidth=4


