Output optional modules versions in tests

diff --git a/t/22-magic.t b/t/22-magic.t
index f1ec1f969e2f14285ca44d024cce1b9282169f22..c6a517c8b2fa6d24c95ccf4de60c82d719677561 100644 (file)
--- 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 884916146565aae644bd1fa65ab3b3fe4377c561..1e24d25d2ab48660a0325e4c80473855b36de0d0 100644 (file)
--- 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 5c4b8d1710a3f587a552b6f3e1d8dfa404bf3edc..c3db6c15c8c21fb94eab99524ea35ac6e6c0a1f4 100644 (file)
--- 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;