Server IP : 104.21.38.3 / Your IP : 108.162.227.20 Web Server : Apache System : Linux krdc-ubuntu-s-2vcpu-4gb-amd-blr1-01.localdomain 5.15.0-142-generic #152-Ubuntu SMP Mon May 19 10:54:31 UTC 2025 x86_64 User : www ( 1000) PHP Version : 7.4.33 Disable Function : passthru,exec,system,putenv,chroot,chgrp,chown,shell_exec,popen,proc_open,pcntl_exec,ini_alter,ini_restore,dl,openlog,syslog,readlink,symlink,popepassthru,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,imap_open,apache_setenv MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /www/server/mysql/src/mysql-test/suite/ndb_memcache/t/ |
Upload File : |
# The include statement below is a temp one for tests that are yet to #be ported to run with InnoDB, #but needs to be kept for tests that would need MyISAM in future. --source include/force_myisam_default.inc --source include/have_ndb.inc --source suite/ndb_memcache/include/have_memcache.inc # Test INCR and DECR with binary protocol --perl use strict; use lib "lib/"; use My::Memcache; my $port = $ENV{NDB_MEMCACHED_1_PORT} or die "Need NDB_MEMCACHED_1_PORT"; my $mc = My::Memcache::Binary->new(); my $r = $mc->connect("localhost",$port); if($r == 0) { print STDERR "DID NOT CONNECT TO MEMCACHE AT PORT $port \n"; } else { my $r; $mc->delete("math_test_3a"); $mc->delete("math_test_3b"); $r = $mc->incr("math_test_3a", 1, 1500); # initialize at 1500 ($r == 1500) || $mc->fail("t1 expected 1500"); $r = $mc->incr("math_test_3a", 6); # increment to 1506 ($r == 1506) || $mc->fail("t2 expected 1506"); $r = $mc->decr("math_test_3b", 1, 1); # initialize at 1 ($r == 1) || $mc->fail("t3 expected 1"); $r = $mc->decr("math_test_3b", 1); # decr to 0 ($r == 0) || $mc->fail("t4 expected 0"); $r = $mc->decr("math_test_3b", 1); # should not wrap below 0. ($r == 0) || $mc->fail("t5 expected 0"); } EOF SELECT mkey, math_value FROM ndbmemcache.demo_table where mkey like 'math_test_3%' ORDER BY mkey;