#!perl

# Test that utf8::all is choosing the right encoding to not tickle
# thread bugs.

use strict;
use warnings;

# This is loaded before threads. It will not be aware of tests run in
# a thread.
use Test::More 0.96;
use Config;

BEGIN {
    plan skip_all => "Requires threads"
        if !$Config{usethreads};

    plan skip_all => "Thread support on Perl <= v5.10.0 is unstable"
        if $^V <= v5.10.0;

    plan tests => 1;
}

# Deliberately before loading threads so we don't cheat and check
# if threads are loaded, that would be brittle.
use utf8::all;

use threads;
use threads::shared;

my $ok :shared = 0;
my $t = threads->create(sub { $ok = 1; });
$t->join();
ok $ok, "threads ok with utf8::all";