Minor cleanups.

diff --git a/t/02_pgagent_jobs.t b/t/02_pgagent_jobs.t
index 470be2dcd11c3903a148c34e1cd86bc45528ec24..003bbff2039559ef1539d301c0497abc70727bae 100644 (file)
--- a/t/02_pgagent_jobs.t
+++ b/t/02_pgagent_jobs.t
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl
 
 ## Test the "pgagent_jobs" action
 
@@ -6,7 +6,6 @@ use 5.006;
 use strict;
 use warnings;
 use Test::More tests => 48;
-#use Test::More 'no_plan';
 use lib 't','.';
 use CP_Testing;
 
@@ -24,8 +23,12 @@ like $cp->run('-c=abc'), qr{must be a valid time}, "$S fails with invalid -c";
 
 # Set up a dummy pgagent schema.
 $dbh->{AutoCommit} = 1;
+
+$dbh->do('DROP SCHEMA pgagent CASCADE');
+
 $dbh->do(q{
     SET client_min_messages TO warning;
+
     CREATE SCHEMA pgagent;
 
     CREATE TABLE pgagent.pga_job (
@@ -193,7 +196,7 @@ like $cp->run('-w=5h -c=5h'),
     qr{^$label CRITICAL: DB "postgres" [()][^)]+[)] 255 Restore/analyze: WTF!},
     "$S -w=5h -c=5h returns critical with failed job within our time";
 
-# Go back futher in time!
+# Go back further in time!
 like $cp->run('-w=30h -c=2h'),
     qr{^$label WARNING: DB "postgres" [()][^)]+[)] 255 Restore/analyze: WTF!},
     "$S -w=30h -c=5h returns warning for older failed job";