testInsertGet :: IO (Bool)
testInsertGet = do
    test <- mapM insertGet testData
    return $ and test
testInsertGet :: IO (Bool)
testInsertGet = do
    test <- mapM insertGet testData
    return $ and test
testInsertGet = do
    test <- mapM insertGet testData
    return $ and test