Index: /branches/binary/server/t/binary.t
===================================================================
--- /branches/binary/server/t/binary.t (revision 769)
+++ /branches/binary/server/t/binary.t (revision 770)
@@ -3,6 +3,12 @@
 use strict;
 use warnings;
-
 use Test::More 'no_plan';
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+use MemcachedTest;
+
+my $server = new_memcached();
+
+ok($server, "started the server");
 
 # Based almost 100% off testClient.py which is Copyright (c) 2007  Dustin Sallings <dustin@spy.net>
@@ -214,13 +220,5 @@
 	my $self = shift;
 
-	my $host = shift || '127.0.0.1';
-	my $port = shift || 11211;
-
-	my $sock = IO::Socket::INET->new(PeerHost => $host, PeerPort => $port);
-
-	unless ($sock) {
-		warn "Unable to contact memcached.";
-		return;
-	}
+    my $sock = $server->sock;
 
 	$self = fields::new($self);