aboutsummaryrefslogtreecommitdiff
path: root/packages/Python/lldbsuite/test/attic/dotest.pl
diff options
context:
space:
mode:
Diffstat (limited to 'packages/Python/lldbsuite/test/attic/dotest.pl')
-rw-r--r--packages/Python/lldbsuite/test/attic/dotest.pl44
1 files changed, 44 insertions, 0 deletions
diff --git a/packages/Python/lldbsuite/test/attic/dotest.pl b/packages/Python/lldbsuite/test/attic/dotest.pl
new file mode 100644
index 000000000000..f093ed8f8f22
--- /dev/null
+++ b/packages/Python/lldbsuite/test/attic/dotest.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl -w
+
+#
+# Use this script to visit each python test case under the specified directory
+# and invoke unittest.main() on each test case.
+#
+
+use strict;
+use FindBin;
+use File::Find;
+use File::Basename;
+use Cwd;
+use Cwd 'abs_path';
+
+scalar(@ARGV) == 1 or die "Usage: dotest.pl testdir";
+
+my $scriptDir = $FindBin::Bin;
+my $baseDir = abs_path("$scriptDir/..");
+my $pluginDir = "$baseDir/test/plugins";
+my $testDir = $ARGV[0];
+
+my $dbgPath = "$baseDir/build/Debug/LLDB.framework/Resources/Python";
+my $relPath = "$baseDir/build/Release/LLDB.framework/Resources/Python";
+if (-d $dbgPath) {
+ $ENV{'PYTHONPATH'} = "$dbgPath:$scriptDir:$pluginDir";
+} elsif (-d $relPath) {
+ $ENV{'PYTHONPATH'} = "$relPath:$scriptDir:$pluginDir";
+}
+#print("ENV{PYTHONPATH}=$ENV{'PYTHONPATH'}\n");
+
+# Traverse the directory to find our python test cases.
+find(\&handleFind, $testDir);
+
+sub handleFind {
+ my $foundFile = $File::Find::name;
+ my $dir = getcwd;
+ #print("foundFile: $foundFile\n");
+
+ # Test*.py is the naming pattern for our test cases.
+ if ($foundFile =~ /.*\/(Test.*\.py)$/) {
+ print("Running python $1 (cwd = $dir)...\n");
+ system("python $1");
+ }
+}