|
Packit |
4e8bc4 |
#!/usr/bin/perl
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
use strict;
|
|
Packit |
4e8bc4 |
use Test::More tests => 9;
|
|
Packit |
4e8bc4 |
use FindBin qw($Bin);
|
|
Packit |
4e8bc4 |
use lib "$Bin/lib";
|
|
Packit |
4e8bc4 |
use MemcachedTest;
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# FIXME: Some tests are forcing UDP to be enabled via MemcachedTest.pm - need
|
|
Packit |
4e8bc4 |
# to audit and fix.
|
|
Packit |
4e8bc4 |
my $server = new_memcached("-Y $Bin/authfile -U 0");
|
|
Packit |
4e8bc4 |
my $sock = $server->sock;
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# Test unauthenticated modes
|
|
Packit |
4e8bc4 |
print $sock "set foo 0 0 2\r\nhi\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock>, qr/CLIENT_ERROR/, "failed to do a write");
|
|
Packit |
4e8bc4 |
print $sock "get foo\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock>, qr/CLIENT_ERROR/, "failed to do a read");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# Fail to authenticate.
|
|
Packit |
4e8bc4 |
print $sock "set foo 0 0 7\r\nfoo bab\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock>, qr/CLIENT_ERROR/, "failed to authenticate");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# Try for real.
|
|
Packit |
4e8bc4 |
print $sock "set foo 0 0 7\r\nfoo bar\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock>, qr/STORED/, "authenticated?");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
print $sock "set toast 0 0 2\r\nhi\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock>, qr/STORED/, "stored an item that didn't look like user/pass");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
mem_get_is($sock, "toast", "hi");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# Create a second socket, try to authenticate against the second token.
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
my $sock2 = $server->new_sock;
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
print $sock2 "set foo 0 0 10\r\nbaaaz quux\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock2>, qr/STORED/, "authenticated a second socket?");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
print $sock2 "set toast2 0 0 2\r\nho\r\n";
|
|
Packit |
4e8bc4 |
like(scalar <$sock2>, qr/STORED/, "stored an item that didn't look like user/pass");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
mem_get_is($sock2, "toast2", "ho");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# TODO: tests for reloads.
|