use Test::More tests => 1;
use Net::NfDump qw ':all';
use Data::Dumper;
#open(STDOUT, ">&STDERR");
our %DS;

require "t/ds.pl";

# testing performance 
diag "";
diag "Testing C performance, it will take while...";

$recs = 50000000;
diag "Preparing dataset with $recs records...";
system("libnf/examples/lnf_ex01_writer -n $recs ");


#%ctests = (' >/dev/null ' => 'read with output', '-p' => 'read without output', '-p -F' => 'read without output and filters');
%ctests = (
	'-P' => 'read without output', 
	'-P -F' => 'read without output and filters',
	'-P -F' => 'read without output and filters',
	'-P -F -G' => 'read without output and filters and lnf_fld_fget',
);

diag "Running read test using lnf_ex02_reader ...";
while (my ($opts, $name) = each %ctests) {

	$tm1 = time();
	system("libnf/examples/lnf_ex02_reader $opts");
	my $tm2 = time() - $tm1;

	diag sprintf("  %s (%s): %d recs in %d secs (%d/sec)", $name, $opts, $recs, $tm2, $recs/$tm2);
}

ok(1);