test for version of located perls
Robert 'phaylon' Sedlacek [Wed, 11 Jul 2012 21:20:25 +0000 (21:20 +0000)]
t/perls.t

index 2df77f9..51052d1 100644 (file)
--- 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;