r55962 - /scripts/t/patchedit/01_patchedit.t

[potyl-guest at users.alioth.debian.org]

Author: potyl-guest
Date: Sun Apr 11 15:48:02 2010
New Revision: 55962

URL: http://svn.debian.org/wsvn/?sc=1&rev=55962
Log:
Generic test plan

Modified:
    scripts/t/patchedit/01_patchedit.t

Modified: scripts/t/patchedit/01_patchedit.t
URL: http://svn.debian.org/wsvn/scripts/t/patchedit/01_patchedit.t?rev=55962&op=diff
==============================================================================
--- scripts/t/patchedit/01_patchedit.t (original)
+++ scripts/t/patchedit/01_patchedit.t Sun Apr 11 15:48:02 2010
@@ -3,8 +3,7 @@
 use strict;
 use warnings;
 
-#use Test::More 'no_plan';
-use Test::More tests => 12;
+use Test::More;
 use Test::Differences;
 use Test::Exception;
 use File::Slurp 'read_file';
@@ -19,8 +18,19 @@
 exit maint();
 
 sub maint {
+
+	my @tests = qw(
+		no-meta
+		no-meta2
+		with-meta
+		with-meta-and-extra-fields
+		with-utf8-meta
+		subject
+	);
+	plan tests => @tests * 2;
+
 	local $ENV{'EDITOR'} = '/bin/true';
-	foreach my $type (qw(no-meta no-meta2 with-meta with-meta-and-extra-fields with-utf8-meta subject)) {
+	foreach my $type (@tests) {
 		foreach my $sub_type ('', '-o') {
 			copy("t/patchedit/$type.orig", 't/patchedit/'.$type);
 			local @ARGV = (($sub_type ? $sub_type : ()), '-f', 'edit', 't/patchedit/'.$type);