prefer static first

[imager.git] / t / t99thread.t

diff --git a/t/t99thread.t b/t/t99thread.t
index 0d05fe390b272403bc216cb08a95cdf2eb37a92c..f03cd249ca9f29ed989218fe70f43af368afd446 100644 (file)
--- a/t/t99thread.t
+++ b/t/t99thread.t
@@ -18,9 +18,9 @@ BEGIN {
 use Test::More;
 
 $Config{useithreads}
-  or plan skip_all => "can't test Imager's lack of threads support with no threads";
+  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 lack of threads support";
+  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";
 
@@ -32,15 +32,16 @@ $INC{"Devel/Cover.pm"}
 $Test::More::VERSION =~ /^2\.00_/
   and plan skip_all => "threads are hosed in 2.00_06 and presumably all 2.00_*";
 
-plan tests => 11;
+plan tests => 13;
 
 my $thread = threads->create(sub { 1; });
 ok($thread->join, "join first thread");
 
-# these are all, or contain, XS allocated objects, if we don't
-# probably handle CLONE requests, or provide a CLONE_SKIP, we'll
-# probably see a double-free, one from the thread, and the other from
-# the main line of control.
+# these are all, or contain, XS allocated objects, if we don't handle
+# CLONE requests, or provide a CLONE_SKIP, we'll probably see a
+# double-free, one from the thread, and the other from the main line
+# of control.
+#
 # So make one of each
 
 my $im = Imager->new(xsize => 10, ysize => 10);
@@ -81,7 +82,10 @@ my $t2 = threads->create
   (
    sub {
      ok(!UNIVERSAL::isa($im->{IMG}, "Imager::ImgRaw"),
-       "the low level image object should be undef");
+       "the low level image object should become unblessed");
+     ok(!$im->_valid_image, "image no longer considered valid");
+     is($im->errstr, "images do not cross threads",
+       "check error message");
      1;
    }
   );