Compare commits
11 commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
6db6dde190 | ||
|
|
25014c1ca2 | ||
|
|
ffc2614fb4 | ||
|
|
b198b660e1 | ||
|
|
0cb226486d | ||
|
|
f79af84dac | ||
|
|
634417c4c8 | ||
|
|
b190a68f12 | ||
|
|
1d0b43ec6b | ||
|
|
212ef4225d | ||
|
|
0f4c407d1a |
16 changed files with 676 additions and 1 deletions
4
.gitignore
vendored
Normal file
4
.gitignore
vendored
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
.idea
|
||||||
|
tests/*.pyc
|
||||||
|
.idea
|
||||||
|
tests/localrepo*
|
||||||
14
Dockerfile
Normal file
14
Dockerfile
Normal file
|
|
@ -0,0 +1,14 @@
|
||||||
|
FROM baseruntime/baseruntime:latest
|
||||||
|
|
||||||
|
COPY repos/* /etc/yum.repos.d/
|
||||||
|
COPY tests/scripts/* /tmp/
|
||||||
|
|
||||||
|
RUN sed -i 's|/jkaluza/|/ralph/|g' /etc/yum.repos.d/build.repo && \
|
||||||
|
rpm -e --justdb --nodeps systemd-libs && \
|
||||||
|
microdnf --nodocs --enablerepo perl install perl perl-devel && \
|
||||||
|
microdnf clean all
|
||||||
|
|
||||||
|
EXPOSE 8080
|
||||||
|
|
||||||
|
|
||||||
|
CMD /bin/bash
|
||||||
14
Makefile
Normal file
14
Makefile
Normal file
|
|
@ -0,0 +1,14 @@
|
||||||
|
IMAGE_NAME = perl
|
||||||
|
|
||||||
|
MODULEMDURL=file://perl.yaml
|
||||||
|
|
||||||
|
default: run
|
||||||
|
|
||||||
|
build:
|
||||||
|
docker build --tag=$(IMAGE_NAME) .
|
||||||
|
|
||||||
|
run: build
|
||||||
|
docker run -d $(IMAGE_NAME)
|
||||||
|
|
||||||
|
test: build
|
||||||
|
cd tests; MODULE=docker MODULEMD=$(MODULEMDURL) URL="docker=$(IMAGE_NAME)" make all
|
||||||
19
README.md
Normal file
19
README.md
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
# perl module
|
||||||
|
|
||||||
|
[**Package DB** (owner)](https://admin.fedoraproject.org/pkgdb/package/modules/perl/) |
|
||||||
|
[**F26 modulemd** (source)](http://pkgs.fedoraproject.org/cgit/modules/perl.git/tree/perl.yaml?h=f26) |
|
||||||
|
[**PDC** (result)](https://pdc.fedoraproject.org/rest_api/v1/unreleasedvariants/?active=True&variant_name=perl)
|
||||||
|
|
||||||
|
|
||||||
|
Module containing important perl packages.
|
||||||
|
|
||||||
|
## Current state
|
||||||
|
|
||||||
|
| State | Description |
|
||||||
|
|-------|-------------|
|
||||||
|
| ✓ YES | **Build passes** in the infra (all build deps are ok) |
|
||||||
|
| ✓ YES | **Installs** on the Base Runtime (all runtime deps are ok) |
|
||||||
|
| ✓ YES | **No bootstrap** - uses only proper modules |
|
||||||
|
| ✓ YES | General **tests are in dist-git** |
|
||||||
|
| ✓ YES | General **tests pass** |
|
||||||
|
| ✗ NO | Meets the **Fedora Module Packaging Guidelines** |
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
Unsupported
|
|
||||||
376
perl.yaml
Normal file
376
perl.yaml
Normal file
|
|
@ -0,0 +1,376 @@
|
||||||
|
document: modulemd
|
||||||
|
version: 1
|
||||||
|
data:
|
||||||
|
summary: Practical Extraction and Report Language
|
||||||
|
description: >
|
||||||
|
Perl is a high-level programming language with roots in C, sed, awk
|
||||||
|
and shell scripting. Perl is good at handling processes and files, and
|
||||||
|
is especially good at handling text. Perl's hallmarks are practicality
|
||||||
|
and efficiency. While it is used to do a lot of different things,
|
||||||
|
Perl's most common applications are system administration utilities
|
||||||
|
and web programming.
|
||||||
|
This module has disabled SysteTap and groff support.
|
||||||
|
license:
|
||||||
|
module: [ MIT ]
|
||||||
|
dependencies:
|
||||||
|
buildrequires:
|
||||||
|
base-runtime: f26
|
||||||
|
perl-bootstrap: f26
|
||||||
|
requires:
|
||||||
|
base-runtime: f26
|
||||||
|
references:
|
||||||
|
community: https://docs.pagure.org/modularity/
|
||||||
|
documentation: https://github.com/modularity-modules/perl
|
||||||
|
tracker: https://github.com/modularity-modules/perl/issues
|
||||||
|
profiles:
|
||||||
|
# Interpreter and all Perl modules bundled within upstream Perl
|
||||||
|
default:
|
||||||
|
rpms:
|
||||||
|
- perl-core
|
||||||
|
# Only the interpreter as standalone executable
|
||||||
|
minimal:
|
||||||
|
rpms:
|
||||||
|
- perl
|
||||||
|
filter:
|
||||||
|
rpms:
|
||||||
|
# This is provided by MBR, we do not need any different content
|
||||||
|
# there, not providing it will preserve MBR's NEVRA and that's
|
||||||
|
# good for dependend modules.
|
||||||
|
- perl-srpm-macros
|
||||||
|
components:
|
||||||
|
rpms:
|
||||||
|
# We need to build all (as in perl-bootstrap) RPM packages again
|
||||||
|
# because only those built from this module definition will get
|
||||||
|
# into the module compose.
|
||||||
|
# This perl-srpm-macros build must have higher NEVRA than a build
|
||||||
|
# from perl-bootstrap and must be built first.
|
||||||
|
perl-srpm-macros:
|
||||||
|
rationale: Control generating source packages.
|
||||||
|
ref: 2d2cd8711bd8ec5059308d85ca2fcc1fbbcf0aa2
|
||||||
|
buildorder: -1
|
||||||
|
# Then we can rebuild in a random order because we have all binary
|
||||||
|
# packages available from perl-bootstrap.
|
||||||
|
perl:
|
||||||
|
rationale: The Perl interpreter.
|
||||||
|
ref: f26
|
||||||
|
perl-Algorithm-Diff:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Archive-Tar:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Archive-Zip:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-autodie:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-B-Debug:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-bignum:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Carp:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Compress-Bzip2:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Compress-Raw-Bzip2:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Compress-Raw-Zlib:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Config-Perl-V:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-constant:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-CPAN:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-CPAN-Meta:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-CPAN-Meta-Requirements:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-CPAN-Meta-YAML:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Data-Dumper:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Data-OptList:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Data-Section:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-DB_File:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Devel-PPPort:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Devel-Size:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Digest:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Digest-MD5:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Digest-SHA:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Encode:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Env:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-experimental:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Exporter:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-ExtUtils-CBuilder:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-ExtUtils-Install:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-ExtUtils-MakeMaker:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-ExtUtils-Manifest:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-ExtUtils-ParseXS:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Fedora-VSP:
|
||||||
|
rationale: RPM dependency generator.
|
||||||
|
ref: f26
|
||||||
|
perl-File-Fetch:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-File-HomeDir:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-File-Path:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-File-Temp:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-File-Which:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Filter:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Filter-Simple:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-generators:
|
||||||
|
rationale: RPM dependency generator.
|
||||||
|
ref: f26
|
||||||
|
perl-Getopt-Long:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-HTTP-Tiny:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-inc-latest:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-IO-Compress:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-IO-Socket-IP:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-IPC-Cmd:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-IPC-System-Simple:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-IPC-SysV:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-JSON-PP:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-libnet:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-local-lib:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Locale-Codes:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Locale-Maketext:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Math-BigInt:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Math-BigInt-FastCalc:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Math-BigRat:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-MIME-Base64:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Module-Build:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Module-CoreList:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Module-Load:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Module-Load-Conditional:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Module-Metadata:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-MRO-Compat:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Package-Generator:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Params-Check:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Params-Util:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-parent:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-PathTools:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Perl-OSType:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-perlfaq:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-PerlIO-via-QuotedPrint:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Pod-Checker:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Pod-Escapes:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Pod-Parser:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Pod-Perldoc:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Pod-Simple:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Pod-Usage:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-podlators:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Scalar-List-Utils:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Socket:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Software-License:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Storable:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Sub-Exporter:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Sub-Install:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Sys-Syslog:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Term-ANSIColor:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Term-Cap:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Test-Harness:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Test-Simple:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Text-Balanced:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Text-Diff:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Text-Glob:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Text-ParseWords:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Text-Tabs+Wrap:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Text-Template:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-Thread-Queue:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-threads:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-threads-shared:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Time-HiRes:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Time-Local:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Unicode-Collate:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-Unicode-Normalize:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
|
perl-URI:
|
||||||
|
rationale: A run-time dependency.
|
||||||
|
ref: f26
|
||||||
|
perl-version:
|
||||||
|
rationale: Core Perl API.
|
||||||
|
ref: f26
|
||||||
4
repos/fedora.repo
Normal file
4
repos/fedora.repo
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
[fedora]
|
||||||
|
name=fedora
|
||||||
|
baseurl=https://mirrors.nic.cz/fedora/linux/development/26/Everything/x86_64/os/
|
||||||
|
enabled=0
|
||||||
4
repos/perl.repo
Normal file
4
repos/perl.repo
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
[perl]
|
||||||
|
name=perl
|
||||||
|
baseurl=https://kojipkgs.fedoraproject.org/repos/module-9ac9f492d4852dfd-build/latest/x86_64/
|
||||||
|
enabled=0
|
||||||
0
sources
Normal file
0
sources
Normal file
6
tests/Makefile
Normal file
6
tests/Makefile
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
MODULE_LINT=/usr/share/moduleframework/tools/modulelint.py
|
||||||
|
CMD=python -m avocado run --filter-by-tags=-WIP $(MODULE_LINT) *.py
|
||||||
|
|
||||||
|
#
|
||||||
|
all:
|
||||||
|
$(CMD)
|
||||||
13
tests/config.yaml
Normal file
13
tests/config.yaml
Normal file
|
|
@ -0,0 +1,13 @@
|
||||||
|
document: modularity-testing
|
||||||
|
version: 1
|
||||||
|
name: perl
|
||||||
|
modulemd-url: https://src.fedoraproject.org/cgit/modules/perl.git/plain/perl.yaml
|
||||||
|
service:
|
||||||
|
port: 8080
|
||||||
|
module:
|
||||||
|
docker:
|
||||||
|
start: "docker run -it"
|
||||||
|
container: perl
|
||||||
|
rpm:
|
||||||
|
repos:
|
||||||
|
- http://mirror.vutbr.cz/fedora/releases/26/Everything/x86_64/os/
|
||||||
57
tests/cpan.py
Normal file
57
tests/cpan.py
Normal file
|
|
@ -0,0 +1,57 @@
|
||||||
|
#
|
||||||
|
# This Modularity Testing Framework helps you to write tests for modules
|
||||||
|
# Copyright (C) 2017 Red Hat, Inc.
|
||||||
|
#
|
||||||
|
# This program is free software; you can redistribute it and/or modify
|
||||||
|
# it under the terms of the GNU General Public License as published by
|
||||||
|
# he Free Software Foundation; either version 2 of the License, or
|
||||||
|
# (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This program is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
# GNU General Public License for more details.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public License along
|
||||||
|
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||||
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||||
|
#
|
||||||
|
# Authors: Rado Pitonak <rpitonak@redhat.com>
|
||||||
|
#
|
||||||
|
|
||||||
|
from avocado import main
|
||||||
|
from avocado.core import exceptions
|
||||||
|
from moduleframework import module_framework
|
||||||
|
|
||||||
|
|
||||||
|
class CpanCheck(module_framework.AvocadoTest):
|
||||||
|
"""
|
||||||
|
:avocado: enable
|
||||||
|
"""
|
||||||
|
|
||||||
|
def testInstallPerlModule(self):
|
||||||
|
"""
|
||||||
|
Installing Perl module using cpan [http://www.cpan.org/]
|
||||||
|
"""
|
||||||
|
|
||||||
|
self.start()
|
||||||
|
|
||||||
|
self.run("microdnf --nodocs --enablerepo fedora install -y cpan cpanminus")
|
||||||
|
self.run("cpanm install --force Error")
|
||||||
|
self.run("perl -e \"use Error\"")
|
||||||
|
|
||||||
|
def testInstallCModule(self):
|
||||||
|
"""
|
||||||
|
Installing Perl module written in C language, using cpan [http://www.cpan.org/]
|
||||||
|
Another packages need to be install here - gcc, rpm-devel to build module.
|
||||||
|
"""
|
||||||
|
|
||||||
|
self.start()
|
||||||
|
|
||||||
|
self.run("microdnf --nodocs --enablerepo fedora install -y cpan cpanminus")
|
||||||
|
self.run("microdnf --nodocs --enablerepo fedora install -y gcc rpm-devel")
|
||||||
|
self.run("cpanm install --force RPM2")
|
||||||
|
self.run("perl -e \"use RPM2\"")
|
||||||
|
|
||||||
|
if __name__ == '__main__':
|
||||||
|
main()
|
||||||
44
tests/networking.py
Normal file
44
tests/networking.py
Normal file
|
|
@ -0,0 +1,44 @@
|
||||||
|
#!/usr/bin/python
|
||||||
|
# -*- coding: utf-8 -*-
|
||||||
|
#
|
||||||
|
# This Modularity Testing Framework helps you to write tests for modules
|
||||||
|
# Copyright (C) 2017 Red Hat, Inc.
|
||||||
|
#
|
||||||
|
# This program is free software; you can redistribute it and/or modify
|
||||||
|
# it under the terms of the GNU General Public License as published by
|
||||||
|
# he Free Software Foundation; either version 2 of the License, or
|
||||||
|
# (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This program is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
# GNU General Public License for more details.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public License along
|
||||||
|
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||||
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||||
|
#
|
||||||
|
# Authors: Rado Pitonak <rpitonak@redhat.com>
|
||||||
|
#
|
||||||
|
|
||||||
|
from avocado import main
|
||||||
|
from avocado.core import exceptions
|
||||||
|
from moduleframework import module_framework
|
||||||
|
|
||||||
|
|
||||||
|
class NetworkingCheck(module_framework.AvocadoTest):
|
||||||
|
"""
|
||||||
|
:avocado: enable
|
||||||
|
"""
|
||||||
|
|
||||||
|
def testHTTPRequest(self):
|
||||||
|
"""
|
||||||
|
Test networking with `HTTP::Tiny` perl module
|
||||||
|
Testing script is included in `scripts` folder
|
||||||
|
"""
|
||||||
|
self.start()
|
||||||
|
self.run("perl /tmp/http.pl")
|
||||||
|
|
||||||
|
|
||||||
|
if __name__ == '__main__':
|
||||||
|
main()
|
||||||
56
tests/rpmvalidator.py
Normal file
56
tests/rpmvalidator.py
Normal file
|
|
@ -0,0 +1,56 @@
|
||||||
|
#!/usr/bin/python
|
||||||
|
# -*- coding: utf-8 -*-
|
||||||
|
#
|
||||||
|
# This Modularity Testing Framework helps you to write tests for modules
|
||||||
|
# Copyright (C) 2017 Red Hat, Inc.
|
||||||
|
#
|
||||||
|
# This program is free software; you can redistribute it and/or modify
|
||||||
|
# it under the terms of the GNU General Public License as published by
|
||||||
|
# he Free Software Foundation; either version 2 of the License, or
|
||||||
|
# (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This program is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
# GNU General Public License for more details.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public License along
|
||||||
|
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||||
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||||
|
#
|
||||||
|
# Authors: Jan Scotka <jscotka@redhat.com>
|
||||||
|
#
|
||||||
|
|
||||||
|
from avocado import main
|
||||||
|
from moduleframework import module_framework
|
||||||
|
|
||||||
|
|
||||||
|
class ExampleRpmValidation(module_framework.AvocadoTest):
|
||||||
|
"""
|
||||||
|
:avocado: enable
|
||||||
|
"""
|
||||||
|
fhs_base_paths = [
|
||||||
|
'/bin',
|
||||||
|
'/boot',
|
||||||
|
'/dev',
|
||||||
|
'/etc',
|
||||||
|
'/home',
|
||||||
|
'/lib',
|
||||||
|
'/lib64',
|
||||||
|
'/media',
|
||||||
|
'/mnt',
|
||||||
|
'/opt',
|
||||||
|
'/proc',
|
||||||
|
'/root',
|
||||||
|
'/run',
|
||||||
|
'/sbin',
|
||||||
|
'/sys',
|
||||||
|
'/srv',
|
||||||
|
'/tmp',
|
||||||
|
'/usr/bin'
|
||||||
|
]
|
||||||
|
|
||||||
|
def testPaths(self):
|
||||||
|
self.start()
|
||||||
|
for directory in self.fhs_base_paths:
|
||||||
|
self.run("test -d %s" % directory)
|
||||||
60
tests/sanity.py
Normal file
60
tests/sanity.py
Normal file
|
|
@ -0,0 +1,60 @@
|
||||||
|
#!/usr/bin/python
|
||||||
|
# -*- coding: utf-8 -*-
|
||||||
|
#
|
||||||
|
# This Modularity Testing Framework helps you to write tests for modules
|
||||||
|
# Copyright (C) 2017 Red Hat, Inc.
|
||||||
|
#
|
||||||
|
# This program is free software; you can redistribute it and/or modify
|
||||||
|
# it under the terms of the GNU General Public License as published by
|
||||||
|
# he Free Software Foundation; either version 2 of the License, or
|
||||||
|
# (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This program is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
# GNU General Public License for more details.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public License along
|
||||||
|
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||||||
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||||
|
#
|
||||||
|
# Authors: Rado Pitonak <rpitonak@redhat.com>
|
||||||
|
#
|
||||||
|
|
||||||
|
from avocado import main
|
||||||
|
from avocado.core import exceptions
|
||||||
|
from moduleframework import module_framework
|
||||||
|
|
||||||
|
|
||||||
|
class SanityCheck(module_framework.AvocadoTest):
|
||||||
|
"""
|
||||||
|
:avocado: enable
|
||||||
|
"""
|
||||||
|
|
||||||
|
def test1(self):
|
||||||
|
"""
|
||||||
|
Simple sanity test
|
||||||
|
"""
|
||||||
|
|
||||||
|
self.start()
|
||||||
|
self.run("ls / | grep bin")
|
||||||
|
|
||||||
|
def test2PerlVersion(self):
|
||||||
|
"""
|
||||||
|
Check if perl is installed in correct version
|
||||||
|
"""
|
||||||
|
perl_version = "5.24"
|
||||||
|
self.start()
|
||||||
|
self.run("perl -v | grep " + perl_version)
|
||||||
|
|
||||||
|
def testPerlScript(self):
|
||||||
|
"""
|
||||||
|
Executing simple perl script
|
||||||
|
"""
|
||||||
|
test_string = "Running test script\n"
|
||||||
|
self.start()
|
||||||
|
self.assertIn("{}".format(test_string), self.run('perl -e " print \'{}\'"'.format(test_string)).stdout)
|
||||||
|
|
||||||
|
|
||||||
|
if __name__ == '__main__':
|
||||||
|
main()
|
||||||
5
tests/scripts/http.pl
Normal file
5
tests/scripts/http.pl
Normal file
|
|
@ -0,0 +1,5 @@
|
||||||
|
use HTTP::Tiny;
|
||||||
|
|
||||||
|
my $response = HTTP::Tiny->new->get('http://example.com/');
|
||||||
|
|
||||||
|
die "Failed!\n" unless $response->{success};
|
||||||
Loading…
Add table
Add a link
Reference in a new issue