t/008_flatten.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7 use Moose::Autobox;
   8
   9 my $array = [ qw(1 2 3 4 ) ];
  10 is_deeply(
  11   [ $array->flatten ],
  12   [ 1, 2, 3, 4 ],
  13   "flattening an array returns a list",
  14 );
  15
  16 my $hash = { a => 1, b => 2 };
  17 is_deeply(
  18   [ sort $hash->flatten ],
  19   [ qw(1 2 a b) ],
  20   "flattening a hash returns a list",
  21 );
  22
  23 my $scalar = 1;
  24 is_deeply(
  25   [ $scalar->flatten ],
  26   [ 1 ],
  27   "flattening a scalar returns the scalar",
  28 );
  29
  30 my $scalar_ref = \$scalar;
  31 is_deeply(
  32   [ $scalar_ref->flatten ],
  33   [ \$scalar ],
  34   "flattening a reference to a scalar returns the same scalar reference",
  35 );