trango/Net-Telnet-Trango/Build.PL - diff

Return to Build.PL CVS log

Up to [local] / trango / Net-Telnet-Trango

-version 1.1, 2007/02/05 18:10:55
+version 1.3, 2007/02/05 19:39:33
 Line 1
 Line 1
 Line 1
  use strict;
  use warnings;
  use Module::Build;
- # $RedRiver$
+ use File::Spec;
+ # $RedRiver: Build.PL,v 1.2 2007/02/05 19:21:02 andrew Exp $
+ my $cfg_file = File::Spec->catfile('t', 'do_network.tests');
  my $builder = Module::Build->new(
      module_name         => 'Net::Telnet::Trango',
      license             => 'perl',
-Line 11
+Line 14
 Line 11
 Line 14
      build_requires => {
          'Test::More' => 0,
      },
-     add_to_cleanup      => [ 'Net-Telnet-Trango-*' ],
+     add_to_cleanup      => [ 'Net-Telnet-Trango-*', $cfg_file ],
  );
+ my %cfg;
+ get_ap_config(\%cfg);
+ if (%cfg && open T,">$cfg_file") {
+     while (my ($key, $value) = each %cfg) {
+         print T $key, "\t", $value,"\n";
+     }
+     close T;
+ }
  $builder->create_build_script();
+ sub get_ap_config
+ {
+     my $cfg = shift;
+     print <<EOB;
+ Net::Telnet::Trango needs to log into an AP to
+ perform it\'s full suite of tests. To log in, we
+ need a test AP and a password.
+ To skip these tests, hit "return".
+ EOB
+     $cfg->{AP}       = $builder->prompt("AP: ", $cfg->{AP}) || return;
+     $cfg->{PASSWD}   = $builder->prompt("Password:", $cfg->{PASSWD}) || return;
+ }