From badf683b0aa693de9b1a7c1634ad20665463c503 Mon Sep 17 00:00:00 2001 From: Denys Vlasenko Date: Sat, 22 Dec 2018 18:04:08 +0100 Subject: dc: unbreak interactive mode - was trying to get next tokens instead of executing function old new delta zbc_program_read - 268 +268 zdc_program_printStream - 146 +146 zbc_program_exec 4046 4182 +136 zdc_program_execStr 472 512 +40 zdc_parse_exprs_until_eof - 26 +26 zbc_vm_process 740 765 +25 zbc_lex_next 2225 2240 +15 zdc_parse_expr 569 535 -34 zbc_program_pushArray 147 - -147 zdc_program_asciify 370 - -370 ------------------------------------------------------------------------------ (add/remove: 3/2 grow/shrink: 4/1 up/down: 656/-551) Total: 105 bytes Signed-off-by: Denys Vlasenko --- testsuite/dc.tests | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'testsuite') diff --git a/testsuite/dc.tests b/testsuite/dc.tests index 8edfa07ca..cb2dcbc23 100755 --- a/testsuite/dc.tests +++ b/testsuite/dc.tests @@ -41,6 +41,21 @@ testing "dc complex without spaces (multiple args)" \ "16\n" \ "" "" +testing "dc '>a' (conditional execute string) 1" \ + "dc" \ + "1\n9\n" \ + "" "[1p]sa [2p]sb 1 2>a\n9p" + +testing "dc '>a' (conditional execute string) 2" \ + "dc" \ + "9\n" \ + "" "[1p]sa [2p]sb 2 1>a\n9p" + +testing "dc '>aeb' (conditional execute string with else)" \ + "dc" \ + "2\n9\n" \ + "" "[1p]sa [2p]sb 2 1>aeb\n9p" + for f in dc_*.dc; do r="`basename "$f" .dc`_results.txt" test -f "$r" || continue -- cgit v1.2.3