CPAN::Groonga

( $telnet->getline(), ".\n" );
    }

    sleep(6);

    $test->();

    for ( 1 .. 2 ) {
        isnt( shift(@pids), shift(@old_pids) );
    }

    $telnet->print('killall Gearman::Driver::Test::Live

    is( $telnet->getline(), ".\n" );

    sleep(6);

    $test->();

    for ( 1 .. 2 ) {
        isnt( shift(@pids), shift(@old_pids) );
    }

    # reset default values
    $telnet->print("set_min_

ssGroup group1 #2' );
    is( $$pid1, $$pid4, 'Same pid for all jobs of ProcessGroup group1 #3' );
    isnt( $$pid1, $$pid5, 'Not same pid because job5 doesnt use ProcessGroup' );
}

$test->shutdown;

 );
        sleep(2);
    }

    sleep(6);
    my $pid2 = $gc->do_task( 'Gearman::Driver::Test::Live::MaxIdleTime::get_pid' => '' );
    isnt( $$pid2, $$pid1, 'Got another PID' );
}

$test->shutdown;

st::Live::Quit::quit1' => '' );
    like( $$pid2, qr/^\d+$/, 'Got again some number (pid)' );
    isnt( $$pid2, $$pid1, 'Worker got restarted, got a new pid' );
}

{
    my $pid1 = $gc->do_task( 'Gear