|
| 1 | +use strict; |
| 2 | +use warnings; |
| 3 | + |
| 4 | +use Cluster; |
| 5 | +use TestLib; |
| 6 | +use Test::Moretests=> 1; |
| 7 | +use IPC::Runqw(start finish); |
| 8 | +use Cwd; |
| 9 | + |
| 10 | +my$nnodes = 2; |
| 11 | +my$cluster = new Cluster($nnodes); |
| 12 | + |
| 13 | +$cluster->init(); |
| 14 | +$cluster->configure(); |
| 15 | +$cluster->start(); |
| 16 | +diag("sleeping 10"); |
| 17 | +sleep(10); |
| 18 | + |
| 19 | +my ($in,$out,$err,$rc); |
| 20 | +my$seconds = 30; |
| 21 | +$in =''; |
| 22 | +$out =''; |
| 23 | + |
| 24 | +my@init_argv = ( |
| 25 | +'pgbench', |
| 26 | +'-i', |
| 27 | +-h=>$cluster->{nodes}->[0]->host(), |
| 28 | +-p=>$cluster->{nodes}->[0]->port(), |
| 29 | +'postgres', |
| 30 | +); |
| 31 | +diag("running pgbench init"); |
| 32 | +my$init_run = start(\@init_argv,$in,$out); |
| 33 | +finish($init_run) || BAIL_OUT("pgbench exited with$?"); |
| 34 | + |
| 35 | +my@bench_argv = ( |
| 36 | +'pgbench', |
| 37 | +'-T 30', |
| 38 | +'-N', |
| 39 | +'-c 8', |
| 40 | +-h=>$cluster->{nodes}->[0]->host(), |
| 41 | +-p=>$cluster->{nodes}->[0]->port(), |
| 42 | +'postgres', |
| 43 | +); |
| 44 | +diag("running pgbench:" .join('',@bench_argv)); |
| 45 | +my$bench_run = start(\@bench_argv,$in,$out); |
| 46 | + |
| 47 | +my$started =time(); |
| 48 | +while (time() -$started <$seconds) |
| 49 | +{ |
| 50 | +($rc,$out,$err) =$cluster->psql(2,'postgres',"vacuum full;"); |
| 51 | +if ($rc != 0) |
| 52 | +{ |
| 53 | +BAIL_OUT("vacuum full failed"); |
| 54 | +} |
| 55 | +} |
| 56 | + |
| 57 | +finish($bench_run) || BAIL_OUT("pgbench exited with$?"); |
| 58 | +ok($cluster->stop('fast'),"cluster stops"); |
| 59 | +1; |