use lib qw(lib);

BEGIN {
    @ENV{"SCRIPT_NAME"} = ("mysql.pl");
} ## end BEGIN
use HTML::Menu::Pages;
use Test::More tests => 1;
use Cwd;
my $cwd    = cwd();
my $test   = new HTML::Menu::Pages;
my %needed = (
    path         => "$cwd/cgi-bin",
    start        => '20',
    length       => '345',
    style        => 'mysql',
    action       => 'dbs',
    linkspropage => 3,
);
ok( length( $test->makePages( \%needed ) ) > 0 );
