Test cases for #682

Fixes #682

SBVTestSuite/GoldFiles/arrayGetValTest1.gold

@@ -0,0 +1,44 @@
+** Calling: z3 -nw -in -smt2
+[GOOD] ; Automatically generated by SBV. Do not edit.
+[GOOD] (set-option :print-success true)
+[GOOD] (set-option :global-declarations true)
+[GOOD] (set-option :smtlib2_compliant true)
+[GOOD] (set-option :diagnostic-output-channel "stdout")
+[GOOD] (set-option :produce-models true)
+[GOOD] (set-logic ALL) ; has unbounded values, using catch-all.
+[GOOD] ; --- uninterpreted sorts ---
+[GOOD] ; --- tuples ---
+[GOOD] ; --- sums ---
+[GOOD] ; --- literal constants ---
+[GOOD] ; --- top level inputs ---
+[GOOD] ; --- constant tables ---
+[GOOD] ; --- non-constant tables ---
+[GOOD] ; --- arrays ---
+[GOOD] (declare-fun array_0 () (Array Int Int))
+[GOOD] ; --- uninterpreted constants ---
+[GOOD] ; --- user defined functions ---
+[GOOD] ; --- assignments ---
+[GOOD] ; --- arrayDelayeds ---
+[GOOD] ; --- arraySetups ---
+[GOOD] (define-fun array_0_initializer () Bool true) ; no initialization needed
+[GOOD] ; --- delayedEqualities ---
+[GOOD] ; --- formula ---
+[SEND] (check-sat)
+[RECV] sat
+[GOOD] (define-fun s0 () Int 1)
+[GOOD] (define-fun s1 () Int 2)
+[GOOD] (declare-fun array_1 () (Array Int Int))
+[GOOD] (define-fun array_1_initializer_0 () Bool (= array_1 (store array_0 s0 s1)))
+[GOOD] (define-fun s2 () Int (select array_1 s0))
+[GOOD] (define-fun array_1_initializer () Bool array_1_initializer_0)
+[GOOD] (assert array_1_initializer)
+[NOTE] getValue: There are outstanding asserts. Ensuring we're still sat.
+[SEND] (check-sat)
+[RECV] sat
+[SEND] (get-value (s2))
+[RECV] ((s2 2))
+*** Solver   : Z3
+*** Exit code: ExitSuccess
+
+ FINAL:2
+DONE!

SBVTestSuite/SBVTest.hs

@@ -98,6 +98,7 @@ import qualified TestSuite.Puzzles.PowerSet
 import qualified TestSuite.Puzzles.Sudoku
 import qualified TestSuite.Puzzles.Temperature
 import qualified TestSuite.Puzzles.U2Bridge
+import qualified TestSuite.Queries.ArrayGetVal
 import qualified TestSuite.Queries.BasicQuery
 import qualified TestSuite.Queries.BadOption
 import qualified TestSuite.Queries.DSat
@@ -212,6 +213,7 @@ main = defaultMain $ testGroup "SBV" [
                       , TestSuite.Puzzles.Temperature.tests
                       , TestSuite.Puzzles.U2Bridge.tests
                       , TestSuite.Queries.BadOption.tests
+                      , TestSuite.Queries.ArrayGetVal.tests
                       , TestSuite.Queries.BasicQuery.tests
                       , TestSuite.Queries.DSat.tests
                       , TestSuite.Queries.Interpolants.tests

SBVTestSuite/TestSuite/Queries/ArrayGetVal.hs

@@ -0,0 +1,37 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module    : TestSuite.Queries.ArrayGetVal
+-- Copyright : (c) Levent Erkok
+-- License   : BSD3
+-- Maintainer: erkokl@gmail.com
+-- Stability : experimental
+--
+-- Making sure array get-value works, since we might send extra asserts after
+-- check-sat.
+-----------------------------------------------------------------------------
+
+{-# LANGUAGE ScopedTypeVariables #-}
+
+{-# OPTIONS_GHC -Wall -Werror #-}
+
+module TestSuite.Queries.ArrayGetVal (tests)  where
+
+import Data.SBV.Control
+
+import Utils.SBVTestFramework
+
+-- Test suite
+tests :: TestTree
+tests =
+  testGroup "Basics.ArrayGetVal"
+    [ goldenCapturedIO "arrayGetValTest1" testQuery
+    ]
+
+testQuery :: FilePath -> IO ()
+testQuery rf = do r <- runSMTWith defaultSMTCfg{verbose=True, redirectVerbose=Just rf} t1
+                  appendFile rf ("\n FINAL:" ++ show r ++ "\nDONE!\n")
+
+t1 :: Symbolic Integer
+t1 = do a :: SArray Integer Integer <- newArray "a" Nothing
+        query $ do ensureSat
+                   getValue (readArray (writeArray a 1 2) 1)

sbv.cabal

@@ -360,6 +360,7 @@ Test-Suite SBVTest
                   , TestSuite.Puzzles.Temperature
                   , TestSuite.Puzzles.U2Bridge
                   , TestSuite.Queries.BasicQuery
+                  , TestSuite.Queries.ArrayGetVal
                   , TestSuite.Queries.BadOption
                   , TestSuite.Queries.DSat
                   , TestSuite.Queries.Enums