#!/usr/bin/env perl

use IPC::Open2;
use Session::Token;

my $idSize = 16;

srand($ENV{SEED} || 0);
my $stgen = Session::Token->new(seed => "\x00" x 1024, alphabet => '0123456789abcdef', length => $idSize * 2);

my $pid = open2(my $outfile, my $infile, './test/xor');

my $num = rnd(10000) + 1;

for (1..$num) {
    my $mode = rnd(3) + 1;
    my $created = 1677970534 + rnd($num);
    my $id = $stgen->get;
    print $infile "$mode,$created,$id\n";
}

close($infile);

while (<$outfile>) {
    print $_;
}



sub rnd {
    my $n = shift;
    return int(rand() * $n);
}