From d6756de9ebf5840b9886c86635319dc1be1e36cc Mon Sep 17 00:00:00 2001 From: Yevhenii Shapovalov Date: Mon, 4 Dec 2017 12:22:37 +0200 Subject: [PATCH] add tests --- tests/inventory | 4 +++ tests/smoke/Makefile | 63 ++++++++++++++++++++++++++++++++++++ tests/smoke/PURPOSE | 5 +++ tests/smoke/fact | 6 ++++ tests/smoke/runtest.sh | 68 +++++++++++++++++++++++++++++++++++++++ tests/tests.yml | 25 ++++++++++++++ tests/upstream/Makefile | 63 ++++++++++++++++++++++++++++++++++++ tests/upstream/PURPOSE | 3 ++ tests/upstream/runtest.sh | 65 +++++++++++++++++++++++++++++++++++++ 9 files changed, 302 insertions(+) create mode 100755 tests/inventory create mode 100644 tests/smoke/Makefile create mode 100644 tests/smoke/PURPOSE create mode 100644 tests/smoke/fact create mode 100644 tests/smoke/runtest.sh create mode 100644 tests/tests.yml create mode 100644 tests/upstream/Makefile create mode 100644 tests/upstream/PURPOSE create mode 100644 tests/upstream/runtest.sh diff --git a/tests/inventory b/tests/inventory new file mode 100755 index 0000000..7cb324f --- /dev/null +++ b/tests/inventory @@ -0,0 +1,4 @@ +#!/bin/bash +#upstream test needs tty +export TEST_DOCKER_EXTRA_ARGS="-v /dev:/dev --privileged" +exec merge-standard-inventory "$@" diff --git a/tests/smoke/Makefile b/tests/smoke/Makefile new file mode 100644 index 0000000..95ec90e --- /dev/null +++ b/tests/smoke/Makefile @@ -0,0 +1,63 @@ +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# Makefile of /CoreOS/guile/Sanity/smoke +# Description: Guile smoke test +# Author: Petr Splichal +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# Copyright (c) 2011 Red Hat, Inc. All rights reserved. +# +# This copyrighted material is made available to anyone wishing +# to use, modify, copy, or redistribute it subject to the terms +# and conditions of the GNU General Public License version 2. +# +# 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. +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +export TEST=/CoreOS/guile/Sanity/smoke +export TESTVERSION=1.0 + +BUILT_FILES= + +FILES=$(METADATA) runtest.sh Makefile PURPOSE fact + +.PHONY: all install download clean + +run: $(FILES) build + ./runtest.sh + +build: $(BUILT_FILES) + chmod a+x runtest.sh + +clean: + rm -f *~ $(BUILT_FILES) + + +include /usr/share/rhts/lib/rhts-make.include + +$(METADATA): Makefile + @echo "Owner: Petr Splichal " > $(METADATA) + @echo "Name: $(TEST)" >> $(METADATA) + @echo "TestVersion: $(TESTVERSION)" >> $(METADATA) + @echo "Path: $(TEST_DIR)" >> $(METADATA) + @echo "Description: Guile smoke test" >> $(METADATA) + @echo "Type: Sanity" >> $(METADATA) + @echo "TestTime: 5m" >> $(METADATA) + @echo "RunFor: guile" >> $(METADATA) + @echo "Requires: guile" >> $(METADATA) + @echo "Priority: Normal" >> $(METADATA) + @echo "License: GPLv2" >> $(METADATA) + @echo "Confidential: no" >> $(METADATA) + @echo "Destructive: no" >> $(METADATA) + + rhts-lint $(METADATA) diff --git a/tests/smoke/PURPOSE b/tests/smoke/PURPOSE new file mode 100644 index 0000000..eec2174 --- /dev/null +++ b/tests/smoke/PURPOSE @@ -0,0 +1,5 @@ +PURPOSE of /CoreOS/guile/Sanity/smoke +Description: Guile smoke test +Author: Petr Splichal + +Smoke test for the Guile interpreter. diff --git a/tests/smoke/fact b/tests/smoke/fact new file mode 100644 index 0000000..245737e --- /dev/null +++ b/tests/smoke/fact @@ -0,0 +1,6 @@ +(define (fact n) + (if (zero? n) 1 + (* n (fact (- n 1))))) + +(display (fact 12)) +(newline) diff --git a/tests/smoke/runtest.sh b/tests/smoke/runtest.sh new file mode 100644 index 0000000..98889d5 --- /dev/null +++ b/tests/smoke/runtest.sh @@ -0,0 +1,68 @@ +#!/bin/bash +# vim: dict=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# runtest.sh of /CoreOS/guile/Sanity/smoke +# Description: Guile smoke test +# Author: Petr Splichal +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# Copyright (c) 2011 Red Hat, Inc. All rights reserved. +# +# This copyrighted material is made available to anyone wishing +# to use, modify, copy, or redistribute it subject to the terms +# and conditions of the GNU General Public License version 2. +# +# 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. +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +# Include Beaker environment +. /usr/bin/rhts-environment.sh +. /usr/lib/beakerlib/beakerlib.sh + +PACKAGE="guile" + +rlJournalStart + rlPhaseStartSetup + rlAssertRpm $PACKAGE + rlRun "TmpDir=\`mktemp -d\`" 0 "Creating tmp directory" + rlRun "cp fact $TmpDir" 0 "Copying simple guile script" + rlRun "pushd $TmpDir" + rlPhaseEnd + + rlPhaseStartTest + # Simple arithmetic + rlRun "echo '(+ 1 1 1)' | guile | tee output" 0 "Simple arithmetic" + rlAssertGrep "3" "output" + + # String operation + rlRun "echo '(string-append \"O\" \"K\")' | guile | tee output" \ + 0 "String operation" + rlAssertGrep "OK" "output" + + # Function definition + rlRun "guile fact | tee output" 0 "Function definition" + rlAssertGrep "479001600" "output" + + # Punifying external script + rlRun "guile-tools punify fact | tee output" \ + 0 "Punifying external script" + rlAssertGrep "define.*zero.*newline" "output" + rlPhaseEnd + + rlPhaseStartCleanup + rlRun "popd" + rlRun "rm -r $TmpDir" 0 "Removing tmp directory" + rlPhaseEnd +rlJournalPrintText +rlJournalEnd diff --git a/tests/tests.yml b/tests/tests.yml new file mode 100644 index 0000000..29a044f --- /dev/null +++ b/tests/tests.yml @@ -0,0 +1,25 @@ +--- +# Tests to run in a classic and container environments +- hosts: localhost + roles: + - role: standard-test-beakerlib + tags: + - classic + - container + tests: + - smoke + - upstream + required_packages: + - guile + - findutils # beakerlib needs find command + - gettext-devel # upstream needs it + - gmp-devel # upstream needs it + - libtool # upstream needs it + - libtool-ltdl-devel # upstream needs it + - readline-devel # upstream needs it + - rpm-build # upstream needs it + - libunistring-devel # upstream needs it + - libffi-devel # upstream needs it + - gc-devel # upstream needs it + - wget # rlFetchSrcForInstalled needs it + diff --git a/tests/upstream/Makefile b/tests/upstream/Makefile new file mode 100644 index 0000000..0ef6b36 --- /dev/null +++ b/tests/upstream/Makefile @@ -0,0 +1,63 @@ +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# Makefile of /CoreOS/guile/Sanity/upstream +# Description: Upstream test suite +# Author: Petr Splichal +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# Copyright (c) 2011 Red Hat, Inc. All rights reserved. +# +# This copyrighted material is made available to anyone wishing +# to use, modify, copy, or redistribute it subject to the terms +# and conditions of the GNU General Public License version 2. +# +# 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. +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +export TEST=/CoreOS/guile/Sanity/upstream +export TESTVERSION=1.0 + +BUILT_FILES= + +FILES=$(METADATA) runtest.sh Makefile PURPOSE + +.PHONY: all install download clean + +run: $(FILES) build + ./runtest.sh + +build: $(BUILT_FILES) + test -x runtest.sh || chmod a+x runtest.sh + +clean: + rm -f *~ $(BUILT_FILES) + + +include /usr/share/rhts/lib/rhts-make.include + +$(METADATA): Makefile + @echo "Owner: Petr Splichal " > $(METADATA) + @echo "Name: $(TEST)" >> $(METADATA) + @echo "TestVersion: $(TESTVERSION)" >> $(METADATA) + @echo "Path: $(TEST_DIR)" >> $(METADATA) + @echo "Description: Upstream test suite" >> $(METADATA) + @echo "Type: Sanity" >> $(METADATA) + @echo "TestTime: 60m" >> $(METADATA) + @echo "RunFor: guile" >> $(METADATA) + @echo "Requires: gettext-devel gmp-devel guile libtool libtool-ltdl-devel readline-devel rpm-build libunistring-devel libffi-devel gc-devel" >> $(METADATA) + @echo "Priority: Normal" >> $(METADATA) + @echo "License: GPLv2" >> $(METADATA) + @echo "Confidential: no" >> $(METADATA) + @echo "Destructive: no" >> $(METADATA) + + rhts-lint $(METADATA) diff --git a/tests/upstream/PURPOSE b/tests/upstream/PURPOSE new file mode 100644 index 0000000..64d8b05 --- /dev/null +++ b/tests/upstream/PURPOSE @@ -0,0 +1,3 @@ +PURPOSE of /CoreOS/guile/Sanity/upstream +Description: Upstream test suite +Author: Petr Splichal diff --git a/tests/upstream/runtest.sh b/tests/upstream/runtest.sh new file mode 100644 index 0000000..67fb4ed --- /dev/null +++ b/tests/upstream/runtest.sh @@ -0,0 +1,65 @@ +#!/bin/bash +# vim: dict=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# runtest.sh of /CoreOS/guile/Sanity/upstream +# Description: Upstream test suite +# Author: Petr Splichal +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# Copyright (c) 2011 Red Hat, Inc. All rights reserved. +# +# This copyrighted material is made available to anyone wishing +# to use, modify, copy, or redistribute it subject to the terms +# and conditions of the GNU General Public License version 2. +# +# 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. +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +# Include Beaker environment +. /usr/bin/rhts-environment.sh +. /usr/lib/beakerlib/beakerlib.sh + +PACKAGE="guile" + +rlJournalStart + rlPhaseStartSetup + rlAssertRpm $PACKAGE + rlRun "TmpDir=\`mktemp -d\`" 0 "Creating tmp directory" + rlRun "pushd $TmpDir" + + # fetch tests + rlRun "rlFetchSrcForInstalled $PACKAGE" 0 "Fetching the source rpm" + rlRun "rpm --define '_topdir $TmpDir' -i *src.rpm" \ + 0 "Installing the source rpm" + rlRun "mkdir BUILD" 0 "Creating BUILD directory" + rlRun "rpmbuild --nodeps --define '_topdir $TmpDir' \ + -bc $TmpDir/SPECS/*spec" 0 "Preparing sources" + rlRun "pushd BUILD/guile*" + rlPhaseEnd + + rlPhaseStartTest + rlRun "make check" 0 "Dry run of the test suite" + rlRun "ln -snf /usr/bin/guile libguile/guile" \ + 0 "Replacing built guile interpreter with system binary" + rlRun "pushd test-suite" + rlRun "make check" 0 "Running the test suite" + rlRun "popd" + rlPhaseEnd + + rlPhaseStartCleanup + rlRun "popd" + rlRun "rm -r $TmpDir" 0 "Removing tmp directory" + rlPhaseEnd +rlJournalPrintText +rlJournalEnd