The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
parcel KinoSearch cnick Kino;

/** Mock-object FileHandle for testing InStream/OutStream.
 */ 
class KinoSearch::Store::MockFileHandle inherits KinoSearch::Store::FileHandle {

    int64_t len;

    inert incremented MockFileHandle*
    new(const CharBuf *path = NULL, int64_t length);

    inert MockFileHandle*
    init(MockFileHandle *self, const CharBuf *path = NULL, int64_t length);

    bool_t
    Window(MockFileHandle *self, FileWindow *window, int64_t offset, int64_t len);

    bool_t 
    Release_Window(MockFileHandle *self, FileWindow *window);

    int64_t
    Length(MockFileHandle *self);

    bool_t
    Close(MockFileHandle *self);
}

/* Copyright 2009-2011 Marvin Humphrey
 *
 * This program is free software; you can redistribute it and/or modify
 * under the same terms as Perl itself.
 */