haskell-base64-bytestring: New upstream version 1.0.0.0.

3 files changed, 6 insertions, 122 deletions

diff --git a/p/haskell-base64-bytestring/debian/changelog b/p/haskell-base64-bytestring/debian/changelog
index 034c03c8c..c53dd40f4 100644
--- a/p/haskell-base64-bytestring/debian/changelog
+++ b/p/haskell-base64-bytestring/debian/changelog
@@ -1,10 +1,14 @@
-haskell-base64-bytestring (0.1.1.1-3) UNRELEASED; urgency=low
+haskell-base64-bytestring (1.0.0.0-1) experimental; urgency=low
 
+  [ Joachim Breitner ]
   * Depend on haskell-devscripts 0.8.13 to ensure this packages is built
     against experimental
   * Bump standards version, no change
 
- -- Joachim Breitner <nomeata@debian.org>  Sat, 13 Oct 2012 14:07:28 +0200
+  [ Clint Adams ]
+  * New upstream version.
+
+ -- Clint Adams <clint@debian.org>  Fri, 19 Oct 2012 23:23:14 -0400
 
 haskell-base64-bytestring (0.1.1.1-2) unstable; urgency=low
 
diff --git a/p/haskell-base64-bytestring/debian/patches/missing-testsuite.diff b/p/haskell-base64-bytestring/debian/patches/missing-testsuite.diff
deleted file mode 100644
index ded0c155f..000000000
--- a/p/haskell-base64-bytestring/debian/patches/missing-testsuite.diff
+++ /dev/null
@@ -1,119 +0,0 @@
---- /dev/null
-+++ b/tests/Tests.hs
-@@ -0,0 +1,116 @@
-+{-# LANGUAGE OverloadedStrings #-}
-+{-# OPTIONS_GHC -fno-warn-orphans #-}
-+
-+module Main (main) where
-+
-+import Test.Framework (Test, defaultMain, testGroup)
-+import Test.Framework.Providers.QuickCheck2 (testProperty)
-+import Test.Framework.Providers.HUnit (testCase)
-+
-+import Test.QuickCheck (Arbitrary(..))
-+
-+import Control.Monad (liftM)
-+import qualified Data.ByteString.Base64 as Base64
-+import qualified Data.ByteString.Base64.URL as Base64URL
-+import Data.ByteString (ByteString)
-+import Data.ByteString.Char8 ()
-+import qualified Data.ByteString as B
-+import Test.HUnit hiding (Test)
-+
-+
-+main :: IO ()
-+main = defaultMain tests
-+
-+tests :: [Test]
-+tests = [
-+    testGroup "Base64" [
-+        testProperty "decodeEncode" $
-+          genericDecodeEncode Base64.encode Base64.decode
-+      , testProperty "decodeEncode Lenient" $
-+          genericDecodeEncode Base64.encode
-+                              (liftM Right Base64.decodeLenient)
-+      , testGroup "base64-string tests" base64_string_tests
-+    ]
-+  , testGroup "Base64URL" [
-+        testProperty "decodeEncode" $
-+          genericDecodeEncode Base64URL.encode Base64URL.decode
-+      , testProperty "decodeEncode Lenient" $
-+          genericDecodeEncode Base64URL.encode
-+                              (liftM Right Base64URL.decodeLenient)
-+      , testGroup "base64-string tests" base64url_string_tests
-+    ]
-+  ]
-+
-+instance Arbitrary ByteString where
-+  arbitrary = liftM B.pack arbitrary
-+
-+-- | Decoding an encoded sintrg should produce the original string.
-+genericDecodeEncode :: (ByteString -> ByteString)
-+                    -> (ByteString -> Either String ByteString)
-+                    -> ByteString -> Bool
-+genericDecodeEncode enc dec x = case dec (enc x) of
-+                                  Left  _  -> False
-+                                  Right x' -> x == x'
-+
-+--
-+-- Unit tests from base64-string
-+-- Copyright (c) Ian Lynagh, 2005, 2007.
-+--
-+
-+base64_string_tests :: [Test]
-+base64_string_tests =
-+  base64_string_test Base64.encode Base64.decode testData ++
-+  base64_string_test Base64.encode decodeURL testData
-+  where decodeURL :: ByteString -> Either String ByteString
-+        decodeURL = liftM Right Base64.decodeLenient
-+        testData :: [(ByteString, ByteString)]
-+        testData = [("",                "")
-+                   ,("\0",              "AA==")
-+                   ,("\255",            "/w==")
-+                   ,("E",               "RQ==")
-+                   ,("Ex",              "RXg=")
-+                   ,("Exa",             "RXhh")
-+                   ,("Exam",            "RXhhbQ==")
-+                   ,("Examp",           "RXhhbXA=")
-+                   ,("Exampl",          "RXhhbXBs")
-+                   ,("Example",         "RXhhbXBsZQ==")
-+                   ,("Ex\0am\254ple",   "RXgAYW3+cGxl")
-+                   ,("Ex\0am\255ple",   "RXgAYW3/cGxl")
-+                   ]
-+
-+-- | Same as the base64_string_tests but using the alternative alphabet
-+base64url_string_tests :: [Test]
-+base64url_string_tests =
-+  base64_string_test Base64URL.encode Base64URL.decode testData ++
-+  base64_string_test Base64URL.encode decodeURL testData
-+  where decodeURL :: ByteString -> Either String ByteString
-+        decodeURL = liftM Right Base64URL.decodeLenient
-+        testData :: [(ByteString, ByteString)]
-+        testData = [("",                "")
-+                   ,("\0",              "AA==")
-+                   ,("\255",            "_w==")
-+                   ,("E",               "RQ==")
-+                   ,("Ex",              "RXg=")
-+                   ,("Exa",             "RXhh")
-+                   ,("Exam",            "RXhhbQ==")
-+                   ,("Examp",           "RXhhbXA=")
-+                   ,("Exampl",          "RXhhbXBs")
-+                   ,("Example",         "RXhhbXBsZQ==")
-+                   ,("Ex\0am\254ple",   "RXgAYW3-cGxl")
-+                   ,("Ex\0am\255ple",   "RXgAYW3_cGxl")
-+                   ]
-+
-+-- | Generic test given encod enad decode funstions and a
-+-- list of (plain, encoded) pairs
-+base64_string_test :: (ByteString -> ByteString)
-+                   -> (ByteString -> Either String ByteString)
-+                   -> [(ByteString, ByteString)] -> [Test]
-+base64_string_test enc dec testData = concat
-+      [ [ testCase ("base64-string: Encode " ++ show plain)
-+                   (encoded_plain @?= encoded),
-+          testCase ("base64-string: Decode " ++ show plain)
-+                   (decoded_encoded @?= Right plain) ]
-+      | (plain, encoded) <- testData,
-+        let encoded_plain = enc plain
-+            decoded_encoded = dec encoded
-+      ]
diff --git a/p/haskell-base64-bytestring/debian/patches/series b/p/haskell-base64-bytestring/debian/patches/series
index fbff526d2..4ac7ef72c 100644
--- a/p/haskell-base64-bytestring/debian/patches/series
+++ b/p/haskell-base64-bytestring/debian/patches/series
@@ -1,2 +1 @@
-missing-testsuite.diff
 no-threaded-testsuite