#!perl -T
use 5.010;
use strict;
use warnings FATAL   => 'all';
use Test::More tests => 4;
use DarkSky::API;
use Data::Dumper;

my $darksky =
  DarkSky::API->new( api_key => '<your key here>' );

my $storms = $darksky->interesting();
ok( defined($storms), 'interesting' );

my $brief =
  $darksky->brief_forecast(
    { latitude => '40.7142', longitude => '-74.0064' } );
ok( defined($brief),'brief forecast' );

my $full =
  $darksky->forecast( { latitude => '40.7142', longitude => '-74.0064' } );
ok( defined($full), 'full forecast' );

my $precipitation = $darksky->precipitation(['42.7','-73.6',1325607100,'42.0','-73.0',1325607791]);
ok( defined($precipitation), 'precipitation' );