CPAN::Groonga

me" : "");
    $testname ? any_isnt { 0 } 1, $params, $testname : any_isnt { 0 } 1, $params;
    test_test "Everything should be O.K., if sub always returns 0, but 1 isnt expected ".
              _du

out "ok 1" . ($testname ? " - $testname" : "");
    any_isnt { eq_array(\@_, $ok_params) ? 0 : 1 } 1, $params, $testname;
    test_test "any_isnt should be correct with" .
              _dump_params({

t is different to " . _dump_params(42);
    test_diag "but didn't found such parameters";
    any_isnt { 42 } 42, $params, $testname;
    test_test "no true values should fail (". 
              _dump

arams::seed;
}

sleep 2;

{
    import Test::ManyParams;
    $seed2 = $Test::ManyParams::seed;
}

isnt $seed1, $seed2, "Two seeds should be different";

#throws_ok {import Test::ManyParams; $Test::Man