temp/temp_f interchangable in Current and Hourly results

avenj · Jan 1, 2016 · b954758 · b954758
1 parent 7d228b9
commit b954758
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 3 deletions.
diff --git a/lib/Weather/OpenWeatherMap/Result/Current.pm b/lib/Weather/OpenWeatherMap/Result/Current.pm
@@ -67,6 +67,7 @@ has longitude => ( lazy_for StrictNum,
 has temp_f => ( lazy_for Int,
   builder   => sub { int( shift->data->{main}->{temp} ) },
 );
+sub temp { shift->temp_f }
 
 has temp_c => ( lazy_for Int,
   builder   => sub { int f_to_c( shift->temp_f ) },

diff --git a/lib/Weather/OpenWeatherMap/Result/Forecast/Hour.pm b/lib/Weather/OpenWeatherMap/Result/Forecast/Hour.pm
@@ -33,6 +33,7 @@ has temp => (
   coerce    => 1,
   builder   => sub { shift->_main->{temp} },
 );
+sub temp_f { shift->temp }
 
 has temp_c => (
   lazy      => 1,
@@ -164,7 +165,7 @@ provided by the OpenWeatherMap service.
 
 See also: L<Weather::OpenWeatherMap::Result::Forecast::Block/dt>
 
-=head3 temp
+=head3 temp_f
 
 The predicted temperature (in Fahrenheit).
 

diff --git a/t/inc/Testing/Result/Current.pm b/t/inc/Testing/Result/Current.pm
@@ -39,6 +39,8 @@ test 'temperatures' => sub {
   # temp_f, temp_c
   cmp_ok $self->result_obj->temp_f, '==', 41,
     'temp_f';
+  cmp_ok $self->result_obj->temp, '==', $self->result_obj->temp_f,
+    'temp aliased to temp_f';
   cmp_ok $self->result_obj->temp_c, '==', 5,
     'temp_c';
 };

diff --git a/t/inc/Testing/Result/Forecast/Hourly.pm b/t/inc/Testing/Result/Forecast/Hourly.pm
@@ -90,8 +90,10 @@ test 'atmospheric' => sub {
 test 'conditions' => sub {
   my ($self) = @_;
 
-  cmp_ok $self->first->temp, '==', 33,
-    'temp';
+  cmp_ok $self->first->temp_f, '==', 33,
+    'temp_f';
+  cmp_ok $self->first->temp, '==', $self->first->temp_f,
+    'temp aliased to temp_f';
   cmp_ok $self->first->temp_c, '==', 0,
     'temp_c';