#!perl -T

use strict;
use warnings;
use Test::More tests => 3;
use Geo::WeatherNWS;

# Test connecting to bad server
my $report_a = new_ok('Geo::WeatherNWS');
$report_a->setservername("bogus-site.example.com");    # doesn't exist
$report_a->settimeout(1);    # no point waiting for the impossible
my $conditions_a = $report_a->getreport('kstl');
is( $report_a->{error}, 1, 'error code set for report' );
is(
    $conditions_a->{errortext},
"Cannot connect to bogus-site.example.com: Net::FTP: Bad hostname 'bogus-site.example.com'",
    'error text set for conditions'
);