### ----------------------------------------------------
### -- Algorithm::Soundex
### -- Licenses: Artistic-2.0
### -- Authors: Jonathan Leto
### -- File: t/00-basic.rakutest
### ----------------------------------------------------
use Test;

use Algorithm::Soundex;

plan 3;

my Algorithm::Soundex $s .= new();
isa-ok($s, Algorithm::Soundex);

my $soundex = $s.soundex("Robert");
is($soundex, 'R163', 'soundex of Robert');

$soundex = $s.soundex("");
is($soundex, '', 'soundex of nothing is nothing');

# vim: expandtab shiftwidth=4


