add test cases

This commit is contained in:
CismonX 2020-03-15 04:31:20 +08:00
parent c47c3e36c7
commit 0934bf917d
No known key found for this signature in database
GPG Key ID: 315D6652268C5007
8 changed files with 175 additions and 0 deletions

4
.gitignore vendored
View File

@ -32,5 +32,9 @@ aclocal.m4
u6ac
u6a
# DejaGnu
*.sum
site.*
# others
*.log

View File

@ -10,6 +10,14 @@ compiler:
- gcc
- clang
addons:
apt:
packages:
- dejagnu
homebrew:
packages:
- dejagnu
branches:
only:
- master

View File

@ -18,6 +18,8 @@ Building:
```bash
# (If not already) Install the required build tools.
sudo apt install build-essential automake
# (If you want to run tests) Install DejaGnu.
sudo apt install dejagnu
# Generate configuration script.
autoreconf --install
# Execute configuration script with desired options.

View File

@ -1,4 +1,11 @@
AUTOMAKE_OPTIONS = dejagnu
bin_PROGRAMS = u6ac u6a
u6ac_SOURCES = logging.c lexer.c parser.c codegen.c u6ac.c
u6a_SOURCES = logging.c vm_stack.c vm_pool.c runtime.c u6a.c
TEST_DIR = ${srcdir}/../tests
DEJAGNU_GLOBALS = U6A_BIN=${srcdir}/u6a U6AC_BIN=${srcdir}/u6ac U6A_RUN=${TEST_DIR}/u6a_run
RUNTESTDEFAULTFLAGS = --srcdir=${TEST_DIR} --tool default ${DEJAGNU_GLOBALS}
EXTRA_DEJAGNU_SITE_CONFIG = ../tests/init.exp

41
tests/default/cat.exp Normal file
View File

@ -0,0 +1,41 @@
##
## cat.exp - Test whether a "cat" program works on this u6a build
##
## Copyright (C) 2020 CismonX <admin@cismon.net>
##
## 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
## the Free Software Foundation, either version 3 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, see <https://www.gnu.org/licenses/>.
##
set tool "default"
set timeout 1
set rand_str_list { }
for { set i 100 } { $i < 200 } { incr i } {
lappend rand_str_list [ exec head -c $i /dev/urandom | base64 -w 0 ]
}
u6a_run "```s`d`@|i`ci" - - 1
for { set i 0 } { $i < [ llength $rand_str_list ] } { incr i } {
set rand_str [ lindex $rand_str_list $i ]
send -- "$rand_str\r"
expect {
$rand_str {
pass "case $i ok!"
}
default {
fail "case $i fails!"
}
}
}
u6a_stop 1

43
tests/default/square.exp Normal file
View File

@ -0,0 +1,43 @@
##
## square.exp - Test whether a "square" program works on this u6a build
##
## Copyright (C) 2020 CismonX <admin@cismon.net>
##
## 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
## the Free Software Foundation, either version 3 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, see <https://www.gnu.org/licenses/>.
##
set tool "default"
set timeout 1
# The following code is a modified version of ftp://ftp.madore.org/pub/madore/unlambda/CUAN/Square.unl
# Written by Panu Kalliokoski <Panu.Kalliokoski@nokia.com>
set src_stub "`r```si`k``s``s`kk`si``s``si`k``s`k`s`k``sk``sr`k.oir``si%s`k`ki"
set src_segment ""
set expected "\n"
for { set i 0 } { $i < 20 } { incr i } {
set src_segment "$src_segment``si"
set line [ string repeat "o" [ expr $i + 1 ] ]
set square [ string repeat "$line\n" [ expr $i + 1 ] ]
set expected "$expected\n$square"
u6a_run [ format $src_stub $src_segment ] - - 0
expect {
$expected {
pass "case $i ok!"
}
default {
fail "case $i fails!"
}
}
u6a_stop 0
}

45
tests/init.exp Normal file
View File

@ -0,0 +1,45 @@
##
## init.exp - u6a test init script
##
## Copyright (C) 2020 CismonX <admin@cismon.net>
##
## 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
## the Free Software Foundation, either version 3 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, see <https://www.gnu.org/licenses/>.
##
proc u6a_run { src_code u6ac_opts u6a_opts has_input } {
global U6A_BIN U6AC_BIN U6A_RUN
set u6ac "$U6AC_BIN $u6ac_opts"
set u6a "$U6A_BIN $u6a_opts"
set run_cmd [ list $U6A_RUN $u6ac $u6a $src_code ]
if $has_input {
lappend run_cmd -
set stty_init -echo
} else {
set stty_init { raw -echo }
}
global spawn_id
spawn {*}$run_cmd
}
proc u6a_stop { send_eof } {
global spawn_id
if $send_eof {
send \x04
expect eof
}
catch wait result
if [ set exit_code [ lindex $result 3 ] ] {
fail "program exited with code $exit_code"
}
}

25
tests/u6a_run Executable file
View File

@ -0,0 +1,25 @@
#!/usr/bin/env bash
##
## u6a_run - helper script for running tests for u6a
##
## Copyright (C) 2020 CismonX <admin@cismon.net>
##
## 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
## the Free Software Foundation, either version 3 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, see <https://www.gnu.org/licenses/>.
##
U6A_BYTECODE=`echo $3 | $1 - | base64 -w 0`
if [ -z $U6A_BYTECODE ]; then exit -1; fi
cat <(echo $U6A_BYTECODE | base64 -d) <(test $4 && cat $4) | $2 -
# Usage: ./u6a_run /path/to/u6ac/bin /path/to/u6a/bin source_code [input]