# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1239504490 -14400
# Node ID e48ac6e9a3907614236c78bfe5d55fc30cb468e9
# Parent  6e5884419e4a838ee60d253afe641cae3a8ad9c6
Tests: die if we failed to put test data into memcached.

diff --git a/memcached.t b/memcached.t
--- a/memcached.t
+++ b/memcached.t
@@ -68,7 +68,8 @@ EOF
 ###############################################################################
 
 my $memd = Cache::Memcached->new(servers => [ '127.0.0.1:8081' ]);
-$memd->set('/', 'SEE-THIS');
+$memd->set('/', 'SEE-THIS')
+	or die "can't put value into memcached: $!";
 
 like(http_get('/'), qr/SEE-THIS/, 'memcached request');