Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
SizeLimit	[ DIR ]	drwxr-xr-x	2025-06-05 11:22
Test.pm	30.43 KB	-rw-r--r--	2022-10-20 09:29
Test5005compat.pm	1.99 KB	-rw-r--r--	2022-01-30 13:02
TestBuild.pm	14.58 KB	-rw-r--r--	2022-01-30 13:02
TestClient.pm	5.13 KB	-rw-r--r--	2022-01-30 13:02
TestCommon.pm	2.97 KB	-rw-r--r--	2022-01-30 13:02
TestCommonPost.pm	5.1 KB	-rw-r--r--	2022-01-30 13:02
TestConfig.pm	62.4 KB	-rw-r--r--	2022-01-30 13:02
TestConfigC.pm	11.97 KB	-rw-r--r--	2022-01-30 13:02
TestConfigPHP.pm	17.68 KB	-rw-r--r--	2022-01-30 13:02
TestConfigParrot.pm	2.6 KB	-rw-r--r--	2022-01-30 13:02
TestConfigParse.pm	15.88 KB	-rw-r--r--	2022-10-20 09:29
TestConfigPerl.pm	19.54 KB	-rw-r--r--	2022-01-30 13:02
TestHandler.pm	5.06 KB	-rw-r--r--	2022-01-30 13:02
TestHarness.pm	5.05 KB	-rw-r--r--	2022-01-30 13:02
TestHarnessPHP.pm	4.15 KB	-rw-r--r--	2022-01-30 13:02
TestMB.pm	11.53 KB	-rw-r--r--	2022-01-30 13:02
TestMM.pm	7.09 KB	-rw-r--r--	2022-01-30 13:02
TestPerlDB.pm	1.58 KB	-rw-r--r--	2022-01-30 13:02
TestReport.pm	3.99 KB	-rw-r--r--	2022-01-30 13:02
TestReportPerl.pm	1.25 KB	-rw-r--r--	2022-01-30 13:02
TestRequest.pm	35.91 KB	-rw-r--r--	2022-10-20 09:29
TestRun.pm	34.96 KB	-rw-r--r--	2022-01-30 13:02
TestRunPHP.pm	10.97 KB	-rw-r--r--	2022-10-20 09:29
TestRunParrot.pm	1.79 KB	-rw-r--r--	2022-01-30 13:02
TestRunPerl.pm	4 KB	-rw-r--r--	2022-01-30 13:02
TestSSLCA.pm	13.5 KB	-rw-r--r--	2022-01-30 13:02
TestServer.pm	18.95 KB	-rw-r--r--	2022-10-20 09:29
TestSmoke.pm	26.33 KB	-rw-r--r--	2022-01-30 13:02
TestSmokePerl.pm	1.08 KB	-rw-r--r--	2022-01-30 13:02
TestSort.pm	1.95 KB	-rw-r--r--	2022-01-30 13:02
TestTrace.pm	7.61 KB	-rw-r--r--	2022-10-20 09:29
TestUtil.pm	28.31 KB	-rw-r--r--	2022-10-20 09:29

Rename

# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements.  See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to You under the Apache License, Version 2.0
# (the "License"); you may not use this file except in compliance with
# the License.  You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
package Apache::TestConfigParrot;

#things specific to mod_parrot

use strict;
use warnings FATAL => 'all';
use File::Spec::Functions qw(catfile splitdir abs2rel);
use File::Find qw(finddepth);
use Apache::TestTrace;
use Apache::TestRequest;
use Apache::TestConfig;
use Apache::TestConfigPerl;
use Config;

@Apache::TestConfigParrot::ISA = qw(Apache::TestConfig);

sub new {
    return shift->SUPER::new(@_);
}

sub configure_parrot_tests_pick {
    my($self, $entries) = @_;

for my $subdir (qw(Response)) {
        my $dir = catfile $self->{vars}->{t_dir}, lc $subdir;
        next unless -d $dir;

finddepth(sub {
            return unless /\.pir$/;

my $file = catfile $File::Find::dir, $_;
            my $module = abs2rel $file, $dir;
            my $status = $self->run_apache_test_config_scan($file);
            push @$entries, [$file, $module, $subdir, $status];
        }, $dir);
    }
}

sub configure_parrot_tests {
    my $self = shift;

my @entries = ();
    $self->configure_parrot_tests_pick(\@entries);
    $self->configure_pm_tests_sort(\@entries);

my %seen = ();

for my $entry (@entries) {
        my ($file, $module, $subdir, $status) = @$entry;

my @args = ();

my $directives = $self->add_module_config($file, \@args);

$module =~ s,\.pir$,,;
        $module =~ s/^[a-z]://i; #strip drive if any
        $module = join '::', splitdir $module;

my @base = map { s/^test//i; $_ } split '::', $module;

my $sub = pop @base;

debug "configuring mod_parrot test file $file";

push @args, SetHandler => 'parrot-code';
        push @args, ParrotHandler => $module;

$self->postamble(ParrotLoad => $file);
        $self->postamble($self->location_container($module), \@args);

$self->write_pm_test($module, lc $sub, map { lc } @base);
    }
}

__DATA__