diff options
Diffstat (limited to 'tests/smoke')
| -rw-r--r-- | tests/smoke/Makefile | 63 | ||||
| -rw-r--r-- | tests/smoke/PURPOSE | 5 | ||||
| -rw-r--r-- | tests/smoke/fact | 6 | ||||
| -rw-r--r-- | tests/smoke/runtest.sh | 68 |
4 files changed, 142 insertions, 0 deletions
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 <psplicha@redhat.com> +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# 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 <psplicha@redhat.com>" > $(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 <psplicha@redhat.com> + +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 <psplicha@redhat.com> +# +# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# +# 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 |