Changeset 2181

Timestamp:

12/23/08 10:28:21 (3 years ago)

Author:

tsee

Message:

skip if no DISPLAY

File:

• trunk/Padre/t/01-load.t (modified) (2 diffs)

trunk/Padre/t/01-load.t

@@ -1 +1 @@
 #!/usr/bin/perl
+use strict;
+use Test::More;
+BEGIN {
+    if (not $ENV{DISPLAY} and not $^O eq 'MSWin32') {
+        plan skip_all => 'Needs DISPLAY';
+        exit 0;
+    }
+}
 
-use strict;
 BEGIN {
     $|  = 1;
@@ -11 +18 @@
 
 use Test::NeedsDisplay;
-use Test::More tests => 24;
+plan tests => 24;
 use Test::Script;
 use Test::NoWarnings;