avoid numbering dupes

[gitmo/Moose-Autobox.git] / t / 012_first_last.t

diff --git a/t/012_first_last.t b/t/012_first_last.t
new file mode 100644 (file)
index 0000000..ded7afe
--- /dev/null
+++ b/t/012_first_last.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+require_ok('Moose::Autobox');
+
+use Moose::Autobox;
+
+my $string = 'foo';
+my $list = ['foo', 'bar'];
+
+is $string->first, 'foo';
+is $string->last, 'foo';
+
+is $list->first, 'foo';
+is $list->last, 'bar';