Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
39 lines (26 sloc) 972 Bytes
#!/usr/bin/perl
use autobox::Core;
use Test::More tests => 25;
my $hello = 'hello';
is( $hello->center(7), ' hello ',
'->center() with even length has equal whitespace on both sides' );
is( $hello->center(7,'-'), '-hello-',
'->center() with even length has equal whitespace on both sides' );
is( $hello->center(8), ' hello ',
'->center() with odd length pads left' );
is( $hello->center(4), 'hello',
'->center() with too-short length returns the string unmodified' );
is( $hello->center(0), 'hello',
'->center(0)' );
is( $hello->center(-1), 'hello',
'->center(-1)' );
is( "even"->center(6, "-"), '-even-',
'->center(6, "-")' );
is( "even"->center(7, "-"), '--even-',
'->center(7, "-")' );
is( "even"->center(0, "-"), 'even',
'->center(0, "-")' );
# Test that center() always returns the correct length
for my $size ($hello->length..20) {
is( $hello->center($size)->length, $size, "center($size) returns that size" );
}
Something went wrong with that request. Please try again.