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

#!/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';
Commit	Line	Data
8b14b072	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';