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

wip

Browse Source
This commit is contained in:
Doug Hoyte
2023-03-08 18:18:06 -05:00
parent d1a8383e64
commit 58c65dce09
4 changed files with 119 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/xorTest.pl
View File

@ -3,7 +3,8 @@
use IPC::Open2;
use Session::Token;
my $idSize = 16;
my $harnessCmd = shift;
my $idSize = shift || 16;
srand($ENV{SEED} || 0);
my $stgen = Session::Token->new(seed => "\x00" x 1024, alphabet => '0123456789abcdef', length => $idSize * 2);
@ -13,7 +14,7 @@ while(1) {
my $ids1 = {};
my $ids2 = {};
my $pid = open2(my $outfile, my $infile, './test/xor');
my $pid = open2(my $outfile, my $infile, $harnessCmd);
my $num = rnd(10000) + 1;