[gitmo/Moose-Autobox.git] / t / 008_flatten.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Moose::Autobox;

my $array = [ qw(1 2 3 4 ) ];
is_deeply(
  [ $array->flatten ],
  [ 1, 2, 3, 4 ],
  "flattening an array returns a list",
);

my $hash = { a => 1, b => 2 };
is_deeply(
  [ sort $hash->flatten ],
  [ qw(1 2 a b) ],
  "flattening a hash returns a list",
);
Commit	Line	Data
30715849	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	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	);