#!perl
# Test that utf8::all doesn't double encode @ARGV [perl5i github 176]

BEGIN {
    # String literals are still utf-8 encoded octets here!
    @ARGV = qw(føø bar bāz テスト);
    if (${^UNICODE} & 32) {
        # If we run with the Perl Unicode flag to automatically
        # convert the command-line arguments to unicode characters,
        # we need to do so here too!
        require Encode;
        $_ = Encode::decode('UTF-8' ,$_) for @ARGV;
    }
}

{
    package Foo;
    use utf8::all;
}

{
    use utf8::all;
}

use utf8::all;
use Test::More tests => 1;

# føø bar bāz テスト still intact as unicode characters
is_deeply \@ARGV => [
    "\x{66}\x{f8}\x{f8}",
    "\x{62}\x{61}\x{72}",
    "\x{62}\x{101}\x{7a}",
    "\x{30c6}\x{30b9}\x{30c8}"
], '@ARGV as unicode characters instead of utf-8 octets';