module BoundVarsTestHelper where

insertSql :: String -> String -> String
insertSql idVar valVar =
    "INSERT INTO boundvars (id, val) VALUES ( ?" ++ idVar ++ ", ?" ++ valVar ++ " )"

selectSql :: String -> String -> String
selectSql idVar valVar =
    "SELECT id, val FROM boundvars where id = ?" ++ idVar ++ " AND val = ?" ++ valVar

clearBvTable :: String
clearBvTable = "DELETE FROM boundvars"