From: Greg <greg@core.localdomain>
Date: Fri, 29 May 2009 01:23:19 +0000 (-0400)
Subject: Stub for new test.
X-Git-Tag: 2.9.0^0
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=d1a1a1aa438288dc78c32384bfd5a5272bc9b7cd;p=check_postgres.git

Stub for new test.
---

diff --git a/t/02_same_schema.t b/t/02_same_schema.t
new file mode 100644
index 000000000..9e8893e54
--- /dev/null
+++ b/t/02_same_schema.t
@@ -0,0 +1,33 @@
+#!perl
+
+## Test the "same_schema" action
+
+use 5.006;
+use strict;
+use warnings;
+use Data::Dumper;
+use Test::More tests => 2;
+use lib 't','.';
+use CP_Testing;
+
+use vars qw/$dbh $SQL $t/;
+
+my $cp = CP_Testing->new( {default_action => 'same_schema'} );
+
+$dbh = $cp->test_database_handle();
+
+my $S = q{Action 'same_schema'};
+my $label = 'POSTGRES_VERSION';
+
+$t=qq{$S fails when called with an invalid option};
+like ($cp->run('foobar=12'), qr{^\s*Usage:}, $t);
+
+$t=qq{$S fails when called with invalid warning};
+
+SKIP: {
+
+	skip 'Tests not written for this action yet', 1;
+
+}
+
+exit;