mirror of https://github.com/apache/maven.git
o moved to integration tests
git-svn-id: https://svn.apache.org/repos/asf/maven/components/trunk@467847 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
Jason van Zyl
parent
d4776345ef
commit
4525908ea0
331
mavenexecute.pl
331
mavenexecute.pl
|
|
@ -1,331 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# DO NOT EXECUTE THIS SCRIPT!!!!!!
|
||||
# This script was used to generate the new IT structure and we're leaving it around for safe keeping
|
||||
# but the transfer to the new mechanism has been made.
|
||||
|
||||
use File::Path;
|
||||
use strict;
|
||||
|
||||
my $dirname = "maven-core-it";
|
||||
my $newITs = "maven-core-integration-tests";
|
||||
my $newITsResources = "$newITs/src/test/resources";
|
||||
|
||||
|
||||
open( FILE, "$dirname/integration-tests-descriptions.txt" ) or die;
|
||||
undef $/;
|
||||
my $readme = <FILE>;
|
||||
close( FILE );
|
||||
|
||||
$/ = "\n";
|
||||
|
||||
my @descriptions = $readme =~ m/(it\d+\: .*?)(?=\nit\d+\:|$)/gsx;
|
||||
my %comment;
|
||||
for my $desc (@descriptions) {
|
||||
my ($name, $value) = ($desc =~ m/^(it\d+)\: (.*)$/s);
|
||||
chomp ($value);
|
||||
$comment{$name} = $value;
|
||||
}
|
||||
|
||||
rmtree($newITs);
|
||||
mkpath($newITs);
|
||||
|
||||
open (POM, "> $newITs/pom.xml" );
|
||||
print POM <<END;
|
||||
|
||||
<project>
|
||||
<modelVersion>4.0.0</modelVersion>
|
||||
<groupId>org.apache.maven.integrationtests</groupId>
|
||||
<artifactId>maven-core-integrationtests</artifactId>
|
||||
<version>1.0-SNAPSHOT</version>
|
||||
<name>Maven Integration Tests</name>
|
||||
<build>
|
||||
<plugins>
|
||||
<plugin>
|
||||
<groupId>org.apache.maven.plugins</groupId>
|
||||
<artifactId>maven-surefire-plugin</artifactId>
|
||||
<configuration>
|
||||
<includes>
|
||||
<include>**/IntegrationTestSuite.java</include>
|
||||
</includes>
|
||||
<forkMode>never</forkMode>
|
||||
</configuration>
|
||||
</plugin>
|
||||
</plugins>
|
||||
</build>
|
||||
<dependencies>
|
||||
<dependency>
|
||||
<groupId>org.apache.maven.shared</groupId>
|
||||
<artifactId>maven-verifier</artifactId>
|
||||
<version>1.0-SNAPSHOT</version>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<groupId>junit</groupId>
|
||||
<artifactId>junit</artifactId>
|
||||
<version>3.8.1</version>
|
||||
<scope>test</scope>
|
||||
</dependency>
|
||||
</dependencies>
|
||||
</project>
|
||||
END
|
||||
|
||||
close POM;
|
||||
|
||||
my $suiteRoot = "$newITs/src/test/java/org/apache/maven/integrationtests";
|
||||
mkpath($suiteRoot);
|
||||
mkpath($newITsResources);
|
||||
|
||||
open( SUITE, "> $suiteRoot/IntegrationTestSuite.java" );
|
||||
print SUITE <<END;
|
||||
package org.apache.maven.integrationtests;
|
||||
|
||||
import junit.framework.*;
|
||||
|
||||
public class IntegrationTestSuite extends TestCase {
|
||||
|
||||
public static Test suite() {
|
||||
TestSuite suite = new TestSuite();
|
||||
END
|
||||
|
||||
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
|
||||
while (defined(my $filename = readdir(DIR))) {
|
||||
next unless (-d "$dirname/$filename");
|
||||
next if ($filename eq ".svn");
|
||||
next unless ($filename =~ m/^it0\d+$/);
|
||||
my $filePrebuildHook = "$dirname/$filename/prebuild-hook.txt";
|
||||
my $fileCliOptions = "$dirname/$filename/cli-options.txt";
|
||||
my $fileSystemProperties = "$dirname/$filename/system.properties";
|
||||
my $fileVerifierProperties = "$dirname/$filename/verifier.properties";
|
||||
my $fileGoals = "$dirname/$filename/goals.txt";
|
||||
my $fileExpectedResults = "$dirname/$filename/expected-results.txt";
|
||||
my $failOnErrorOutput = 1;
|
||||
|
||||
my $itTestCaseDirectory = $suiteRoot;
|
||||
my $itTestName = "Maven" . uc($filename) . "Test";
|
||||
my $testFile = "$itTestCaseDirectory/$itTestName" . ".java";
|
||||
my $testProjectDirectory = "$newITsResources/$filename";
|
||||
|
||||
# 96, 97 will not due to bugs in maven, they work when other ITs are run but it's due to ordering and fluke
|
||||
# 43 will not run because it can't find the maven-help-plugin
|
||||
# 90 will not run because it relies of an environment variable which I think is wrong
|
||||
# 91 POM interpolation test failure
|
||||
# 98 fails because it needs a quoted CLI property, this isn't really a core problem and certainly won't be valid in an embedded env
|
||||
# 104 test failure in interpolation
|
||||
# 106 failure in artifact resolution
|
||||
# 107 failure in artifact resolution
|
||||
if ( $filename eq "it0096" ||
|
||||
$filename eq "it0097" ||
|
||||
$filename eq "it0043" ||
|
||||
$filename eq "it0090" ||
|
||||
$filename eq "it0091" ||
|
||||
$filename eq "it0098" ||
|
||||
$filename eq "it0104" ||
|
||||
$filename eq "it0106" ||
|
||||
$filename eq "it0107" )
|
||||
{
|
||||
print SUITE " // suite.addTestSuite($itTestName.class);\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
print SUITE " suite.addTestSuite($itTestName.class);\n";
|
||||
}
|
||||
|
||||
if (!exists($comment{$filename})) {
|
||||
die "no comment: $filename\n";
|
||||
}
|
||||
|
||||
|
||||
|
||||
mkpath($itTestCaseDirectory);
|
||||
# DGF can't believe perl doesn't have a baked in recursive copy!
|
||||
if ("MSWin32" eq $^O) {
|
||||
my $winSrc = "$dirname/$filename";
|
||||
$winSrc =~ s!/!\\!g;
|
||||
my $winDest = $testProjectDirectory;
|
||||
$winDest =~ s!/!\\!g;
|
||||
mkpath($testProjectDirectory);
|
||||
system( "xcopy /e $winSrc $winDest" );
|
||||
} else {
|
||||
system( "cp -r $dirname/$filename $testProjectDirectory" );
|
||||
}
|
||||
my $testPomFile = "$testProjectDirectory/pom.xml";
|
||||
my $testDescription = $comment{$filename} or die "wtf? no test description for $filename\n";
|
||||
(my $testDescriptionEscaped = $testDescription) =~ s/</\</gs;
|
||||
$testDescriptionEscaped =~ s/>/\>/gs;
|
||||
if (-e $testPomFile) {
|
||||
my $testPom;
|
||||
{
|
||||
local( $/, *TESTPOM );
|
||||
open (TESTPOM, "<$testPomFile");
|
||||
$testPom = <TESTPOM>;
|
||||
close TESTPOM;
|
||||
}
|
||||
# drop the existing description, if there is one
|
||||
$testPom =~ s!<description>.*?</description>!!s;
|
||||
# insert the test description into the POM
|
||||
$testPom =~ s^</artifactId>(?!.*</parent>)(\s+)<^</artifactId>\1<description>$testDescriptionEscaped</description>\1<^sx;
|
||||
my $testDescriptionMatcher = quotemeta($testDescriptionEscaped);
|
||||
die "failed to insert description in $testProjectDirectory/pom.xml " unless ($testPom =~ m/$testDescriptionMatcher/s);
|
||||
open (TESTPOM, ">$testPomFile");
|
||||
print TESTPOM $testPom;
|
||||
close TESTPOM;
|
||||
}
|
||||
unlink("$testProjectDirectory/cli-options.txt");
|
||||
unlink("$testProjectDirectory/system.properties");
|
||||
unlink("$testProjectDirectory/verifier.properties");
|
||||
unlink("$testProjectDirectory/goals.txt");
|
||||
unlink("$testProjectDirectory/expected-results.txt");
|
||||
unlink("$testProjectDirectory/prebuild-hook.txt");
|
||||
unlink("$testProjectDirectory/log.txt");
|
||||
|
||||
open( T, "> $testFile") or die;
|
||||
print $filename . "\n";
|
||||
print T <<END;
|
||||
package org.apache.maven.integrationtests;
|
||||
import java.io.*;
|
||||
import java.util.*;
|
||||
|
||||
import junit.framework.*;
|
||||
|
||||
import org.apache.maven.it.*;
|
||||
import org.apache.maven.it.util.*;
|
||||
|
||||
public class $itTestName extends TestCase /*extends AbstractMavenIntegrationTest*/ {
|
||||
|
||||
/** $testDescriptionEscaped */
|
||||
public void test$filename() throws Exception {
|
||||
String basedir = System.getProperty("maven.test.tmpdir", System.getProperty("java.io.tmpdir"));
|
||||
File testDir = new File(basedir, getName());
|
||||
FileUtils.deleteDirectory(testDir);
|
||||
System.out.println("Extracting $filename to " + testDir.getAbsolutePath());
|
||||
ResourceExtractor.extractResourcePath(getClass(), "/$filename", testDir);
|
||||
Verifier verifier = new Verifier(testDir.getAbsolutePath());
|
||||
END
|
||||
|
||||
if (-e "$filePrebuildHook") {
|
||||
open (FILE, "$filePrebuildHook");
|
||||
while (my $line = <FILE>) {
|
||||
if ($line =~ /^(rm|rmdir) (.*)/) {
|
||||
my ($cmd, $path) = ($1, $2);
|
||||
|
||||
if ($cmd eq "rm") {
|
||||
if ($path =~ m/^\$\{artifact:([^:]*?):([^:]*?):([^:]*?):([^:]*?)\}$/) {
|
||||
print T "verifier.deleteArtifact(\"$1\", \"$2\", \"$3\", \"$4\");\n";
|
||||
} else {
|
||||
print T "FileUtils.deleteFile(new File(basedir, \"$path\"));\n";
|
||||
}
|
||||
} elsif ($cmd eq "rmdir") {
|
||||
print T "FileUtils.deleteDirectory(new File(basedir, \"$path\"));\n";
|
||||
} else {
|
||||
die ("wtf? $line\n");
|
||||
}
|
||||
}
|
||||
else {
|
||||
die ("unexpected command: $line\n");
|
||||
}
|
||||
}
|
||||
close FILE;
|
||||
}
|
||||
|
||||
if (-e "$fileCliOptions") {
|
||||
open(FILE, $fileCliOptions);
|
||||
my $cliOptions = <FILE>;
|
||||
chomp ($cliOptions);
|
||||
$cliOptions =~ s/"/\\"/g;
|
||||
print T "List cliOptions = new ArrayList();\n";
|
||||
print T "cliOptions.add(\"$cliOptions\");\n";
|
||||
print T "verifier.setCliOptions(cliOptions);\n";
|
||||
close FILE;
|
||||
}
|
||||
if (-e "$fileSystemProperties") {
|
||||
open(FILE, $fileSystemProperties);
|
||||
print T "Properties systemProperties = new Properties();\n";
|
||||
while (my $line = <FILE>) {
|
||||
next if ($line =~ m/^\s*\#/);
|
||||
my ($name, $value) = ($line =~ m/^([^=]*)=(.*)/);
|
||||
print T "systemProperties.put(\"$name\", \"$value\");\n";
|
||||
}
|
||||
print T "verifier.setSystemProperties(systemProperties);\n";
|
||||
close FILE;
|
||||
}
|
||||
if (-e "$fileVerifierProperties") {
|
||||
open(FILE, $fileVerifierProperties);
|
||||
print T "Properties verifierProperties = new Properties();\n";
|
||||
while (my $line = <FILE>) {
|
||||
next if ($line =~ m/^\s*\#/);
|
||||
my ($name, $value) = ($line =~ m/^([^=]*)=(.*)/);
|
||||
if ($name eq "failOnErrorOutput" and $value eq "false") {
|
||||
$failOnErrorOutput = 0;
|
||||
}
|
||||
print T "verifierProperties.put(\"$name\", \"$value\");\n";
|
||||
}
|
||||
print T "verifier.setVerifierProperties(verifierProperties);\n";
|
||||
close FILE;
|
||||
}
|
||||
|
||||
open (FILE, $fileGoals) or die "Couldn't open $fileGoals: $!\n";
|
||||
|
||||
my @goals = ();
|
||||
while (my $line = <FILE>) {
|
||||
next if ($line =~ m/^\s*$/);
|
||||
chomp ($line);
|
||||
push (@goals, $line);
|
||||
}
|
||||
if (scalar(@goals) == 1) {
|
||||
print T "verifier.executeGoal(\"$goals[0]\");\n";
|
||||
} else {
|
||||
print T "List goals = Arrays.asList(new String[] {";
|
||||
for (my $i = 0; $i < @goals; $i++) {
|
||||
print T "\"$goals[$i]\"";
|
||||
print T ", " if ($i != scalar(@goals) -1);
|
||||
}
|
||||
print T "});\n";
|
||||
print T "verifier.executeGoals(goals);\n";
|
||||
}
|
||||
|
||||
close FILE;
|
||||
|
||||
if (-e $fileExpectedResults) {
|
||||
|
||||
open (FILE, $fileExpectedResults) or die "Couldn't open $fileExpectedResults: $!\n";
|
||||
|
||||
while (my $line = <FILE>) {
|
||||
chomp ($line);
|
||||
#print T ("OLDLINE: $line\n");
|
||||
if ($line =~ /^\#(.*)/) {
|
||||
print T "//$1\n";
|
||||
next;
|
||||
}
|
||||
if ($line =~ m/^\!\$\{artifact:([^:]*?):([^:]*?):([^:]*?):([^:]*?)\}$/) {
|
||||
print T "verifier.assertArtifactNotPresent(\"$1\", \"$2\", \"$3\", \"$4\");\n";
|
||||
} elsif ($line =~ m/^\$\{artifact:([^:]*?):([^:]*?):([^:]*?):([^:]*?)\}$/) {
|
||||
print T "verifier.assertArtifactPresent(\"$1\", \"$2\", \"$3\", \"$4\");\n";
|
||||
} elsif ($line =~ m/^\!(.*)/) {
|
||||
print T "verifier.assertFileNotPresent(\"$1\");\n";
|
||||
} else {
|
||||
print T "verifier.assertFilePresent(\"$line\");\n";
|
||||
}
|
||||
}
|
||||
close FILE;
|
||||
}
|
||||
|
||||
if ($failOnErrorOutput) {
|
||||
print T "verifier.verifyErrorFreeLog();\n";
|
||||
} else {
|
||||
print T "// don't verify error free log\n";
|
||||
}
|
||||
print T "verifier.resetStreams();\n";
|
||||
print T "System.out.println(\"PASS\");\n";
|
||||
print T "}}\n\n";
|
||||
|
||||
}
|
||||
|
||||
# DGF end of the suite
|
||||
print SUITE <<END;
|
||||
return suite;
|
||||
}
|
||||
}
|
||||
END
|
||||
|
||||
|
||||
closedir(DIR);
|
||||
Loading…
Reference in New Issue