fix nameserver testcase

Author: drawing

tests/nginx-tests/tengine-tests/dynamic_resolve.t

@@ -16,7 +16,6 @@ BEGIN { use FindBin; chdir($FindBin::Bin); }
 
 use lib 'lib';
 use Test::Nginx;
-eval { require Net::DNS::Nameserver; };
 plan(skip_all => 'Net::DNS::Nameserver not installed') if $@;
 
 ###############################################################################
@@ -148,7 +147,7 @@ kill $^O eq 'MSWin32' ? 9 : 'TERM', $dns_pid;
 wait;
 
 # wait for dns cache to expire
-sleep(2);
+sleep(3);
 
 unlike(http_get('/stale'), qr/127\.0\.0\.2/,
     'stale http server should be www.taobao.com:8081, using initial result');
@@ -251,14 +250,16 @@ sub reply_handler {
 }
 
 sub dns_server_daemon {
+    eval { require Net::DNS::Nameserver; };
+
     my $ns = new Net::DNS::Nameserver(
         LocalAddr    => '127.0.0.1',
         LocalPort    => 53530,
         ReplyHandler => \&reply_handler,
         Verbose      => 0
     ) or die "couldn't create nameserver object\n";
 
-    $ns->main_loop;
+    $ns->start_server(1);
 }
 
 ###############################################################################

tests/nginx-tests/tengine-tests/vnswrr4dynamic_ups.t

@@ -15,7 +15,6 @@ BEGIN { use FindBin; chdir($FindBin::Bin); }
 
 use lib 'lib';
 use Test::Nginx;
-eval { require Net::DNS::Nameserver; };
 plan(skip_all => 'Net::DNS::Nameserver not installed') if $@;
 
 ###############################################################################
@@ -153,7 +152,7 @@ kill $^O eq 'MSWin32' ? 9 : 'TERM', $dns_pid;
 wait;
 
 # wait for dns cache to expire
-sleep(2);
+sleep(3);
 
 unlike(http_get('/stale'), qr/127\.0\.0\.2/,
     'stale http server should be www.taobao.com:8081, using initial result');
@@ -248,14 +247,16 @@ sub reply_handler {
 }
 
 sub dns_server_daemon {
+    eval { require Net::DNS::Nameserver; };
+
     my $ns = new Net::DNS::Nameserver(
         LocalAddr    => '127.0.0.1',
         LocalPort    => 53530,
         ReplyHandler => \&reply_handler,
         Verbose      => 0
     ) or die "couldn't create nameserver object\n";
 
-    $ns->main_loop;
+    $ns->start_server(1);
 }
 
 ###############################################################################