Drop sequence at end of test (preserve original state of database)

diff --git a/t/02_sequence.t b/t/02_sequence.t
index 8f10f701cf6c8e8cc2baa6e9ceb0d1cbfb759da7..3bde49b543327913851fcc78b297dc118076c102 100644 (file)
--- a/t/02_sequence.t
+++ b/t/02_sequence.t
@@ -57,6 +57,8 @@ like ($cp->run(''), qr{ERROR:\s*(?:Could not determine|cannot access temporary)}
 $dbh->do("CREATE SEQUENCE $seqname");
 $cp->drop_sequence_if_exists($seqname.'2');
 
+END { $cp->drop_sequence_if_exists($seqname) }
+
 $t=qq{$S returns correct information for a new sequence};
 like ($cp->run(''), qr{OK:.+public.cp_test_sequence=0% \(calls left=9223372036854775806\)}, $t);