From 05dd83ee03a956d4b2906c6a47520b0f1d3755df Mon Sep 17 00:00:00 2001
From: legatvs <legatvs.git@gmail.com>
Date: Fri, 25 Sep 2009 06:09:44 +0300
Subject: [PATCH] t/11redtube.t: add ADULT_OK check.

---
 CHANGES       | 10 ++++++++--
 README        | 15 +++++++++++----
 t/11redtube.t |  3 +++
 3 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/CHANGES b/CHANGES
index 4ba4426..cb92153 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,8 +1,14 @@
 Version 2.2.7
 
  User-visible changes:
- * Fix: --format=best not working with youtube (closes issue #39)
-   # Thanks to Peter Baranyi for the fix
+  * Fix: --format=best not working with youtube (closes issue #39)
+    # Thanks to Peter Baranyi for the fix
+
+ Developer-visible changes:
+  * "make test": ADULT_OK env.var. now enables redtube test
+
+ Known issues:
+  * redtube: broken
  
 
 Version 2.2.6
diff --git a/README b/README
index ddd992a..20c8090 100644
--- a/README
+++ b/README
@@ -45,9 +45,16 @@ be installed. For example:
 See also (for Makefile.PL options etc.):
   http://search.cpan.org/perldoc?ExtUtils::MakeMaker
 
-NOTE: "make test" will use ~/.cliverc settings. You can set NO_INTERNET
+
+Notes
+-----
+
+* "make test" will use ~/.cliverc settings. You can set NO_INTERNET
 environment variable to skip the host tests.
 
-If you want to try clive without installing it first:
-  cd lib
-  ../bin/clive URL
+* To enable adult website tests, set ADULT_OK environment variable.
+
+* If you want to try clive without installing it first:
+  cd lib; ../bin/clive URL
+
+
diff --git a/t/11redtube.t b/t/11redtube.t
index e7b49ea..6172bb5 100644
--- a/t/11redtube.t
+++ b/t/11redtube.t
@@ -8,6 +8,9 @@ if ( $ENV{NO_INTERNET} ) {
     plan skip_all => "No internet during package build";
 }
 else {
+    if (!$ENV{ADULT_OK}) {
+        plan skip_all => "Do not test adult websites";
+    }
     plan tests => 1;
 }
 use Test::clive;
-- 
2.11.4.GIT