Lines Matching refs:cmd
81 my $cmd = "touch /sanity/a 50\r\n";
82 print $ps $cmd;
85 is(scalar <$be>, $cmd, "sanity check: touch cmd received for be " . $idx);
345 my $cmd;
350 $cmd = "set /b/a 0 0 2";
351 print $ps "$cmd\r\nhi\r\n";
352 is(scalar <$be>, "$cmd\r\n", "set passthrough");
361 $cmd = "set /b/a 0 0 $datasize";
362 print $ps "$cmd\r\n$data\r\n";
363 is(scalar <$be>, "$cmd\r\n", "set passthrough (large value)");
371 $cmd = "set /b/a 0 0 2";
373 my $req_ps = "$cmd\r\n$data\r\n";
386 is(scalar <$be>, "$cmd\r\n", "set passthrough (repeated)");
397 $cmd = "get /b/a\r\n";
398 print $ps $cmd;
399 is(scalar <$be>, $cmd, "get passthrough");
409 $cmd = "get /b/a\r\n";
410 print $ps $cmd;
411 is(scalar <$be>, $cmd, "get passthrough (large value)");
419 $cmd = "touch /b/a 50\r\n";
420 print $ps $cmd;
421 is(scalar <$be>, $cmd, "touch passthrough");
427 $cmd = "gets /b/a\r\n";
428 print $ps $cmd;
429 is(scalar <$be>, $cmd, "gets passthrough");
437 $cmd = "gat 10 /b/a\r\n";
438 print $ps $cmd;
439 is(scalar <$be>, $cmd, "gat passthrough");
447 $cmd = "gat 10 /b/a\r\n";
448 print $ps $cmd;
449 is(scalar <$be>, $cmd, "gat passthrough");
455 $cmd = "gats 11 /b/a\r\n";
456 print $ps $cmd;
457 is(scalar <$be>, $cmd, "gats passthrough");
465 $cmd = "cas /b/a 0 0 2 5";
466 print $ps "$cmd\r\nhi\r\n";
467 is(scalar <$be>, "$cmd\r\n", "cas passthrough");
474 $cmd = "cas /b/a 0 0 3 6";
475 print $ps "$cmd\r\nabc\r\n";
476 is(scalar <$be>, "$cmd\r\n", "cas passthrough");
483 $cmd = "add /b/a 0 0 2";
484 print $ps "$cmd\r\nhi\r\n";
485 is(scalar <$be>, "$cmd\r\n", "add passthrough");
492 $cmd = "add /b/a 0 0 4";
493 print $ps "$cmd\r\nabcd\r\n";
494 is(scalar <$be>, "$cmd\r\n", "add passthrough");
501 $cmd = "delete /b/a\r\n";
502 print $ps $cmd;
503 is(scalar <$be>, $cmd, "delete passthrough");
509 $cmd = "incr /b/a 1\r\n";
510 print $ps $cmd;
511 is(scalar <$be>, $cmd, "incr passthrough");
517 $cmd = "decr /b/a 1\r\n";
518 print $ps $cmd;
519 is(scalar <$be>, $cmd, "decr passthrough");
525 $cmd = "append /b/a 0 0 2";
526 print $ps "$cmd\r\nhi\r\n";
527 is(scalar <$be>, "$cmd\r\n", "append passthrough");
534 $cmd = "prepend /b/a 0 0 2";
535 print $ps "$cmd\r\nhi\r\n";
536 is(scalar <$be>, "$cmd\r\n", "prepend passthrough");
546 $cmd = "mg /b/a\r\n";
547 print $ps $cmd;
548 is(scalar <$be>, $cmd, "mg passthrough");
553 $cmd = "ms /b/a 2";
554 print $ps "$cmd\r\nhi\r\n";
555 is(scalar <$be>, "$cmd\r\n", "ms passthrough");
562 $cmd = "md /b/a\r\n";
563 print $ps $cmd;
564 is(scalar <$be>, $cmd, "md passthrough");
569 $cmd = "ma /b/a\r\n";
570 print $ps $cmd;
571 is(scalar <$be>, $cmd, "ma passthrough");
589 my $cmd = "get /b/a /b/b /b/c\r\n";
590 print $ps $cmd;
609 print $ps $cmd;
635 my $cmd = "set /b/a 0 0 2 noreply\r\nhi\r\n";
636 print $ps $cmd;
643 $cmd = "touch /b/a 50\r\n";
644 print $ps $cmd;
645 is(scalar <$be>, $cmd, "canary touch received");
840 my $cmd = "mg /response/elapsed\r\n";
841 print $ps $cmd;
842 is(scalar <$be>, $cmd, "be received request.");
963 my $cmd = "mg /response/code_ok v\r\n";
965 ps_send => $cmd,
966 be_recv => {0 => [$cmd]},
981 my $cmd = "mg /response/code_miss v\r\n";
983 ps_send => $cmd,
984 be_recv => {0 => [$cmd]},
1052 my $cmd = "mg /response/line v\r\n";
1054 ps_send => $cmd,
1055 be_recv => {0 => [$cmd]},
1089 my $cmd = "get /zonetest/" . $tu->[0] . "\r\n";
1090 print $ps $cmd;
1091 is(scalar <$be>, $cmd, "routed proper zone: " . $tu->[0]);
1095 my $cmd = "get /zonetest/invalid\r\n";
1096 print $ps $cmd;
1125 my $cmd = "get /logreqtest/a\r\n";
1126 print $ps $cmd;
1127 is(scalar <$be>, $cmd, "got passthru for log");
1134 $cmd = "get /logreqstest/a\r\n";
1135 print $ps $cmd;
1136 is(scalar <$be>, $cmd, "got passthru for logsamp");
1140 $cmd = "get /logreqstest/b\r\n";
1141 print $ps $cmd;
1142 is(scalar <$be>, $cmd, "got passthru for logsamp");