Ticket #3980: test-remote-magnet-add.pl

File test-remote-magnet-add.pl, 580 bytes (added by ijuxda, 11 years ago)
Line 
1#!/usr/bin/perl
2use warnings;
3use strict;
4my $r = './daemon/transmission-remote';
5my $n = shift || 50;
6my $w = shift || 1;
7my $s = shift || 0;
8srand $s;
9my @a = (0 .. 9, 'A' .. 'F');
10for my $i (1 .. $n) {
11  my $ih = join '', map { $a[rand @a] } 1 .. 40;
12  my $fn = sprintf 'test.file.%03d.dat', $i;
13  my $tr = "http://tracker.nonexistanthost$i.net";
14  my $m = "magnet:?xt=urn:btih:$ih&dn=$fn&tr=$tr";
15  print "$i: $r -a $m\n";
16  system $r, '-a', $m;
17  die $! if $? == -1;
18  die sprintf "signal %d", $? & 127 if $? & 127;
19  die sprintf "exit %d", $? >> 8 if $? >> 8;
20  sleep $w;
21}