From: Vincent Pit Date: Sun, 21 Sep 2008 23:00:27 +0000 (+0200) Subject: Output threads and threads::shared versions in threads tests X-Git-Tag: v0.21_01~1 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=699cf35ef9ecbc8eec8ca35c2c10125ad6ec40e7;p=perl%2Fmodules%2FVariable-Magic.git Output threads and threads::shared versions in threads tests --- diff --git a/t/40-threads.t b/t/40-threads.t index 67afabb..2482e61 100644 --- 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 71e090f..e5ae498 100644 --- 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';