Lines Matching refs:base
703 my $base = stripExtension($test);
706 my $dir = $base;
754 my $expectedPixelDir = expectedDirectoryForTest($base, 0, "png");
755 if (open EXPECTEDHASH, File::Spec->catfile($expectedPixelDir, "$base-$expectedTag.checksum")) {
762 } elsif (my $expectedHash = readChecksumFromPng(File::Spec->catfile($expectedPixelDir, "$base-$expectedTag.png"))) {
834 my $expectedFileName = "$base-$expectedTag.$expectedExtension";
838 my $expectedDir = expectedDirectoryForTest($base, $isText, $expectedExtension);
839 $expectedResultPaths{$base} = File::Spec->catfile($expectedDir, $expectedFileName);
844 testCrashedOrTimedOut($test, $base, $crashed, $webProcessCrashed, $actual, $error);
845 countFinishedTest($test, $base, $webProcessCrashed ? "webProcessCrash" : $crashed ? "crash" : "timedout", 0);
854 if (!$resetResults && open EXPECTED, "<", $expectedResultPaths{$base}) {
903 my $expectedPixelDir = expectedDirectoryForTest($base, 0, "png");
904 my $expectedPNGPath = File::Spec->catfile($expectedPixelDir, "$base-$expectedTag.png");
929 $imageDifferences{$base} = $diffPercentage;
942 mkpath catfile($expectedPixelDir, dirname($base)) if $testDirectory ne $expectedPixelDir;
946 my $expectedChecksumPath = File::Spec->catfile($expectedPixelDir, "$base-$expectedTag.checksum");
954 testCrashedOrTimedOut($test, $base, 1, 0, $actual, $error);
962 mkpath catfile($expectedDir, dirname($base)) if $testDirectory ne $expectedDir;
965 deleteExpectedAndActualResults($base);
966 recordActualResultsAndDiff($base, $actual);
974 my $resultsDir = catdir($expectedDir, dirname($base));
990 deleteExpectedAndActualResults($base);
1000 my $testBase = catfile($testDirectory, $base);
1001 my $expectedBase = catfile($expectedDir, $base);
1005 mkpath catfile($platformTestDirectory, dirname($base));
1011 my $expectedFile = catfile($platformTestDirectory, "$base-$expectedTag.checksum");
1014 $expectedFile = catfile($platformTestDirectory, "$base-$expectedTag.png");
1023 my $dir = "$testResultsDirectory/$base";
1024 $dir =~ s|/([^/]+)$|| or die "Failed to find test name from base\n";
1028 deleteExpectedAndActualResults($base);
1029 recordActualResultsAndDiff($base, $actual);
1032 $imagesPresent{$base} = 1;
1034 writeToFile("$testResultsDirectory/$base-$actualTag.png", $actualPNG);
1035 writeToFile("$testResultsDirectory/$base-$diffsTag.png", $diffPNG);
1037 my $expectedPixelDir = expectedDirectoryForTest($base, 0, "png");
1038 copy("$expectedPixelDir/$base-$expectedTag.png", "$testResultsDirectory/$base-$expectedTag.png");
1040 open DIFFHTML, ">$testResultsDirectory/$base-$diffsTag.html" or die;
1043 print DIFFHTML "<title>$base Image Compare</title>\n";
1048 if (-f "$testDirectory/$base-w3c.png") {
1049 copy("$testDirectory/$base-w3c.png", "$testResultsDirectory/$base-w3c.png");
1086 my $dir = dirname(File::Spec->catdir($testResultsDirectory, $base));
1089 writeToFile(File::Spec->catfile($testResultsDirectory, "$base-$errorTag.txt"), $error);
1095 countFinishedTest($test, $base, $result, $isText);
1327 # Break up a path into the directory (with slash) and base name.
1650 my ($base, $number) = @_;
1651 return "$base$number" if ($number > 1);
1652 return $base;
1705 my ($base, $isText, $expectedExtension) = @_;
1720 return $directory if -f File::Spec->catfile($directory, "$base-$expectedTag.$expectedExtension");
1730 my ($test, $base, $result, $isText) = @_;
1736 $fileName = File::Spec->catfile($testResultsDirectory, "$base-leaks.txt");
1755 my ($test, $base, $didCrash, $webProcessCrashed, $actual, $error) = @_;
1761 my $dir = dirname(File::Spec->catdir($testResultsDirectory, $base));
1764 deleteExpectedAndActualResults($base);
1767 writeToFile(File::Spec->catfile($testResultsDirectory, "$base
1770 recordActualResultsAndDiff($base, $actual);
1778 captureSavedCrashLog($base, $webProcessCrashed) if $didCrash || $webProcessCrashed;
1780 return unless isCygwin() && !$didCrash && $base =~ /^http/;
1789 my ($base, $webProcessCrashed) = @_;
1826 move($crashLog, File::Spec->catfile($testResultsDirectory, "$base-$crashLogTag.txt"));
1980 my ($base) = @_;
1984 return \@links unless -s "$testResultsDirectory/$base-$diffsTag.txt";
1986 my $expectedResultPath = $expectedResultPaths{$base};
1989 push @links, { href => "$base-$expectedTag$expectedResultExtension", text => "expected" };
1990 push @links, { href => "$base-$actualTag$expectedResultExtension", text => "actual" };
1991 push @links, { href => "$base-$diffsTag.txt", text => "diff" };
1992 push @links, { href => "$base-$prettyDiffTag.html", text => "pretty diff" };
2003 my $base = stripExtension($test);
2005 push @links, @{linksForExpectedAndActualResults($base)};
2006 return \@links unless $pixelTests && $imagesPresent{$base};
2008 push @links, { href => "$base-$expectedTag.png", text => "expected image" };
2009 push @links, { href => "$base-$diffsTag.html", text => "image diffs" };
2010 push @links, { href => "$base-$diffsTag.png", text => "$imageDifferences{$base}%" };
2017 my ($base) = @_;
2019 my $crashLogFile = File::Spec->catfile($testResultsDirectory, "$base-$crashLogTag.txt");
2078 my $base = stripExtension($test);
2081 if (my $crashLocation = crashLocation($base)) {
2085 push @links, @{linksForExpectedAndActualResults($base)};
2086 push @links, { href => "$base-$errorTag.txt", text => "stderr" };
2087 push @links, { href => "$base-$crashLogTag.txt", text => $crashLogText };
2098 my $base = stripExtension($test);
2100 my $expectedResultPath = $expectedResultPaths{$base};
2103 push @links, { href => "$base-$actualTag$expectedResultExtension", text => "result" };
2104 if ($pixelTests && $imagesPresent{$base}) {
2105 push @links, { href => "$base-$expectedTag.png", text => "image" };
2113 my ($base) = @_;
2115 unlink "$testResultsDirectory/$base-$actualTag.txt";
2116 unlink "$testResultsDirectory/$base-$diffsTag.txt";
2117 unlink "$testResultsDirectory/$base-$errorTag.txt";
2118 unlink "$testResultsDirectory/$base-$crashLogTag.txt";
2123 my ($base, $actualResults) = @_;
2127 my $expectedResultPath = $expectedResultPaths{$base};
2129 my $actualResultsPath = File::Spec->catfile($testResultsDirectory, "$base-$actualTag$expectedResultExtension");
2130 my $copiedExpectedResultsPath = File::Spec->catfile($testResultsDirectory, "$base-$expectedTag$expectedResultExtension");
2142 my $diffOuputBasePath = File::Spec->catfile($testResultsDirectory, $base);
2499 my $base = stripExtension($filename);
2500 return (-f "$base-$expectedTag.html" || -f "$base-$expectedTag-$mismatchTag.html");
