Skip t/59-unwind-threads.t when the module is not thread safe

[perl/modules/Scope-Upper.git] / t / 01-import.t

diff --git a/t/01-import.t b/t/01-import.t
index 35d82124dfbdf6f698f124bef001d0c90c62569e..da61bbc9d57789ee9e27544add8ea8b27572a6f6 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -3,11 +3,13 @@
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 14;
 
 require Scope::Upper;
 
-for (qw/reap localize localize_elem localize_delete unwind TOP HERE UP DOWN SUB EVAL CALLER/) {
+for (qw/reap localize localize_elem localize_delete unwind want_at
+        TOP HERE UP SUB EVAL SCOPE CALLER
+        SU_THREADSAFE/) {
  eval { Scope::Upper->import($_) };
  is($@, '', 'import ' . $_);
 }