[libvirt] [TCK][PATCH] Enable tests with a .pl extension
The main libvirt-tck script only executes tests using the default (.t)
extension. This patch adds .t and .pl as valid extensions using the --ext
parameter. This is required to enable storage tests added in commit 97c6a506.
---
Build.PL | 2 +-
bin/libvirt-tck | 5 +++++
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/Build.PL b/Build.PL
index e682c3a..c93637d 100644
--- a/Build.PL
+++ b/Build.PL
@@ -29,7 +29,7 @@ sub process_pkgdata_files {
my $name = $File::Find::name;
if (-d) {
$tck_dirs{$name} = [];
- } elsif (-f && /\.(t|sh|fwall|xml|dat)$/) {
+ } elsif (-f && /\.(t|sh|fwall|xml|dat|pl)$/) {
push @{$tck_dirs{$dir}}, $name;
}
};
diff --git a/bin/libvirt-tck b/bin/libvirt-tck
index 816234b..6261538 100644
--- a/bin/libvirt-tck
+++ b/bin/libvirt-tck
@@ -214,6 +214,11 @@ if ($timer) {
push @newargv, "--timer";
}
+# Run tests ending in both .t and .pl extensions
+foreach my $extension ('.t', '.pl') {
+ push @newargv, "--ext=$extension";
+}
+
# This env variable is the only way to pass config into
# the Sys::Virt::TCK module from here
$ENV{LIBVIRT_TCK_CONFIG} = $config;
--
1.8.4.5