use strict;
use warnings;
use Test::More tests => 2;
use Weather::Underground::StationHistory qw{ strip_garbage_from_station_history };
SKIP: {
eval 'use Test::Differences;';
skip( "because Test::Differences isn't installed.", Test::More->builder->expected_tests() )
if $@;
{
my $original_data = <<'ORIGINAL_DATA';
Time,TemperatureF,DewpointF,PressureIn,WindDirection,WindDirectionDegrees,WindSpeedMPH,WindSpeedGustMPH,Humidity,HourlyPrecipIn,Conditions,Clouds,dailyrainin,SoftwareType<br>
<!-- 0.070:0 -->
ORIGINAL_DATA
my $cleaned_data = <<'CLEANED_DATA';
Time,TemperatureF,DewpointF,PressureIn,WindDirection,WindDirectionDegrees,WindSpeedMPH,WindSpeedGustMPH,Humidity,HourlyPrecipIn,Conditions,Clouds,dailyrainin,SoftwareType
CLEANED_DATA
# TEST
eq_or_diff(
strip_garbage_from_station_history($original_data),
$cleaned_data,
'Weather Underground output for a day with no data should have been stripped down to just the headers',
);
} # end anonymous block
{
my $original_data = <<'ORIGINAL_DATA';
Time,TemperatureF,DewpointF,PressureIn,WindDirection,WindDirectionDegrees,WindSpeedMPH,WindSpeedGustMPH,Humidity,HourlyPrecipIn,Conditions,Clouds,dailyrainin,SoftwareType<br>
2006-10-26 00:00:00,48.0,24.9,29.56,NE,51,0,4,40,0.00,,,,VWS V13.00,
<br>
2006-10-26 00:30:00,48.4,24.0,29.53,NE,40,0,5,38,0.00,,,,VWS V13.00,
<br>
2006-10-26 01:00:00,48.2,24.4,29.53,SE,137,0,3,39,0.00,,,,VWS V13.00,
<br>
2006-10-26 01:30:00,48.2,23.8,29.53,NNE,33,0,4,38,0.00,,,,VWS V13.00,
<br>
2006-10-26 02:00:00,48.4,24.0,29.53,ENE,68,0,4,38,0.00,,,,VWS V13.00,
<br>
2006-10-26 02:30:00,48.2,24.4,29.53,East,97,0,4,39,0.00,,,,VWS V13.00,
<br>
2006-10-26 03:00:00,47.8,24.1,29.53,ENE,57,0,4,39,0.00,,,,VWS V13.00,
<br>
<!-- 0.061:0 -->
ORIGINAL_DATA
my $cleaned_data = <<'CLEANED_DATA';
Time,TemperatureF,DewpointF,PressureIn,WindDirection,WindDirectionDegrees,WindSpeedMPH,WindSpeedGustMPH,Humidity,HourlyPrecipIn,Conditions,Clouds,dailyrainin,SoftwareType
2006-10-26 00:00:00,48.0,24.9,29.56,NE,51,0,4,40,0.00,,,,VWS V13.00,
2006-10-26 00:30:00,48.4,24.0,29.53,NE,40,0,5,38,0.00,,,,VWS V13.00,
2006-10-26 01:00:00,48.2,24.4,29.53,SE,137,0,3,39,0.00,,,,VWS V13.00,
2006-10-26 01:30:00,48.2,23.8,29.53,NNE,33,0,4,38,0.00,,,,VWS V13.00,
2006-10-26 02:00:00,48.4,24.0,29.53,ENE,68,0,4,38,0.00,,,,VWS V13.00,
2006-10-26 02:30:00,48.2,24.4,29.53,East,97,0,4,39,0.00,,,,VWS V13.00,
2006-10-26 03:00:00,47.8,24.1,29.53,ENE,57,0,4,39,0.00,,,,VWS V13.00,
CLEANED_DATA
# TEST
eq_or_diff(
strip_garbage_from_station_history($original_data),
$cleaned_data,
'pseudo-HTML should have been stripped from regular Weather Underground output',
);
} # end anonymous block
} # end SKIP
# setup vim: set filetype=perl tabstop=4 softtabstop=4 expandtab :
# setup vim: set shiftwidth=4 shiftround textwidth=0 nowrap autoindent :
# setup vim: set foldmethod=indent foldlevel=0 :