The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
use warnings;
use Test::More;
use Geohash;

my $gh = Geohash->new;

ok(not $gh->validate(''));
ok(not $gh->validate());
ok(not $gh->validate('a'));
ok(not $gh->validate('c2b25psa'));
ok($gh->validate('c2b25ps'));
ok($gh->validate('c2b25pszzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz'));

done_testing;