diff options
| author | Andrew Reynolds <andrew.j.reynolds@gmail.com> | 2019-11-06 10:00:26 -0600 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-11-06 10:00:26 -0600 |
| commit | 3300313623113400c893e3258c23e7e80a24d69a (patch) | |
| tree | ac8a1c3032888fd7412f360db45b378917d06d07 /test | |
| parent | 8c5d26598656416bda758664a6acc7e431f70278 (diff) | |
| parent | 52e71b709504ed06ced34962692a329f4c8282ce (diff) | |
Merge branch 'master' into fixRegNightliesfixRegNightlies
Diffstat (limited to 'test')
| -rw-r--r-- | test/regress/CMakeLists.txt | 1 | ||||
| -rw-r--r-- | test/regress/regress1/sygus/rec-fun-sygus.sy | 21 |
2 files changed, 22 insertions, 0 deletions
diff --git a/test/regress/CMakeLists.txt b/test/regress/CMakeLists.txt index 7765591f8..c98dd1be2 100644 --- a/test/regress/CMakeLists.txt +++ b/test/regress/CMakeLists.txt @@ -1736,6 +1736,7 @@ set(regress_1_tests regress1/sygus/qe.sy regress1/sygus/qf_abv.smt2 regress1/sygus/real-grammar.sy + regress1/sygus/rec-fun-sygus.sy regress1/sygus/re-concat.sy regress1/sygus/repair-const-rl.sy regress1/sygus/simple-regexp.sy diff --git a/test/regress/regress1/sygus/rec-fun-sygus.sy b/test/regress/regress1/sygus/rec-fun-sygus.sy new file mode 100644 index 000000000..13d4782d4 --- /dev/null +++ b/test/regress/regress1/sygus/rec-fun-sygus.sy @@ -0,0 +1,21 @@ +; EXPECT: unsat +; COMMAND-LINE: --sygus-out=status --sygus-rec-fun --lang=sygus2 + +(set-logic ALL) + +(declare-datatype List ((cons (head Int) (tail List)) (nil))) + +(define-fun-rec sum ((x List)) Int (ite ((_ is nil) x) 0 (+ (head x) (sum (tail x))))) +(define-fun-rec size ((x List)) Int (ite ((_ is nil) x) 0 (+ 1 (size (tail x))))) + +(synth-fun f ((x List)) Int + ((I Int) (L List)) + ((I Int ((+ I I) (sum L) (size L) 0 1)) + (L List (x)))) + +(constraint (= (f (cons 3 (cons 4 (cons 5 nil)))) 15)) +(constraint (= (f (cons 3 (cons (- 4) (cons 5 nil)))) 7)) +(constraint (= (f (cons 5 (cons 5 nil))) 12)) +(constraint (= (f (cons 0 (cons 0 (cons 0 (cons 0 (cons 0 (cons 0 nil))))))) 6)) +(constraint (= (f (cons (- 2) (cons 0 nil))) 0)) +(check-synth) |