nostr/strfry
1
0
Fork 0
mirror of https://github.com/hoytech/strfry.git synced 2025-06-16 08:18:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

update negentropy

Browse Source
This commit is contained in:
Doug Hoyte
2023-12-06 15:20:42 -05:00
parent 9f2b6dcc66
commit fc43a2260b
3 changed files with 75 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
test/runSyncTests.pl Normal file
View File

@ -0,0 +1,52 @@
#!/usr/bin/env perl
use strict;
## Full DB sync tests
{
my $f = '{}';
test(qq{ 1 0 0 '$f' });
test(qq{ 0 1 0 '$f' });
test(qq{ 0 0 1 '$f' });
test(qq{ 1 1 1000 '$f' });
}
## Vector DB sync tests
{
my $f = '{"kinds":[1]}';
test(qq{ 1 0 0 '$f' });
test(qq{ 0 1 0 '$f' });
test(qq{ 0 0 1 '$f' });
test(qq{ 1 1 1000 '$f' });
}
## Full DB sync tests with time bounds
{
my $f = '{"since":1652985767,"until":1662969916}';
test(qq{ 1 1 1000 '$f' }, 100000);
test(qq{ 0 0 1 '$f' }, 100000);
$f = '{"since":1652985767}';
test(qq{ 1 1 1100 '$f' }, 100000);
$f = '{"until":1662969916}';
test(qq{ 1 1 1200 '$f' }, 100000);
}
print "All OK\n";
sub test {
my $params = shift;
my $num = shift // 1000;
print "---------------------------\n";
print "TEST: params = $params num = $num\n";
my $redir = $ENV{VERBOSE} ? '' : '2>/dev/null';
my $cmd = qq{ zstdcat ../nostr-dumps/nostr-wellorder-early-500k-v1.jsonl.zst | head -$num | perl test/syncTest.pl $params $redir};
print "CMD: $cmd\n";
system($cmd) && die "failed";
print "\n";
}