use strict;
use warnings;
use Test::More tests => 4;
BEGIN { use_ok('String::Truncate', qw(elide trunc)); }
my $brain = "this is your brain";
is(
elide($brain, 16, { truncate => 'ends' }),
"... is your b...",
"elide both ends",
);
eval { elide($brain, 5, { truncate => 'ends' }) };
like($@, qr/longer/, "marker can't exceed 1/2 length for end elision");
is(
elide("I will use short ones to get more.", 20,
{ truncate => 'ends', at_space => 1 }
),
"...short ones to...",
"at_space lets us break betwen words (elide, at ends)",
);