Output threads and threads::shared versions in threads tests

diff --git a/t/40-threads.t b/t/40-threads.t
index 67afabb606656fcc5e23c8ee568deae42befec1e..2482e61f6dd0fea1f11111a6cdb10ece9af1dfa3 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -22,6 +22,10 @@ use Variable::Magic qw/wizard cast dispell getdata VMG_THREADSAFE/;
 
 if (VMG_THREADSAFE) {
  plan tests => 2 * (2 * 16 + 1) + 2 * (2 * 11 + 1);
+ my $v = $threads::VERSION;
+ diag "Using threads $v" if defined $v;
+ $v = $threads::shared::VERSION;
+ diag "Using threads::shared $v" if defined $v;
 } else {
  plan skip_all => 'This Variable::Magic isn\'t thread safe';
 }

diff --git a/t/41-clone.t b/t/41-clone.t
index 71e090f0419c3cce701882ac59d24bbd4da5e33b..e5ae4986d2a10fa7dc655c59e2e269fb7d524be2 100644 (file)
--- a/t/41-clone.t
+++ b/t/41-clone.t
@@ -22,6 +22,10 @@ use Variable::Magic qw/wizard cast dispell getdata getsig VMG_THREADSAFE/;
 
 if (VMG_THREADSAFE) {
  plan tests => 3 + 2 * (2 * 8 + 2) + 2 * (2 * 5 + 2);
+ my $v = $threads::VERSION;
+ diag "Using threads $v" if defined $v;
+ $v = $threads::shared::VERSION;
+ diag "Using threads::shared $v" if defined $v;
  diag 'This will leak a few scalars';
 } else {
  plan skip_all => 'This Variable::Magic isn\'t thread safe';