Changeset 24370 for trunk/Nebulous-Server

Timestamp:

Jun 10, 2009, 1:41:38 PM (17 years ago)

Author:

jhoblitt

Message:

fix Nebulous::Server::Config->memcached_servers

Location:

trunk/Nebulous-Server

Files:

• lib/Nebulous/Server/Config.pm (modified) (1 diff)
• t/02_config.t (modified) (2 diffs)

trunk/Nebulous-Server/lib/Nebulous/Server/Config.pm

@@ -62 +62 @@
 
     # normalize log levels to lower-case
-    my $self = { trace => $LEVELS{lc($p{trace})} };
+    my $self = {
+        trace             => $LEVELS{lc($p{trace})},
+        memcached_servers => $p{memcached_servers},
+    };
 
     bless $self, $class || ref $class;

trunk/Nebulous-Server/t/02_config.t

@@ -8 +8 @@
 use warnings;
 
-use Test::More tests => 21;
+use Test::More tests => 22;
 
 use lib qw( ./t ./lib );
@@ -109 +109 @@
     is($config_db1->dbpasswd, "boo2", "dbpasswd");
 }
+
+# memcached_servers
+{
+    my $config = Nebulous::Server::Config->new(
+            memcached_servers => ['127.0.0.1:11211'],
+        );
+
+    is_deeply($config->memcached_servers, ['127.0.0.1:11211'], "memcached_servers");
+}