rewrite Require.t to use Test::More and add no-warnings check

Author: eserte

t/Require.t

@@ -1,29 +1,27 @@
 #!perl -w
 use strict;
-BEGIN  { $ENV{'PERL_DL_NONLAZY'} = 1 }
+use warnings;
+use Test::More;
+BEGIN { $ENV{'PERL_DL_NONLAZY'} = 1 }
+
+my @warnings;
+$SIG{__WARN__} = sub { push @warnings, @_ };
 
 require Tk;
-# $SIG{__WARN__} = sub { die shift };
 my ($dir) = $INC{'Tk.pm'} =~ /^(.*)\.pm$/;
 opendir(TK,$dir) || die "Cannot opendir $dir:$!";
 my @files = grep(/\.pm$/,readdir(TK));
 closedir(TK);
-my $file;
-$Test::ntest = @files;
-print "1..",$Test::ntest,"\n";
-my $count = 1;
-foreach $file (@files)
+
+plan tests => 1 + @files;
+
+for my $file (@files)
  {
   if ($file =~ /\.pm$/)
    {
-    # print "Tk/$file\n";
     eval { require "Tk/$file" };
-    if ($@)
-     {
-      warn "Tk/$file: $@";
-      print "not ";
-     }
-    print "ok ",$count++,"\n";
+    ok !$@, "Tk/$file compiled" or diag $@;
    }
  }
 
+is_deeply \@warnings, [], 'no warnings';