[lintian] 03/03: t: Split 02-minimum-version.t into smaller scripts
This is an automated email from the git hooks/post-receive script.
nthykier pushed a commit to branch master
in repository lintian.
commit bfa921d20f43cb0e2a7cbecf2a39b91450fc0d63
Author: Niels Thykier <niels@thykier.net>
Date: Sun Mar 16 14:50:31 2014 +0100
t: Split 02-minimum-version.t into smaller scripts
Signed-off-by: Niels Thykier <niels@thykier.net>
---
t/scripts/02-minimum-version.t | 39 ----------------------------
t/scripts/02-minimum-version/checks.t | 1 +
t/scripts/02-minimum-version/collection.t | 1 +
t/scripts/02-minimum-version/commands.t | 1 +
t/scripts/02-minimum-version/docs-examples.t | 1 +
t/scripts/02-minimum-version/frontend.t | 1 +
t/scripts/02-minimum-version/helpers.t | 1 +
t/scripts/02-minimum-version/lib.t | 1 +
t/scripts/02-minimum-version/private.t | 1 +
t/scripts/02-minimum-version/reporting.t | 1 +
t/scripts/02-minimum-version/runner.pl | 21 +++++++++++++++
t/scripts/02-minimum-version/test-scripts.t | 1 +
12 files changed, 31 insertions(+), 39 deletions(-)
diff --git a/t/scripts/02-minimum-version.t b/t/scripts/02-minimum-version.t
deleted file mode 100755
index 6d3f818..0000000
--- a/t/scripts/02-minimum-version.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use warnings;
-
-# Poor man's attempt to speed up this test:
-# (needs to be loaded before anything else)
-use threads;
-
-use Test::More;
-plan skip_all => 'Not needed for coverage of Lintian'
- if $ENV{'LINTIAN_COVERAGE'};
-eval 'use Test::MinimumVersion';
-plan skip_all => 'Test::MinimumVersion required to run this test' if $@;
-
-# squeeze => 5.10.1, Wheezy => 5.14.2
-our $REQUIRED = 'v5.14.2';
-
-our @PATHS = qw(checks collection commands frontend lib reporting private);
-
-$ENV{'LINTIAN_TEST_ROOT'} //= '.';
-
-# It creates as many threads as elements in @PATHS
-for my $path (@PATHS) {
- threads->create(
- sub {
- my $p = shift;
- $p = $ENV{'LINTIAN_TEST_ROOT'} . '/' . $p;
- all_minimum_version_ok($REQUIRED, { paths => [$p], no_plan => 1});
- },
- $path
- );
-}
-
-for my $thr (threads->list()) {
- $thr->join();
-}
-
-done_testing();
diff --git a/t/scripts/02-minimum-version/checks.t b/t/scripts/02-minimum-version/checks.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/checks.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/collection.t b/t/scripts/02-minimum-version/collection.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/collection.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/commands.t b/t/scripts/02-minimum-version/commands.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/commands.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/docs-examples.t b/t/scripts/02-minimum-version/docs-examples.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/docs-examples.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/frontend.t b/t/scripts/02-minimum-version/frontend.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/frontend.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/helpers.t b/t/scripts/02-minimum-version/helpers.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/helpers.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/lib.t b/t/scripts/02-minimum-version/lib.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/lib.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/private.t b/t/scripts/02-minimum-version/private.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/private.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/reporting.t b/t/scripts/02-minimum-version/reporting.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/reporting.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
diff --git a/t/scripts/02-minimum-version/runner.pl b/t/scripts/02-minimum-version/runner.pl
new file mode 100755
index 0000000..56644e8
--- /dev/null
+++ b/t/scripts/02-minimum-version/runner.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Test::Lintian;
+use Test::More;
+plan skip_all => 'Not needed for coverage of Lintian'
+ if $ENV{'LINTIAN_COVERAGE'};
+eval 'use Test::MinimumVersion';
+plan skip_all => 'Test::MinimumVersion required to run this test' if $@;
+
+# squeeze => 5.10.1, Wheezy => 5.14.2
+our $REQUIRED = 'v5.14.2';
+
+my @test_paths = program_name_to_perl_paths($0);
+$ENV{'LINTIAN_TEST_ROOT'} //= '.';
+
+all_minimum_version_ok($REQUIRED, { paths => \@test_paths, no_plan => 1});
+
+done_testing();
diff --git a/t/scripts/02-minimum-version/test-scripts.t b/t/scripts/02-minimum-version/test-scripts.t
new file mode 120000
index 0000000..c316f2d
--- /dev/null
+++ b/t/scripts/02-minimum-version/test-scripts.t
@@ -0,0 +1 @@
+runner.pl
\ No newline at end of file
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git
Reply to: