use strict; use warnings;

use Encode::Guess;

my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict utf8';
guess_encoding('some text', qw/$encodings_test/);

##</code><code>##

Unknown encoding: $encodings_test at /Users/1nickt/perl5/perlbrew/perls/perl-5.30.1/lib/5.30.1/darwin-2level/Encode/Guess.pm line 120.

##</code><code>##

use strict; use warnings;
use Test::More tests => 2;

my $str = 'foo bar baz';
my @arr = ('foo', 'bar', 'baz');

is_deeply( [ qw/foo bar baz/ ], [ @arr ] );
is_deeply( [ qw/$str/ ], [ @arr ] );

##</code><code>##

11115052-3.pl ..
1..2
ok 1
not ok 2

#   Failed test at 11115052-3.pl line 8.
#     Structures begin differing at:
#          $got->[0] = '$str'
#     $expected->[0] = 'foo'
# Looks like you failed 1 test of 2.
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/2 subtests

Test Summary Report
-------------------
11115052-3.pl (Wstat: 256 Tests: 2 Failed: 1)
  Failed test:  2
  Non-zero exit status: 1
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.05 cusr  0.00 csys =  0.07 CPU)
Result: FAIL