[Lldb-commits] [lldb] r107447 - /lldb/trunk/test/dotest.pl

[Johnny Chen]

Author: johnny
Date: Thu Jul  1 18:01:23 2010
New Revision: 107447

URL: http://llvm.org/viewvc/llvm-project?rev=107447&view=rev
Log:
A dumber way to invoke the test suite.

Use this script to visit each python test case under the specified directory and
run python unittest.main() on each test case.

Added:
    lldb/trunk/test/dotest.pl   (with props)

Added: lldb/trunk/test/dotest.pl
URL: http://llvm.org/viewvc/llvm-project/lldb/trunk/test/dotest.pl?rev=107447&view=auto
==============================================================================
--- lldb/trunk/test/dotest.pl (added)
+++ lldb/trunk/test/dotest.pl Thu Jul  1 18:01:23 2010
@@ -0,0 +1,43 @@
+#!/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 $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";
+} elsif (-d $relPath) {
+  $ENV{'PYTHONPATH'} = "$relPath";
+}
+#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");
+  }
+}

Propchange: lldb/trunk/test/dotest.pl
------------------------------------------------------------------------------
    svn:executable = *