Attachment 27 Details for Bug 28 – quick & dirty sftp torture test

quick & dirty sftp torture test

test-sftp.pl (text/plain), 1.64 KB, created by Damien Miller on 2002-02-14 08:27:08 AEDT

(hide)

Description:

Filename:

MIME Type:

Creator: Damien Miller

Created: 2002-02-14 08:27:08 AEDT

Size: 1.64 KB

patch

obsolete

>#!/usr/bin/perl
>
>$SFTP_CLIENT="/usr/bin/sftp";
>$SFTP_SERVER_PROG="/usr/libexec/openssh/sftp-server";
>
>$MIN_FILESIZE=0;
>$MAX_FILESIZE=5*1024*1024;
>
>$MIN_BUFLEN=1;
>$MAX_BUFLEN=65536;
>
>$MIN_REQUESTS=1;
>$MAX_REQUESTS=32;
>
>$RANDOM_DEV="/dev/urandom"; # Use /dev/arandom on OpenBSD
>$DD="/bin/dd";
>$CMP="/usr/bin/cmp";
>
>srand();
>
>sub maketestfile()
>{
>	$randsize = int(rand($MAX_FILESIZE - $MIN_FILESIZE) + $MIN_FILESIZE);
>	$rand8k = int($randsize / 8192);
>	$leftover = $randsize % 8192;
>	
>	print STDERR "Creating a file of length $randsize\n";
>	system("$DD if=$RANDOM_DEV bs=8192 count=$rand8k > test-1.junk 2>/dev/null") == 0 or die;
>	system("$DD if=$RANDOM_DEV bs=$leftover count=1 >> test-1.junk 2>/dev/null") == 0 or die;
>}
>
>system("echo \"get test-1.junk test-2.junk\" > test-get");
>system("echo \"put test-1.junk test-2.junk\" > test-put");
>
>while(1) {
>	maketestfile();
>
>	$buflen = int(rand($MAX_BUFLEN - $MIN_BUFLEN) + $MIN_BUFLEN);
>	$requests = int(rand($MAX_REQUESTS - $MIN_REQUESTS) + $MIN_REQUESTS);
>	$cmd = "$SFTP_CLIENT -b test-get -B $buflen -R $requests -P $SFTP_SERVER_PROG";
>	
>	print STDERR "$cmd\n";
>	system($cmd) == 0 or die;
>
>	print STDERR "Compare...\n";
>	system("$CMP test-1.junk test-2.junk") == 0  or die "Corrupt";
>	unlink("test-2.junk") or die;
>	
>	$buflen = int(rand($MAX_BUFLEN - $MIN_BUFLEN) + $MIN_BUFLEN);
>	$requests = int(rand($MAX_REQUESTS - $MIN_REQUESTS) + $MIN_REQUESTS);
>	$cmd = "$SFTP_CLIENT -b test-put -B $buflen -R $requests -P $SFTP_SERVER_PROG";
>	
>	print STDERR "$cmd\n";
>	system($cmd) == 0  or die;
>
>	print STDERR "Compare...\n";
>	system("$CMP test-1.junk test-2.junk") == 0  or die "Corrupt";
>	unlink("test-2.junk");
>	unlink("test-1.junk");
>};

Actions: View

Attachments on bug 28: 27