tests for flatten, to return a "perl 5" list

diff --git a/t/008_flatten.t b/t/008_flatten.t
new file mode 100644 (file)
index 0000000..bc52233
--- /dev/null
+++ b/t/008_flatten.t
@@ -0,0 +1,21 @@
+#!/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",
+);