r6408@wilber: samv | 2006-03-29 14:40:34 +1200

suppress warning
bobtfish · Mar 29, 2006 · 5073429 · 5073429
1 parent 2ea0dc4
commit 5073429
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/misc/new_opers.t b/t/misc/new_opers.t
@@ -45,7 +45,7 @@ my @cp = ($db_cs, $DBConfig::user, $DBConfig::passwd);
 
 my $dbh = DBI->connect( @cp )
     or skip "could not connect to database", 1;
-eval { Tangram::Relational->retreat($schema, $dbh) };
+eval { Tangram::Relational->retreat($schema, $dbh, { PrintError => 0 }) };
 eval { Tangram::Relational->deploy($schema, $dbh) };
 is( $@, "", "Fascists deployed!" );
 my $result = $output->release_stdout();