From 8ed21eb9d7ac09a3ab91bb3cd722ad6ebaa21494 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Fri, 22 Apr 2016 13:36:14 -0700
Subject: Initial release

---
 t/splat.t | 43 +++++++++++++++++++++++--------------------
 1 file changed, 23 insertions(+), 20 deletions(-)

(limited to 't/splat.t')

diff --git a/t/splat.t b/t/splat.t
index 53dcac2..9bd920a 100644
--- a/t/splat.t
+++ b/t/splat.t
@@ -4,26 +4,29 @@ use strict;
 use warnings FATAL => 'all';
 use Test::More;
 
-plan tests => 2;
+if ( $ENV{RELEASE_TESTING} ) {
 
-use Map::Splat;
-my $map = Map::Splat->new(
-  lon => -122.279,
-  lat => 37.939,
-  height => 300,
-  freq => 2460,
-  azimuth => 200,
-  h_width => 180,
-  v_width => 20,
-  tilt => 2,
-  max_loss => 180,
-  min_loss => 30,
-);
-$map->calculate;
-ok( defined $map->box, 'bounding box exists' );
-ok( defined $map->png, 'PNG generated' );
+  plan tests => 2;
 
-$map->image->Write('splat.png');
-use File::Slurp 'write_file';
-write_file 'mask.png', $map->mask;
+  use Map::Splat;
+  my $map = Map::Splat->new(
+    lon => -122.279,
+    lat => 37.939,
+    height => 300,
+    freq => 2460,
+    azimuth => 200,
+    h_width => 180,
+    v_width => 20,
+    tilt => 2,
+    max_loss => 180,
+    min_loss => 30,
+  );
+  $map->calculate;
+  ok( defined $map->box, 'bounding box exists' );
+  ok( length($map->png) > 0, 'PNG generated' );
 
+} else {
+
+  plan( skip_all => 'Operational testing not required to build');
+
+}
-- 
cgit v1.2.1