Changeset 770

Show
Ignore:
Timestamp:
03/29/08 09:36:30 (7 months ago)
Author:
dormando
Message:

All tests pass... except memcached-debug doesn't work.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/binary/server/t/binary.t

    r769 r770  
    33use strict; 
    44use warnings; 
    5  
    65use Test::More 'no_plan'; 
     6use FindBin qw($Bin); 
     7use lib "$Bin/lib"; 
     8use MemcachedTest; 
     9 
     10my $server = new_memcached(); 
     11 
     12ok($server, "started the server"); 
    713 
    814# Based almost 100% off testClient.py which is Copyright (c) 2007  Dustin Sallings <dustin@spy.net> 
    …… 
    214220        my $self = shift; 
    215221 
    216         my $host = shift || '127.0.0.1'; 
    217         my $port = shift || 11211; 
    218  
    219         my $sock = IO::Socket::INET->new(PeerHost => $host, PeerPort => $port); 
    220  
    221         unless ($sock) { 
    222                 warn "Unable to contact memcached."; 
    223                 return; 
    224         } 
     222    my $sock = $server->sock; 
    225223 
    226224        $self = fields::new($self);