Changeset 12661

Timestamp:

05/29/08 02:34:20 (5 years ago)

Author:

tokuhirom

Message:

bug fixed

Files:

• lang/perl/mobirc/trunk/t/HTTPD/Template/PC/pc_menu.t (modified) (1 diff)

lang/perl/mobirc/trunk/t/HTTPD/Template/PC/pc_menu.t

@@ -10 +10 @@
 
 # init.
-do {
-    my $c = App::Mobirc->new(
-        {
-            httpd => { port => 3333, title => 'mobirc', lines => 40 },
-            global => { keywords => [qw/foo/], stopwords => [qw/foo31/] },
-        }
-    );
+my $c = App::Mobirc->new(
+    {
+        httpd => { port => 3333, title => 'mobirc', lines => 40 },
+        global => { keywords => [qw/foo/], stopwords => [qw/foo31/] },
+    }
+);
 
-    my $server = App::Mobirc::Model::Server->new();
-    $server->get_channel(U '#tester');
-};
+my $server = App::Mobirc::Model::Server->new();
+$server->get_channel(U '#tester');
 
 my $got = do {
-    local $_ = App::Mobirc::HTTPD::View->show('pc_menu', $server, 3);
+    local $_ = App::Mobirc::HTTPD::View->show('ajax_menu', $server, 3);
     s/^\n//;
     $_;