From 30bbcf449ab2a9461594d4e6731dd7a6336d747d Mon Sep 17 00:00:00 2001
From: Max Maischein <corion@corion.net>
Date: Sun, 21 May 2017 11:12:30 +0200
Subject: [PATCH] Bail out if we don't have the API key in %ENV

---
 t/www-shadertoy-02-basic.t | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/t/www-shadertoy-02-basic.t b/t/www-shadertoy-02-basic.t
index 81af943..4c8e1a4 100644
--- a/t/www-shadertoy-02-basic.t
+++ b/t/www-shadertoy-02-basic.t
@@ -4,8 +4,10 @@ use Test::More tests => 6;
 use WWW::ShaderToy;
 use Data::Dumper;
 
-skip BAIL_OUT, ""
-    unless $ENV{SHADERTOY_API_KEY};
+if( !$ENV{SHADERTOY_API_KEY} ) {
+    diag "No Shadertoy.org API key found in \%ENV";
+    skip BAIL_OUT;
+};
 
 my $api = WWW::ShaderToy->new(
     api_key => $ENV{SHADERTOY_API_KEY},