The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
MRDVT / Geo-Google-StaticMaps-V2-0.09 / t / 010_path_fillcolor.t 
# -*- perl -*-

use strict;
use warnings;

use Test::More tests => 11;

BEGIN { use_ok( 'Geo::Google::StaticMaps::V2' ); }

my $map=Geo::Google::StaticMaps::V2->new(_signer=>"");

my $path=$map->path(locations=>["Clifton,VA", "Vienna,VA", "Chantilly, VA", "Clifton,VA"]);

isa_ok ($path, 'Geo::Google::StaticMaps::V2::Path');

is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=Clifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url path only');

$path->fillcolor("red");
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3Ared%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url red');

$path->fillcolor("0xFF0000");
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF0000%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url 0xFF0000');

$path->fillcolor("0xFF000019");
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF000019%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url 0xFF000019');

$path->fillcolor([255,0,0,25]);
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF000019%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url [255,0,0,25]');

$path->fillcolor([255,0,0,"10%"]);
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF000019%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url [255,0,0,"10%"]');

$path->fillcolor({r=>255});
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF0000%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url {r=>255}');

$path->fillcolor({r=>255, a=>25});
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF000019%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url {r=>255, a=>25}');

$path->fillcolor({r=>255, a=>"10%"});
is($map->url, "http://maps.googleapis.com/maps/api/staticmap?size=600x400&sensor=false&path=fillcolor%3A0xFF000019%7CClifton%2CVA%7CVienna%2CVA%7CChantilly%2C+VA%7CClifton%2CVA", '$map->url {r=>255, a=>"10%"}');