Does not crash under threads for resolvers.

1 files changed, 15 insertions, 0 deletions

diff --git a/t/threads.t b/t/threads.t
new file mode 100644
index 0000000..046ea01
--- /dev/null
+++ b/t/threads.t
@@ -0,0 +1,15 @@
+use Test::More;
+
+use_ok('Net::LDNS');
+
+my $can_use_threads = eval 'use threads; 1';
+if ($can_use_threads) {
+    my $resolver = Net::LDNS->new('8.8.8.8');
+    threads->create( sub {} );
+    $_->join for threads->list;
+} else {
+    plan skip_all => 'No threads in this perl.';
+}
+
+
+done_testing;
\ No newline at end of file