perl interpreters probe and tests

[scpubgit/System-Introspector.git] / t / perls.t

diff --git a/t/perls.t b/t/perls.t
new file mode 100644 (file)
index 0000000..f04348b
--- /dev/null
+++ b/t/perls.t
@@ -0,0 +1,26 @@
+use strictures 1;
+use Test::More;
+use FindBin;
+
+use System::Introspector::Probe::Perls;
+
+do {
+    no warnings 'redefine';
+#    *System::Introspector::Probe::Perls::_find_possible_perl_configs = sub {
+#        map "$FindBin::Bin/data/perls/$_/lib/Config.pm", '5.10.0', '5.14.2',
+#    };
+};
+
+my $probe = System::Introspector::Probe::Perls->new(
+#    root => "$FindBin::Bin/data/perls",
+);
+
+my $result = $probe->gather;
+ok $result, 'received data';
+
+is $result->{__error__}, undef, 'no errors';
+
+use Data::Dump qw( pp );
+pp $result;
+
+done_testing;