Skip to content

Commit

Permalink
Drop tests that are not supported by solvers
Browse files Browse the repository at this point in the history
  • Loading branch information
LeventErkok committed Nov 22, 2023
1 parent 0903b64 commit 0fe1232
Show file tree
Hide file tree
Showing 4 changed files with 0 additions and 58 deletions.
6 changes: 0 additions & 6 deletions Data/SBV/List.hs
Original file line number Diff line number Diff line change
Expand Up @@ -157,9 +157,6 @@ listToListAt s offset = subList s offset 1
--
-- >>> prove $ \i -> i `inRange` (0, 4) .=> [1,1,1,1,1] `elemAt` i .== (1::SInteger)
-- Q.E.D.
--
-- ->>> prove $ \(l :: SList Integer) i e -> i `inRange` (0, length l - 1) .&& l `elemAt` i .== e .=> indexOf l (singleton e) .<= i
-- Q.E.D.
elemAt :: SymVal a => SList a -> SInteger -> SBV a
elemAt l i
| Just xs <- unliteral l, Just ci <- unliteral i, ci >= 0, ci < genericLength xs, let x = xs `genericIndex` ci
Expand Down Expand Up @@ -330,9 +327,6 @@ replace l src dst
-- | @`indexOf` l sub@. Retrieves first position of @sub@ in @l@, @-1@ if there are no occurrences.
-- Equivalent to @`offsetIndexOf` l sub 0@.
--
-- ->>> prove $ \(l :: SList Int8) i -> i .> 0 .&& i .< length l .=> indexOf l (subList l i 1) .<= i
-- Q.E.D.
--
-- >>> prove $ \(l1 :: SList Word16) l2 -> length l2 .> length l1 .=> indexOf l1 l2 .== -1
-- Q.E.D.
indexOf :: (Eq a, SymVal a) => SList a -> SList a -> SInteger
Expand Down
6 changes: 0 additions & 6 deletions Data/SBV/String.hs
Original file line number Diff line number Diff line change
Expand Up @@ -145,9 +145,6 @@ strToStrAt s offset = subStr s offset 1
--
-- >>> prove $ \i -> i .>= 0 .&& i .<= 4 .=> "AAAAA" `strToCharAt` i .== literal 'A'
-- Q.E.D.
--
-- ->>> prove $ \s i c -> i `inRange` (0, length s - 1) .&& s `strToCharAt` i .== c .=> indexOf s (singleton c) .<= i
-- Q.E.D.
strToCharAt :: SString -> SInteger -> SChar
strToCharAt s i
| Just cs <- unliteral s, Just ci <- unliteral i, ci >= 0, ci < genericLength cs, let c = C.ord (cs `genericIndex` ci)
Expand Down Expand Up @@ -314,9 +311,6 @@ replace s src dst
-- | @`indexOf` s sub@. Retrieves first position of @sub@ in @s@, @-1@ if there are no occurrences.
-- Equivalent to @`offsetIndexOf` s sub 0@.
--
-- ->>> prove $ \s i -> i .> 0 .&& i .< length s .=> indexOf s (subStr s i 1) .<= i
-- Q.E.D.
--
-- >>> prove $ \s1 s2 -> length s2 .> length s1 .=> indexOf s1 s2 .== -1
-- Q.E.D.
indexOf :: SString -> SString -> SInteger
Expand Down
45 changes: 0 additions & 45 deletions Documentation/SBV/Examples/Lists/Nested.hs

This file was deleted.

1 change: 0 additions & 1 deletion sbv.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -138,7 +138,6 @@ Library
, Documentation.SBV.Examples.Existentials.CRCPolynomial
, Documentation.SBV.Examples.Existentials.Diophantine
, Documentation.SBV.Examples.Lists.Fibonacci
, Documentation.SBV.Examples.Lists.Nested
, Documentation.SBV.Examples.Lists.BoundedMutex
, Documentation.SBV.Examples.Lists.CountOutAndTransfer
, Documentation.SBV.Examples.Misc.Definitions
Expand Down

0 comments on commit 0fe1232

Please sign in to comment.