Make tests a little quieter

turnstep · turnstep · commit bfdb64dcb9ce · 2019-11-30T12:35:32.000Z
diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm
@@ -95,8 +95,6 @@ sub _test_database_handle {
 
         -e $dbdir and die qq{Oops: I cannot create "$dbdir", there is already a file there!\n};
 
-        Test::More::diag qq{Creating database in directory "$dbdir"\n};
-
         mkdir $dbdir;
     }
 
@@ -327,7 +325,7 @@ sub _test_database_handle {
             $newname .= $1;
         }
         if (! -e $newname) {
-            warn "Creating new symlink socket at $newname\n";
+            $DEBUG and warn "Creating new symlink socket at $newname\n";
             (my $oldname = $dbhost) =~ s/\\//g;
             symlink $oldname => $newname;
         }

Original file line number	Diff line number	Diff line change
`@@ -95,8 +95,6 @@ sub _test_database_handle {`
`95`	`95`
`96`	`96`	`-e $dbdir and die qq{Oops: I cannot create "$dbdir", there is already a file there!\n};`
`97`	`97`
`98`		`- Test::More::diag qq{Creating database in directory "$dbdir"\n};`
`99`		`-`
`100`	`98`	`mkdir $dbdir;`
`101`	`99`	`}`
`102`	`100`
`@@ -327,7 +325,7 @@ sub _test_database_handle {`
`327`	`325`	`$newname .= $1;`
`328`	`326`	`}`
`329`	`327`	`if (! -e $newname) {`
`330`		`- warn "Creating new symlink socket at $newname\n";`
	`328`	`+ $DEBUG and warn "Creating new symlink socket at $newname\n";`
`331`	`329`	`(my $oldname = $dbhost) =~ s/\\//g;`
`332`	`330`	`symlink $oldname => $newname;`
`333`	`331`	`}`