Browse files

skip aggressive attribute tests until implemented

  • Loading branch information...
patch committed Jul 15, 2013
1 parent 23ddd27 commit 51f245a376f7b8756c435d57ea850336598772c5
Showing with 9 additions and 5 deletions.
  1. +9 −5 t/01-stemmer.t
@@ -38,11 +38,15 @@ is scalar $stemmer->stem(), undef, 'empty list in scalar context';
is $stemmer->stem('работа'), 'работа', 'only stem for current language';
-ok !$stemmer->aggressive, 'light stemmer by default';
-is $stemmer->stem('všechno'), 'všechn', 'light stemmer';
-ok $stemmer->aggressive, 'aggressive stemmer explicitly set';
-is $stemmer->stem('všechno'), 'všech', 'aggressive stemmer';
+SKIP: {
+ skip 'aggressive attribute NYI', 4;
+ ok !$stemmer->aggressive, 'light stemmer by default';
+ is $stemmer->stem('všechno'), 'všechn', 'light stemmer';
+ $stemmer->aggressive(1);
+ ok $stemmer->aggressive, 'aggressive stemmer explicitly set';
+ is $stemmer->stem('všechno'), 'všech', 'aggressive stemmer';
is $stemmer->language, 'bg', 'language changed via write-accessor';

0 comments on commit 51f245a

Please sign in to comment.