Index: /trunk/PS-IPP-MetaDB/MANIFEST
===================================================================
--- /trunk/PS-IPP-MetaDB/MANIFEST	(revision 5329)
+++ /trunk/PS-IPP-MetaDB/MANIFEST	(revision 5330)
@@ -10,5 +10,5 @@
 scripts/mdb-find-new
 scripts/mdb-new2newed
+t/00_distribution.t
 t/01_load.t
 t/02_mdb-add-new.t
-t/99_pod.t
Index: /trunk/PS-IPP-MetaDB/t/00_distribution.t
===================================================================
--- /trunk/PS-IPP-MetaDB/t/00_distribution.t	(revision 5330)
+++ /trunk/PS-IPP-MetaDB/t/00_distribution.t	(revision 5330)
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 00_distribution.t,v 1.1 2005-10-14 21:33:44 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib ./t );
+
+use Test::More;
+
+# example taken from Test::Distribution Pod
+
+BEGIN {
+    eval {
+        require Test::Distribution;
+    };
+    if($@) {
+        plan skip_all => 'Test::Distribution not installed';
+    } else {
+        import Test::Distribution not => qw( podcover );
+    }
+}
Index: /trunk/PS-IPP-MetaDB/t/03_mdb-find-new.t
===================================================================
--- /trunk/PS-IPP-MetaDB/t/03_mdb-find-new.t	(revision 5329)
+++ /trunk/PS-IPP-MetaDB/t/03_mdb-find-new.t	(revision 5330)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 03_mdb-find-new.t,v 1.1 2005-10-01 01:40:44 jhoblitt Exp $
+# $Id: 03_mdb-find-new.t,v 1.2 2005-10-14 21:33:44 jhoblitt Exp $
 
 use strict;
@@ -70,4 +70,6 @@
 is($test->stderr, "", "no output to stderr");
 
+END { reset_db() }
+
 sub missing_args
 {
@@ -77,2 +79,9 @@
     like($test->stderr, qr/$errstr/, "error string is: $errstr");
 }
+
+sub reset_db
+{
+        use PS::IPP::MetaDB dsn => "DBI:mysql:test", user => "test";
+            PS::IPP::MetaDB::Image::New->drop_table();
+}
+
Index: unk/PS-IPP-MetaDB/t/99_pod.t
===================================================================
--- /trunk/PS-IPP-MetaDB/t/99_pod.t	(revision 5329)
+++ 	(revision )
@@ -1,16 +1,0 @@
-#!/usr/bin/env perl
-
-# Copyright (C) 2005  Joshua Hoblitt
-#
-# $Id: 99_pod.t,v 1.1 2005-09-28 01:39:43 jhoblitt Exp $
-
-use strict;
-use warnings FATAL => qw( all );
-
-use Test::More;
-
-eval 'use Test::Pod 1.00';
-
-plan( skip_all => 'Test::Pod 1.00 required for testing POD' ) if $@;
-
-all_pod_files_ok( );