From ecde6797f07c623a0df2529670698135c427bf31 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Wed, 9 Feb 2011 13:06:22 -0500
Subject: [PATCH] New test stub.

---
 t/02_new_version_tnm.t | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 t/02_new_version_tnm.t

diff --git a/t/02_new_version_tnm.t b/t/02_new_version_tnm.t
new file mode 100644
index 000000000..a03c0b269
--- /dev/null
+++ b/t/02_new_version_tnm.t
@@ -0,0 +1,27 @@
+#!perl
+
+## Test the "new_version_tnm" action
+
+use 5.006;
+use strict;
+use warnings;
+use Data::Dumper;
+use Test::More tests => 1;
+use lib 't','.';
+use CP_Testing;
+
+use vars qw/$dbh $t/;
+
+my $cp = CP_Testing->new( {default_action => 'new_version_tnm'} );
+
+$dbh = $cp->test_database_handle();
+
+my $S = q{Action 'new_version_tnm'};
+my $label = 'POSTGRES_NEW_VERSION_TNM';
+
+$t=qq{$S fails when called with an invalid option};
+like ($cp->run('foobar=12'), qr{^\s*Usage:}, $t);
+
+## No other tests for now
+
+exit;
-- 
2.39.5