t/011_first_last.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 5;
   7
   8 require_ok('Moose::Autobox');
   9
  10 use Moose::Autobox;
  11
  12 my $string = 'foo';
  13 my $list = ['foo', 'bar'];
  14
  15 is $string->first, 'foo';
  16 is $string->last, 'foo';
  17
  18 is $list->first, 'foo';
  19 is $list->last, 'bar';