changeset 84:e48ac6e9a390

Tests: die if we failed to put test data into memcached.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 12 Apr 2009 06:48:10 +0400
parents 6e5884419e4a
children 1bf5eca1c4a9
files memcached.t
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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');