negentropy/test/protoversion.pl

#!/usr/bin/env perl

use strict;
$|++;

use IPC::Open2;
use Session::Token;
use FindBin;
use lib "$FindBin::Bin";
use Utils;

die "usage: $0 <lang>" if @ARGV < 1;
my $harnessCmd = Utils::harnessTypeToCmd(shift) || die "please provide harness type (cpp, js, etc)";


my $expectedResp;

## Get expected response using protocol version 1

{
    my ($infile, $outfile);
    my $pid = open2($outfile, $infile, $harnessCmd);

    print $infile "item,12345,eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee\n";
    print $infile "seal\n";
    print $infile "msg,6100000200\n"; ## full range bound, empty IdList

    my $resp = <$outfile>;
    chomp $resp;

    $expectedResp = $resp;
}

## Client tries to use some hypothetical newer version, but falls back to version 1

{
    my ($infile, $outfile);
    my $pid = open2($outfile, $infile, $harnessCmd);

    print $infile "item,12345,eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee\n";
    print $infile "seal\n";

    print $infile "msg,62aabbccddeeff\n"; ## some new protocol message

    my $resp = <$outfile>;
    chomp $resp;

    ## 61: Preferred protocol version
    die "bad upgrade response: $resp" unless $resp eq "msg,61";

    ## Try again with protocol version 1
    print $infile "msg,6100000200\n"; ## full range bound, empty IdList

    $resp = <$outfile>;
    chomp $resp;
    die "didn't fall back to protocol version 1: $resp" unless $resp eq $expectedResp;
}

print "OK\n";