CPAN::Groonga

e_serial($serials[1], 'sub call stackframe serial is different than first call') };
    do_test { isnt_stackframe_serial($serials[0], 'sub call stackframe serial matches expected') };
    db_continue;

al($serials[1], 'sub call stackframe serial is still different than first call') };
    do_test { isnt_stackframe_serial($serials[0], 'sub call stackframe serial still matches expected') };
}

sub is_

kframe->serial, $serial, $message);
}

sub isnt_stackframe_serial {
    my($serial, $message) = @_;
    my $stackframe = TestHelper->stack->frame(0);
    isnt($stackframe->serial, $serial, $message);

nt');
    isnt($pid, $main_pid, 'got child pid');
    is($loc->line, 17, 'parent notified on line 17');
    $parent_notified = 1;
}

sub notify_fork_child {
    my($db, $loc) = @_;

    isnt($$, $main

e for sequential statement');
    };

    db_continue;
    do_test {
        my $loc = shift;
        isnt($loc->callsite, $sequential_callsite, 'Second in sequence has different callsite');
    };
}