#!perl -I./t

use strict;
use warnings;
use Test::More tests => 6;
use My_Test();
BEGIN { use_ok 'BTRIEVE::Native' }

my $B = \&BTRIEVE::Native::Call;

my $p = "\0" x 128;
my $d = "\0";
my $l = 0;
my $k = $My_Test::File;

is $B->( 0, $p, $d, $l, $k, 0 ), 0,'open';

$d = "\0" x $My_Test::Length;
$l = $My_Test::Length;
$k = "\0" x 255;

for ( 1 .. @$My_Test::Data )
{
  is $B->( 24, $p, $d, $l, $k, 0 ), 0,'step';
  print '# ', join(':', unpack( $My_Test::Mask, $d ) ), "\n";
}
is $B->( 24, $p, $d, $l, $k, 0 ), 9,'eof';