From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Wed, 11 Jul 2012 21:20:25 +0000 (+0000)
Subject: test for version of located perls
X-Git-Tag: v0.001_001~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f587318e9624760829be0d89719c14dd1715acec;p=scpubgit%2FSystem-Introspector.git

test for version of located perls
---

diff --git a/t/perls.t b/t/perls.t
index 2df77f9..51052d1 100644
--- a/t/perls.t
+++ b/t/perls.t
@@ -19,8 +19,13 @@ my $result = $probe->gather;
 ok $result, 'received data';
 
 is $result->{__error__}, undef, 'no errors';
-
-use Data::Dump qw( pp );
-pp $result;
+is $result->{perls}{"$FindBin::Bin/data/perls/5.10.0/lib/Config.pm"}
+  ->{config}{version},
+  '5.10.0',
+  'version for 5.10.0';
+is $result->{perls}{"$FindBin::Bin/data/perls/5.14.2/lib/Config.pm"}
+  ->{config}{version},
+  '5.14.2',
+  'version for 5.14.2';
 
 done_testing;