function PorterStemmerInternalsUnitTest::testGeology in Porter-Stemmer 7
Same name and namespace in other branches
- 6.2 porterstemmer.test \PorterStemmerInternalsUnitTest::testGeology()
Test internal steps on the word "geology".
File
- ./
porterstemmer.test, line 693 - Tests for the Porter Stemmer module. By Jennifer Hodgdon of Poplar ProductivityWare, www.poplarware.com Unit tests are based on sample words from http://snowball.tartarus.org/algorithms/english/stemmer.html which are stored in a separate file…
Class
- PorterStemmerInternalsUnitTest
- Unit tests for Porter Stemmer - Stemming internals.
Code
function testGeology() {
$r1 = 0;
$r2 = 0;
$word = 'geology';
variable_set('minimum_word_size', 2);
porterstemmer_too_short('', TRUE);
porterstemmer_prestemming($word, $r1, $r2);
// Test calculation of R1 and R2
$this
->assertEqual($r1, 4, "R1 for geology should be 4, was {$r1}", 'Stemmer steps');
$this
->assertEqual($r2, 6, "R2 for geology should be 6, was {$r2}", 'Stemmer steps');
// Test step 1c of the algorithm
porterstemmer_step1c($word);
$this
->assertEqual($word, 'geologi', "Step1c should be geologi, was {$word}", 'Stemmer steps');
// Test step 2 of the algorithm
porterstemmer_step2($word, $r1);
$this
->assertEqual($word, 'geolog', "Step2 should be geolog, was {$word}", 'Stemmer steps');
}