equal
deleted
inserted
replaced
13 my $q = new Quancom $ARGV[0]; |
13 my $q = new Quancom $ARGV[0]; |
14 |
14 |
15 my $r; |
15 my $r; |
16 |
16 |
17 $q->set(1..64 => 1); sleep 1; |
17 $q->set(1..64 => 1); sleep 1; |
|
18 print $q->get(1..64), "\n"; |
18 $q->set(1..64 => 0); sleep 1; |
19 $q->set(1..64 => 0); sleep 1; |
|
20 print $q->get(1..64), "\n"; |
19 |
21 |
20 foreach (1..64) { |
22 foreach (1..64) { |
21 $q->set($_ => 1); |
23 $q->set($_ => 1); |
|
24 print $q->get(1..64), "\n"; |
22 usleep 1e6/20; |
25 usleep 1e6/20; |
23 } |
26 } |
24 foreach (1..64) { |
27 foreach (1..64) { |
25 $q->set($_ => 0); |
28 $q->set($_ => 0); |
|
29 print $q->get(1..64), "\n"; |
26 usleep 1e6/20; |
30 usleep 1e6/20; |
27 } |
31 } |
28 |
32 |
29 # reset |
33 # reset |
30 $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n"; |
34 $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n"; |