dc: fix testsuite
Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>
This commit is contained in:
parent
6d0be10aae
commit
a133137174
@ -248,6 +248,7 @@ int dc_main(int argc UNUSED_PARAM, char **argv)
|
|||||||
{
|
{
|
||||||
INIT_G();
|
INIT_G();
|
||||||
|
|
||||||
|
//TODO: fix this, should take: dc -eSCRIPT -fFILE FILE
|
||||||
argv++;
|
argv++;
|
||||||
if (!argv[0]) {
|
if (!argv[0]) {
|
||||||
/* take stuff from stdin if no args are given */
|
/* take stuff from stdin if no args are given */
|
||||||
|
@ -12,45 +12,33 @@ testing "dc basic syntax (stdin, multiple args)" \
|
|||||||
"" "10 20+p"
|
"" "10 20+p"
|
||||||
|
|
||||||
testing "dc basic syntax (argv, single arg)" \
|
testing "dc basic syntax (argv, single arg)" \
|
||||||
"dc '10 20+p'" \
|
"dc -e'10 20+p'" \
|
||||||
"30\n" \
|
"30\n" \
|
||||||
"" ""
|
"" ""
|
||||||
|
|
||||||
testing "dc basic syntax (argv, multiple args)" \
|
testing "dc basic syntax (argv, multiple args)" \
|
||||||
"dc 10 20+p" \
|
"dc -e10 -e20+p" \
|
||||||
"30\n" \
|
"30\n" \
|
||||||
"" ""
|
"" ""
|
||||||
|
|
||||||
testing "dc complex with spaces (single arg)" \
|
testing "dc complex with spaces (single arg)" \
|
||||||
"dc '8 8 * 2 2 + / p'" \
|
"dc -e'8 8 * 2 2 + / p'" \
|
||||||
"16\n" \
|
"16\n" \
|
||||||
"" ""
|
"" ""
|
||||||
|
|
||||||
testing "dc complex without spaces (single arg)" \
|
testing "dc complex without spaces (single arg)" \
|
||||||
"dc '8 8*2 2+/p'" \
|
"dc -e'8 8*2 2+/p'" \
|
||||||
"16\n" \
|
"16\n" \
|
||||||
"" ""
|
"" ""
|
||||||
|
|
||||||
testing "dc complex with spaces (multiple args)" \
|
testing "dc complex with spaces (multiple args)" \
|
||||||
"dc 8 8 \* 2 2 + / p" \
|
"dc -e8 -e8 -e\* -e2 -e2 -e+ -e/ -ep" \
|
||||||
"16\n" \
|
"16\n" \
|
||||||
"" ""
|
"" ""
|
||||||
|
|
||||||
testing "dc complex without spaces (multiple args)" \
|
testing "dc complex without spaces (multiple args)" \
|
||||||
"dc 8 8\*2 2+/p" \
|
"dc -e8 -e8\*2 -e2+/p" \
|
||||||
"16\n" \
|
"16\n" \
|
||||||
"" ""
|
"" ""
|
||||||
|
|
||||||
exit $FAILCOUNT
|
exit $FAILCOUNT
|
||||||
|
|
||||||
# we do not support arguments
|
|
||||||
testing "dc -e <exprs>" \
|
|
||||||
"dc -e '10 2+f'" \
|
|
||||||
"12\n" \
|
|
||||||
"" ""
|
|
||||||
|
|
||||||
testing "dc -f <exprs-from-given-file>" \
|
|
||||||
"dc -f input" \
|
|
||||||
"12\n" \
|
|
||||||
"10 2+f" ""
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user