hack Net::Trac::TestHarness to customize trac.ini

bestpractical · Dec 13, 2010 · f55d5aa · f55d5aa
1 parent 6af5742
commit f55d5aa
Showing 1 changed file with 19 additions and 7 deletions.
diff --git a/t/setup_trac.pl b/t/setup_trac.pl
@@ -17,14 +17,26 @@ sub new {
     return $self;
 }
 
-sub start_test_server {
-my $self = shift;
+sub init_test_server {
+    my $self = shift;
+    $self->port( int( 60000 + rand(2000) ) );
+    $self->dir( tempdir( CLEANUP => 1 ) );
+    $self->init;
+
+    if (@_) {
+        open my $fh, '>>',
+          File::Spec->catfile( $self->dir, 'trac', 'conf', 'trac.ini' )
+          or die $!;
+        print $fh @_;
+    }
+    return 1;
+}
 
-$self->port( int(60000 + rand(2000)));
-$self->dir(tempdir( CLEANUP => 1));
-$self->init;
-$self->daemonize;
-return $self->_did_server_start;
+sub start_test_server {
+    my $self = shift;
+    $self->init_test_server(@_);
+    $self->daemonize;
+    return $self->_did_server_start;
 }
 
 sub _did_server_start {