diff options
author | Dustin Sallings <dustin@spy.net> | 2009-10-25 14:13:12 -0700 |
---|---|---|
committer | Dustin Sallings <dustin@spy.net> | 2009-10-25 14:13:12 -0700 |
commit | 7bad2d695332df31ad45994a0c0b118ac32883c0 (patch) | |
tree | ec8de7a45a7e8811100548814c04ed699a8a224f /t | |
parent | 3705435b522c70aa31cf5636dfa01b33e85629a3 (diff) | |
download | memcached-7bad2d695332df31ad45994a0c0b118ac32883c0.tar.gz |
Fix sasl mechanism order assumption in test.
Diffstat (limited to 't')
-rwxr-xr-x | t/binary-sasl.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/binary-sasl.t b/t/binary-sasl.t index 9536ee7..1fb5615 100755 --- a/t/binary-sasl.t +++ b/t/binary-sasl.t @@ -123,7 +123,7 @@ ok(defined $v && length($v), "Proper version: $v"); # list mechs my $mechs= $mc->list_mechs(); -Test::More::cmp_ok($mechs, 'eq', 'PLAIN CRAM-MD5', "list_mechs $mechs"); +Test::More::cmp_ok($mechs, 'eq', 'CRAM-MD5 PLAIN', "list_mechs $mechs"); # this should fail, not authenticated { @@ -233,7 +233,7 @@ sub authenticate { sub list_mechs { my ($self)= @_; my ($status, $rv, undef) = $self->_do_command(::CMD_SASL_LIST_MECHS, '', '', ''); - return $rv ; + return join(" ", sort(split(/\s+/, $rv))); } sub build_command { |