From af4897987096a3b108e5956d30135a4ebcc568f0 Mon Sep 17 00:00:00 2001 From: Pieter Wuille Date: Fri, 4 May 2012 05:07:25 +0200 Subject: [PATCH] Benchmark tool --- test.pl | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100644 test.pl diff --git a/test.pl b/test.pl new file mode 100644 index 0000000..c425e33 --- /dev/null +++ b/test.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +use threads; +use threads::shared; +use bytes; +use IO::Socket; +use strict; + +my @dom = ("seed","bitcoin","sipa","be"); + +my $run :shared = 1; + +sub go { + my ($idx) = @_; + + my $runs = 0; + + my $sock = IO::Socket::INET->new( + Proto => 'udp', + PeerPort => 5353, + PeerAddr => "127.0.0.1", + ) or die "Could not create socket: $!\n"; + + while($run) { + + my $id = int(rand(65536)); + my $qr = 0; + my $opcode = 0; + my $aa = 0; + my $tc = 0; + my $rd = 0; + my $ra = 0; + my $z = 0; + my $rcode = 0; + my $qdcount = 1; + my $ancount = 0; + my $nscount = 0; + my $arcount = 0; + my $header = pack('nnnnnn',$id,1*$qr + 2*$opcode + 32*$aa + 64*$tc + 128*$rd + 256*$ra + 512*$z + 4096*$rcode, $qdcount, $ancount, $nscount, $arcount); + my $qtype = 1; # A record + my $qclass = 1; # IN class + my $query = (join("", map { chr(length($_)) . $_ } (@dom,""))) . pack('nn',$qtype,$qclass); + my $msg = $header . $query; + $sock->send($msg); + my $resp; + $runs++ if ($sock->recv($resp, 512, 0)); + +# $sock->close(); + } + return $runs; +} + +my @threads; + +for my $i (0..3) { + $threads[$i] = threads->create(\&go, $i); +} + +sleep 10; + +$run=0; +my $runs = 0; +foreach my $thr (@threads) { + $runs += $thr->join(); +} + +print "$runs runs\n";