we should also update sheep/script/Makefile.am. On Sat, May 5, 2012 at 6:06 PM, Liu Yuan <namei.unix at gmail.com> wrote: > On 05/04/2012 04:14 AM, MORITA Kazutaka wrote: > >> Signed-off-by: MORITA Kazutaka <morita.kazutaka at gmail.com> >> --- >> script/check-dog.pl | 135 --------------------------------------------------- >> 1 files changed, 0 insertions(+), 135 deletions(-) >> delete mode 100755 script/check-dog.pl >> >> diff --git a/script/check-dog.pl b/script/check-dog.pl >> deleted file mode 100755 >> index 4d8e4ba..0000000 >> --- a/script/check-dog.pl >> +++ /dev/null >> @@ -1,135 +0,0 @@ >> -#!/usr/bin/perl >> - >> -use strict; >> - >> -my ($store, $min_node, $max_node) = @ARGV; >> - >> -$store = "/tmp/".rand(100) unless $store; >> -$min_node = 3 unless $min_node; >> -$max_node = 5 unless $max_node; >> - >> -sub command { >> - my ($cmd) = @_; >> - print "$cmd\n"; >> - system "$cmd"; >> -} >> - >> -sub start_sdog { >> - my ($n) = @_; >> - my $port = 7000 + $n; >> - &command("./collie/collie --port $port $store/$n/ -d"); >> -} >> - >> -sub stop_sdog { >> - my ($n) = @_; >> - &command("./script/stop-sheepdog $n"); >> -} >> - >> -sub shuffle { >> - my @list =@_; >> - >> - for my $i ( 0..$#list ) { >> - my $rand=int(rand(@list)); >> - my $tmp=$list[$i]; >> - $list[$i]=$list[$rand]; >> - $list[$rand]=$tmp; >> - } >> - @list >> -} >> - >> -print("** setup **"); >> -&command("make clean"); >> -&command("make"); >> - >> -print("kill all sheeps and dogs\n"); >> -foreach my $n (0..10) { >> - &stop_sdog($n); >> -} >> - >> -print("clean up $store\n"); >> -&command("rm $store/[0-9]/*"); >> - >> -print("start up sdogs\n"); >> -my $node = int(($min_node + $max_node) / 2); >> -foreach my $n (shuffle(0..$node - 1)) { >> - &start_sdog($n); >> -} >> - >> -my @join_node = (0..$node-1); >> -my @leave_node = ($node..$max_node-1); >> - >> -sleep(8); >> -print("make fs\n"); >> -&command("shepherd mkfs --copies=3"); >> - >> -my $min_epoch = 1; >> -my $max_epoch = 1; >> -my $vdi = 0; >> -for (;;) { >> - my $op = int(rand(9)); >> - print("op: $op\n"); >> - if ($op == 0) { # join >> - next; >> - } elsif ($op == 1) { # leave >> - next; >> - } elsif ($op == 2) { # create >> - next if (!grep(/0/, @join_node)); >> - >> - printf("** create test **\n"); >> - >> - &command("qemu-img create -f sheepdog test$vdi ".int(rand(256))."G", 1); >> - $vdi++; >> - &command("shepherd info -t vdi -p ".(7000+$join_node[0]), 1); >> - } elsif ($op == 3) { # snapshot >> - next if ($vdi == 0); >> - next if (!grep(/0/, @join_node)); >> - >> - printf("** snapshot test **\n"); >> - >> - &command("qemu-img snapshot -c name sheepdog:test".int(rand($vdi)), 1); >> - &command("shepherd info -t vdi -p ".(7000+$join_node[0]), 1); >> - } elsif ($op == 4) { # clone >> - next if (!grep(/0/, @join_node)); >> - my $target_vdi; >> - my $tag; >> - my $list=`shepherd info -t vdi | tail -n 3`; >> - if ($list=~/ : test(\d+)[^g]+g:\s+(\w+), not current/) { >> - $target_vdi = $1; >> - $tag = $2; >> - } else { >> - next >> - } >> - >> - printf("** clone test **\n"); >> - >> - &command("qemu-img create -b sheepdog:test$target_vdi:$tag -f sheepdog test$vdi", 1); >> - $vdi++; >> - &command("shepherd info -t vdi -p ".(7000+$join_node[0]), 1); >> - } elsif ($op == 5) { # lock >> - next if ($vdi == 0); >> - >> - printf("** lock test **\n"); >> - >> - &command("shepherd info -t vm -p ".(7000+$join_node[0]), 1); >> - &command("shepherd debug -o lock_vdi test".int(rand($vdi))); >> - &command("shepherd info -t vm -p ".(7000+$join_node[1]), 1); >> - } elsif ($op == 6) { # release >> - next if ($vdi == 0); >> - >> - printf("** release test **\n"); >> - >> - &command("shepherd info -t vm -p ".(7000+$join_node[0]), 1); >> - &command("shepherd debug -o release_vdi test".int(rand($vdi))); >> - &command("shepherd info -t vm -p ".(7000+$join_node[1]), 1); >> - } elsif ($op == 7) { # update_epoch >> - next; >> - } elsif ($op == 8) { # get_node_list >> - >> - printf("** get node list test **\n"); >> - >> - my $epoch = $min_epoch + int(rand($max_epoch - $min_epoch + 1)); >> - &command("shepherd info -t dog -e $epoch -p ".(7000+$join_node[0])); >> - } elsif ($op == 9) { # make fs >> - next; >> - } >> -} > > > Applied. Thanks > > Yuan > -- > sheepdog mailing list > sheepdog at lists.wpkg.org > http://lists.wpkg.org/mailman/listinfo/sheepdog -- Yunkai Zhang Work at Taobao |