"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/watcher.t" between
memcached-1.6.8.tar.gz and memcached-1.6.9.tar.gz

About: memcached is a high-performance, distributed memory object caching system, generic in nature, but originally intended for use in speeding up dynamic web applications by alleviating database load.

watcher.t  (memcached-1.6.8):watcher.t  (memcached-1.6.9)
skipping to change at line 85 skipping to change at line 85
# test combined logs # test combined logs
# fill to evictions, then enable watcher, set again, and look for both lines # fill to evictions, then enable watcher, set again, and look for both lines
{ {
my $value = "B"x11000; my $value = "B"x11000;
my $keycount = 8000; my $keycount = 8000;
for (1 .. $keycount) { for (1 .. $keycount) {
print $client "set n,foo$_ 0 0 11000 noreply\r\n$value\r\n"; print $client "set n,foo$_ 0 0 11000 noreply\r\n$value\r\n";
} }
# wait for all of the writes to go through.
print $client "version\r\n";
$res = <$client>;
$watcher = $server->new_sock; my $mwatcher = $server->new_sock;
print $watcher "watch mutations evictions\n"; print $mwatcher "watch mutations evictions\n";
$res = <$watcher>; $res = <$mwatcher>;
is($res, "OK\r\n", "new watcher enabled"); is($res, "OK\r\n", "new watcher enabled");
my $watcher2 = $server->new_sock; my $watcher2 = $server->new_sock;
print $watcher2 "watch evictions\n"; print $watcher2 "watch evictions\n";
$res = <$watcher2>; $res = <$watcher2>;
is($res, "OK\r\n", "evictions watcher enabled"); is($res, "OK\r\n", "evictions watcher enabled");
print $client "set bfoo 0 0 11000 noreply\r\n$value\r\n"; print $client "set bfoo 0 0 11000 noreply\r\n$value\r\n";
my $found_log = 0; my $found_log = 0;
my $found_ev = 0; my $found_ev = 0;
while (my $log = <$watcher>) { while (my $log = <$mwatcher>) {
$found_log = 1 if ($log =~ m/type=item_store/); $found_log = 1 if ($log =~ m/type=item_store/);
$found_ev = 1 if ($log =~ m/type=eviction/); $found_ev = 1 if ($log =~ m/type=eviction/);
last if ($found_log && $found_ev); last if ($found_log && $found_ev);
} }
is($found_log, 1, "found rawcmd log entry"); is($found_log, 1, "found rawcmd log entry");
is($found_ev, 1, "found eviction log entry"); is($found_ev, 1, "found eviction log entry");
} }
# test cas command logs # test cas command logs
# TODO: need to expose active watchers in stats, so we can monitor for when # TODO: need to expose active watchers in stats, so we can monitor for when
 End of changes. 3 change blocks. 
4 lines changed or deleted 7 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)