allow the use of specific port

bin/app.pl

@@ -1,8 +1,11 @@
 #!/usr/bin/env perl
 use Dancer;
 if ($ENV{DWIMMER_TEST}) {
-	set log => 'warning';
+	set log          => 'warning';
 	set startup_info => 0;
 }
+if ($ENV{DWIMMER_PORT}) {
+	set port         => $ENV{DWIMMER_PORT};
+}
 use Dwimmer;
 dance;

t/004_win.t

@@ -4,15 +4,14 @@ use warnings;
 use t::lib::Dwimmer::Test;
 
 $ENV{DWIMMER_TEST} = 1;
-start();
+$ENV{DWIMMER_PORT} = 3001;
 
-# TODO set my own port?
-# TODO eliminate the logging to the console?
+start();
 
 eval "use Test::More";
 require Test::WWW::Mechanize;
 
-my $url = "http://localhost:3000/";
+my $url = "http://localhost:$ENV{DWIMMER_PORT}/";
 
 plan(tests => 1);