[Git][haskell-team/DHG_packages][master] uri-bytestring: fix testsuite

[Clint Adams]

Clint Adams pushed to branch master at Debian Haskell Group / DHG_packages


Commits:
25a83191 by Clint Adams at 2019-08-30T15:05:50Z
uri-bytestring: fix testsuite

- - - - -


3 changed files:

- p/haskell-uri-bytestring/debian/changelog
- + p/haskell-uri-bytestring/debian/patches/fix-testsuite
- + p/haskell-uri-bytestring/debian/patches/series


Changes:

=====================================
p/haskell-uri-bytestring/debian/changelog
=====================================
@@ -1,3 +1,9 @@
+haskell-uri-bytestring (0.3.2.1-2) unstable; urgency=medium
+
+  * Fix testsuite.
+
+ -- Clint Adams <clint at debian.org>  Thu, 29 Aug 2019 17:40:16 -0400
+
 haskell-uri-bytestring (0.3.2.1-1) unstable; urgency=medium
 
   * New upstream release


=====================================
p/haskell-uri-bytestring/debian/patches/fix-testsuite
=====================================
@@ -0,0 +1,50 @@
+--- a/test/URI/ByteString/Arbitrary.hs
++++ b/test/URI/ByteString/Arbitrary.hs
+@@ -23,28 +23,6 @@
+ -------------------------------------------------------------------------------
+ 
+ 
+--- this workaround can go away when
+--- <https://github.com/nick8325/quickcheck/pull/40> is merged.
+-sopArbitrary
+-  :: ( SOP.SListI (SOP.GCode b)
+-     , Generic b
+-     , SOP.GTo b
+-     , SOP.AllF SOP.SListI (SOP.GCode b)
+-     , SOP.AllF (SOP.All Arbitrary) (SOP.GCode b)
+-     )
+-  => Gen b
+-sopArbitrary = fmap SOP.gto sopArbitrary'
+-
+-
+-sopArbitrary'
+-  :: (SOP.SListI xs, SOP.AllF (SOP.All Arbitrary) xs, SOP.AllF SOP.SListI xs)
+-  => Gen (SOP.SOP SOP.I xs)
+-sopArbitrary' = oneof (map SOP.hsequence $ SOP.apInjs_POP $ SOP.hcpure p arbitrary)
+-  where
+-    p :: Proxy Arbitrary
+-    p = Proxy
+-
+-
+ instance Arbitrary UserInfo where
+   arbitrary = UserInfo <$> arbitrary
+                        <*> arbitrary
+@@ -103,10 +81,16 @@
+ 
+ 
+ instance Arbitrary SchemaError where
+-  arbitrary = sopArbitrary
++  arbitrary = elements [NonAlphaLeading, InvalidChars, MissingColon]
+   shrink = genericShrink
+ 
+ 
+ instance Arbitrary URIParseError where
+-  arbitrary = sopArbitrary
++  arbitrary = elements [ MalformedUserInfo
++                       , MalformedQuery
++                       , MalformedFragment
++                       , MalformedHost
++                       , MalformedPort
++                       , MalformedPath
++                       ]
+   shrink = genericShrink


=====================================
p/haskell-uri-bytestring/debian/patches/series
=====================================
@@ -0,0 +1 @@
+fix-testsuite



View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/commit/25a83191b40f2d7d3e25c1dba55b8ffd37433a35

-- 
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/commit/25a83191b40f2d7d3e25c1dba55b8ffd37433a35
You're receiving this email because of your account on salsa.debian.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/pkg-haskell-commits/attachments/20190830/f043defd/attachment-0001.html>