t/splat.t

   1 #!perl
   2 use 5.006;
   3 use strict;
   4 use warnings FATAL => 'all';
   5 use Test::More;
   6
   7 if ( $ENV{RELEASE_TESTING} ) {
   8
   9   plan tests => 2;
  10
  11   use Map::Splat;
  12   my $map = Map::Splat->new(
  13     lon => -122.279,
  14     lat => 37.939,
  15     height => 300,
  16     freq => 2460,
  17     azimuth => 200,
  18     h_width => 180,
  19     v_width => 20,
  20     tilt => 2,
  21     max_loss => 180,
  22     min_loss => 30,
  23   );
  24   $map->calculate;
  25   ok( defined $map->box, 'bounding box exists' );
  26   ok( length($map->png) > 0, 'PNG generated' );
  27
  28 } else {
  29
  30   plan( skip_all => 'Operational testing not required to build');
  31
  32 }