Permalink
Browse files

Various updates

  • Loading branch information...
1 parent e5b06e3 commit eb9ffb033a353f5f449e022a6898d5b3cf6b666b @jgoerzen jgoerzen committed Apr 23, 2010
Showing with 6 additions and 5 deletions.
  1. +1 −1 HDBC.cabal
  2. +1 −1 testsrc/TestInfrastructure.hs
  3. +4 −3 testsrc/TestSqlValue.hs
View
@@ -56,7 +56,7 @@ library
Executable runtests
if flag(buildtests)
Buildable: True
- Build-Depends: HUnit, QuickCheck, testpack
+ Build-Depends: HUnit, QuickCheck (>= 2.0), testpack (>= 2.0)
if flag(splitBase)
Build-Depends: base>=3 && <5, old-time, time>=1.1.2.4 && <=1.1.4, bytestring, containers, old-locale
@@ -14,4 +14,4 @@ q :: QC.Testable a => String -> a -> HU.Test
q = qc2hu 250
qverbose :: QC.Testable a => String -> a -> HU.Test
-qverbose = qc2huVerbose 250
+qverbose = qc2hu 250
@@ -8,7 +8,8 @@ For license and copyright information, see the file COPYRIGHT
module TestSqlValue where
import TestInfrastructure
-import Test.QuickCheck
+import Test.QuickCheck hiding (Result)
+import Test.QuickCheck.Property (Result)
import Test.QuickCheck.Tools
import qualified Test.HUnit as HU
import Database.HDBC
@@ -22,11 +23,11 @@ instance Eq ZonedTime where
zonedTimeZone a == zonedTimeZone b
toSql_Int :: Int -> Result
-toSql_Int x = toSql x @?= SqlInt32 (fromIntegral x)
+toSql_Int x = toSql x @?= SqlInt64 (fromIntegral x)
fromSql_Int :: Int -> Result
fromSql_Int x =
- Right x @=? safeFromSql (SqlInt32 (fromIntegral x))
+ Right x @=? safeFromSql (SqlInt64 (fromIntegral x))
testZonedTimeStr = "1989-08-01 15:33:01 -0500"
testZonedTime :: ZonedTime

0 comments on commit eb9ffb0

Please sign in to comment.