CPAN::Groonga

     isnt  index($str, $bucky), -1,  "$name is poly so found old value for it";
    } else {
        is    index($str, $bucky), -1,  "$name isn't poly so found no old value for it";
    }
    isnt    

 push @test_dirs, $own_dir;
        $test_dirs++;
    }

    $shellese = $ob->shell_settings;
    isnt($shellese, q(),                        "shellese no longer empty")
        && note $shellese;
   

on, return";

    my @vars = <APP_ROOT PATH MANPATH PERL5LIB>;
    for my $var (@vars) { 
        isnt index($shellese,     $var ), -1,   "shellese contains var $var";
        is   index($shellese, "X