-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | testsuit of protocol-radius haskell package -- -- This package provides testsuit of protocol-radius haskell package. @package protocol-radius-test @version 0.0.1.0 module Test.Data.Radius.Arbitraries genPacket :: Arbitrary a => (a -> Put) -> Gen (Packet [a]) instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Packet.Code instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Scalar.Bin128 instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Attribute.Number.Number instance Test.QuickCheck.Arbitrary.Arbitrary v => Test.QuickCheck.Arbitrary.Arbitrary (Data.Radius.Attribute.Pair.NumberAbstract v) instance Test.QuickCheck.Arbitrary.Arbitrary v => Test.QuickCheck.Arbitrary.Arbitrary (Data.Radius.Attribute.Pair.Attribute' v) instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Scalar.AtText instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Scalar.AtString instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Scalar.AtInteger instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Scalar.AtIpV4 instance Data.Radius.Attribute.Pair.TypedNumberSets v => Test.QuickCheck.Arbitrary.Arbitrary (Data.Radius.Attribute.Pair.Attribute v Data.Radius.Scalar.AtText) instance Data.Radius.Attribute.Pair.TypedNumberSets v => Test.QuickCheck.Arbitrary.Arbitrary (Data.Radius.Attribute.Pair.Attribute v Data.Radius.Scalar.AtString) instance Data.Radius.Attribute.Pair.TypedNumberSets v => Test.QuickCheck.Arbitrary.Arbitrary (Data.Radius.Attribute.Pair.Attribute v Data.Radius.Scalar.AtInteger) instance Test.QuickCheck.Arbitrary.Arbitrary Data.Radius.Packet.Header module Test.Data.Radius.Iso tests :: [Test] isoAttribute' :: Eq a => Get (Attribute' a) -> (a -> ByteString -> Put) -> Attribute' a -> Bool isoPacket :: Eq a => Get (Attribute' a) -> (a -> ByteString -> Put) -> Packet [Attribute' a] -> Bool isoAttributeText :: (Ord v, TypedNumberSets v) => Get (Attribute' v) -> (v -> ByteString -> Put) -> Attribute v AtText -> Bool isoAttributeString :: (Ord v, TypedNumberSets v) => Get (Attribute' v) -> (v -> ByteString -> Put) -> Attribute v AtString -> Bool isoAttributeInteger :: (Ord v, TypedNumberSets v) => Get (Attribute' v) -> (v -> ByteString -> Put) -> Attribute v AtInteger -> Bool