Skip plotting tests unless $DISPLAY is set

Starlink · Aug 28, 2014 · 80d2622 · 80d2622
1 parent fa465f9
commit 80d2622
Show file tree

Hide file tree

Showing 8 changed files with 34 additions and 0 deletions.
diff --git a/t/plot00_pgplot.t b/t/plot00_pgplot.t
@@ -4,6 +4,11 @@ use strict;
 use Test::More;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
+
  # pgbegin( $unit, $file, $nxsub, $nysub );
  eval { require PGPLOT; PGPLOT::pgbegin(0,"/xw",1,1) };
  if ( $@ ) {

diff --git a/t/plot00_plplot.t b/t/plot00_plplot.t
@@ -4,6 +4,11 @@ use strict;
 use Test::More;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
+
  eval {require Graphics::PLplot; };
  if ( $@ ) {
    plan skip_all => "Graphics::PLplot module not installed.";

diff --git a/t/plot00_tk.t b/t/plot00_tk.t
@@ -4,6 +4,10 @@ use strict;
 use Test::More;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
 
  eval "use Tk; use Tk::Button;";
  if ( $@ ) {

diff --git a/t/plot00_tk_zinc.t b/t/plot00_tk_zinc.t
@@ -4,6 +4,10 @@ use strict;
 use Test::More;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
 
  eval "use Tk; use Tk::Button;";
  if ( $@ ) {

diff --git a/t/plot_pg.t b/t/plot_pg.t
@@ -10,6 +10,10 @@ require_ok( "Starlink::AST::PGPLOT" );
 use File::Spec;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
 
  eval { require PGPLOT; PGPLOT::pgbegin(0,"/xw",1,1) };
  if ( $@ ) {

diff --git a/t/plot_pl.t b/t/plot_pl.t
@@ -10,6 +10,10 @@ require_ok( "Starlink::AST::PLplot" );
 use File::Spec;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
 
  eval "use Graphics::PLplot";
  if ( $@ ) {

diff --git a/t/plot_tk.t b/t/plot_tk.t
@@ -5,6 +5,10 @@ use Test::More;
 use Data::Dumper;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
 
  eval "use Tk; use Tk::Button";
  if ( $@ ) {

diff --git a/t/plot_tk_zinc.t b/t/plot_tk_zinc.t
@@ -6,6 +6,10 @@ use Data::Dumper;
 use File::Spec;
 
 BEGIN {
+ unless (exists $ENV{'DISPLAY'}) {
+   plan skip_all => '$DISPLAY is not set.';
+   exit;
+ }
 
  eval "use Tk";
  if ($@) {