From: Vincent Pit <vince@profvince.com>
Date: Sat, 7 Mar 2009 11:05:26 +0000 (+0100)
Subject: Output optional modules versions in tests
X-Git-Tag: v0.04~7
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=5c21bf6de3e2527b0fe556b5d67d785f1d686a8d

Output optional modules versions in tests
---

diff --git a/t/22-magic.t b/t/22-magic.t
index f1ec1f9..c6a517c 100644
--- a/t/22-magic.t
+++ b/t/22-magic.t
@@ -29,6 +29,7 @@ BEGIN {
 
 BEGIN {
  plan tests => 2 * 8;
+ defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION;
 }
 
 use Lexical::Types as => 'Lexical::Types::Test';
diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 8849161..1e24d25 100644
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -34,6 +34,7 @@ BEGIN {
 
 BEGIN {
  plan tests => 2 * 11;
+ defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION;
 }
 
 use Lexical::Types as => 'Lexical::Types::Test';
diff --git a/t/30-threads.t b/t/30-threads.t
index 5c4b8d1..c3db6c1 100644
--- a/t/30-threads.t
+++ b/t/30-threads.t
@@ -17,6 +17,8 @@ use threads;
 
 use Test::More tests => 10 * 2 * 2 * (1 + 2);
 
+defined and diag "Using threads $_" for $threads::VERSION;
+
 {
  package Lexical::Types::Test::Tag;