From f46b18943584dd0554f1a57db9330bf668cfaa1c Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Wed, 16 Mar 2016 19:28:17 +1100
Subject: [PATCH] simple threading image creation/destruction test

---
 xt/x60threadgrind.t | 63 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 xt/x60threadgrind.t

diff --git a/xt/x60threadgrind.t b/xt/x60threadgrind.t
new file mode 100644
index 00000000..3f21ca6b
--- /dev/null
+++ b/xt/x60threadgrind.t
@@ -0,0 +1,63 @@
+#!perl -w
+use strict;
+use Imager;
+use Imager::Color::Float;
+use Imager::Fill;
+use Config;
+my $loaded_threads;
+BEGIN {
+  if ($Config{useithreads} && $] > 5.008007) {
+    $loaded_threads =
+      eval {
+	require threads;
+	threads->import;
+	1;
+      };
+  }
+}
+use Test::More;
+
+$Config{useithreads}
+  or plan skip_all => "can't test Imager's threads support with no threads";
+$] > 5.008007
+  or plan skip_all => "require a perl with CLONE_SKIP to test Imager's threads support";
+$loaded_threads
+  or plan skip_all => "couldn't load threads";
+
+$INC{"Devel/Cover.pm"}
+  and plan skip_all => "threads and Devel::Cover don't get along";
+
+# https://rt.cpan.org/Ticket/Display.html?id=65812
+# https://github.com/schwern/test-more/issues/labels/Test-Builder2#issue/100
+$Test::More::VERSION =~ /^2\.00_/
+  and plan skip_all => "threads are hosed in 2.00_06 and presumably all 2.00_*";
+
+plan tests => 1;
+
+Imager->preload;
+
+++$|;
+
+{
+  my @t;
+  for (1 .. 10) {
+    push @t, threads->create
+      (
+       sub {
+	 my ($which) = @_;
+	 my @im;
+	 print "# start $which\n";
+	 for (1 .. 1000) {
+	   push @im, Imager->new(xsize => 10, ysize => 10);
+	   $im[0]->box(fill => { solid => "#FF0000" });
+	   my $im = Imager->new(xsize => 10, ysize => 10, type => "paletted");
+	   $im->setpixel(x => 5, y => 5, color => "#808080");
+	 }
+	 print "# end $which\n";
+       },
+       $_
+      );
+  }
+  $_->join for @t;
+  pass("grind image creation");
+}
-- 
2.39.5