The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use warnings;
use strict;
use Test::More tests => 2;

# Check if module loads ok
BEGIN { use_ok('Text::Banner', qw()) }

my $actual;
my $expected;

my $banner = Text::Banner->new();
$banner->set('r');
$banner->fill('#');
$actual = $banner->get();

$expected = <<'EOF';
        
 #####  
 #    # 
 #    # 
 #####  
 #   #  
 #    # 
 
EOF

is($actual, $expected, 'fill');