commit: 20626169d0f88ed5bc9147a1c01fdd2c2ddf1d49
Author: Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
AuthorDate: Sat Mar 25 18:49:22 2017 +0000
Commit: Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
CommitDate: Sat Mar 25 19:07:56 2017 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=20626169
dev-haskell/hdbc-sqlite: drop unused files/
Package-Manager: Portage-2.3.5, Repoman-2.3.2
dev-haskell/hdbc-sqlite/files/TestTime.hs | 100 ------------------------------
1 file changed, 100 deletions(-)
diff --git a/dev-haskell/hdbc-sqlite/files/TestTime.hs
b/dev-haskell/hdbc-sqlite/files/TestTime.hs
deleted file mode 100644
index 5fd77da6105..00000000000
--- a/dev-haskell/hdbc-sqlite/files/TestTime.hs
+++ /dev/null
@@ -1,100 +0,0 @@
-module TestTime(tests) where
-import Test.HUnit
-import Database.HDBC
-import TestUtils
-import Control.Exception
-import Data.Time
-import Data.Time.LocalTime
-import Data.Time.Clock.POSIX
-import Data.Maybe
-import Data.Convertible
-import SpecificDB
-import System.Locale(defaultTimeLocale)
-import Database.HDBC.Locale (iso8601DateFormat)
-import qualified System.Time as ST
-
-instance Eq ZonedTime where
- a == b = zonedTimeToUTC a == zonedTimeToUTC b &&
- zonedTimeZone a == zonedTimeZone b
-
-testZonedTime :: ZonedTime
-testZonedTime = fromJust $ parseTime defaultTimeLocale (iso8601DateFormat
(Just "%T %z"))
- "1989-08-01 15:33:01 -0500"
-
-testZonedTimeFrac :: ZonedTime
-testZonedTimeFrac = fromJust $ parseTime defaultTimeLocale (iso8601DateFormat
(Just "%T%Q %z"))
- "1989-08-01 15:33:01.536 -0500"
-
-
-rowdata t = [[SqlInt32 100, toSql t, SqlNull]]
-
-testDTType inputdata convToSqlValue = dbTestCase $ \dbh ->
- do run dbh ("CREATE TABLE hdbctesttime (testid INTEGER PRIMARY KEY NOT
NULL, \
- \testvalue " ++ dateTimeTypeOfSqlValue value ++ ")") []
- finally (testIt dbh) (do commit dbh
- run dbh "DROP TABLE hdbctesttime" []
- commit dbh
- )
- where testIt dbh =
- do run dbh "INSERT INTO hdbctesttime (testid, testvalue) VALUES
(?, ?)"
- [iToSql 5, value]
- commit dbh
- r <- quickQuery' dbh "SELECT testid, testvalue FROM
hdbctesttime" []
- case r of
- [[testidsv, testvaluesv]] ->
- do assertEqual "testid" (5::Int) (fromSql testidsv)
- assertEqual "testvalue" inputdata (fromSql
testvaluesv)
- value = convToSqlValue inputdata
-
-mkTest label inputdata convfunc =
- TestLabel label (testDTType inputdata convfunc)
-
-tests = TestList $
- ((TestLabel "Non-frac" $ testIt testZonedTime) :
- if supportsFracTime then [TestLabel "Frac" $ testIt testZonedTimeFrac]
else [])
-
-testIt baseZonedTime =
- TestList [mkTest "Day" baseDay toSql,
- mkTest "TimeOfDay" baseTimeOfDay toSql,
- mkTest "ZonedTimeOfDay" baseZonedTimeOfDay toSql,
- mkTest "LocalTime" baseLocalTime toSql,
- mkTest "ZonedTime" baseZonedTime toSql,
- mkTest "UTCTime" baseUTCTime toSql,
- mkTest "DiffTime" baseDiffTime toSql,
- mkTest "POSIXTime" basePOSIXTime posixToSql,
- mkTest "ClockTime" baseClockTime toSql,
- mkTest "CalendarTime" baseCalendarTime toSql,
- mkTest "TimeDiff" baseTimeDiff toSql
- ]
- where
- baseDay :: Day
- baseDay = localDay baseLocalTime
-
- baseTimeOfDay :: TimeOfDay
- baseTimeOfDay = localTimeOfDay baseLocalTime
-
- baseZonedTimeOfDay :: (TimeOfDay, TimeZone)
- baseZonedTimeOfDay = fromSql (SqlZonedTime baseZonedTime)
-
- baseLocalTime :: LocalTime
- baseLocalTime = zonedTimeToLocalTime baseZonedTime
-
- baseUTCTime :: UTCTime
- baseUTCTime = convert baseZonedTime
-
- baseDiffTime :: NominalDiffTime
- baseDiffTime = basePOSIXTime
-
- basePOSIXTime :: POSIXTime
- basePOSIXTime = convert baseZonedTime
-
- baseTimeDiff :: ST.TimeDiff
- baseTimeDiff = convert baseDiffTime
-
- -- No fractional parts for these two
-
- baseClockTime :: ST.ClockTime
- baseClockTime = convert testZonedTime
-
- baseCalendarTime :: ST.CalendarTime
- baseCalendarTime = convert testZonedTime
