summaryrefslogtreecommitdiff
path: root/t/00-startup.t
diff options
context:
space:
mode:
authorDustin Sallings <dustin@spy.net>2009-03-01 10:46:09 -0800
committerDustin Sallings <dustin@spy.net>2009-03-01 10:46:09 -0800
commita34f78e0e753bd51bf1c48bf9cdda6688ae6aa92 (patch)
tree67e604f1c227bbfb5f664af8d3f223ab36148e38 /t/00-startup.t
parent013e17cc7487d3d24c7f6b30c206bd6421ed6f6d (diff)
downloadmemcached-a34f78e0e753bd51bf1c48bf9cdda6688ae6aa92.tar.gz
Isolate the first server in startup test so it dies sooner (bug 20).
Apparently on some version of Linux I don't have, this causes the test to hang for a while as gcov attempts to compute and write out the results from two coverage runs concurrently. It's best to clean up things as quickly as possible in the general case, so this should be done regardless.
Diffstat (limited to 't/00-startup.t')
-rwxr-xr-xt/00-startup.t10
1 files changed, 6 insertions, 4 deletions
diff --git a/t/00-startup.t b/t/00-startup.t
index 7c90b61..a0fda0c 100755
--- a/t/00-startup.t
+++ b/t/00-startup.t
@@ -1,14 +1,16 @@
#!/usr/bin/perl
use strict;
-use Test::More tests => 3;
+use Test::More tests => 4;
use FindBin qw($Bin);
use lib "$Bin/lib";
use MemcachedTest;
-my $server = new_memcached();
-
-ok($server, "started the server");
+eval {
+ my $server = new_memcached();
+ ok($server, "started the server");
+};
+is($@, '', 'Basic startup works');
eval {
my $server = new_memcached("-l fooble");