Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/include/packages/QuickCheck/Test/QuickCheck.hi

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


interface Test.QuickCheck where {
infix   1 `classify`;
infixr  0 ==>;

{-# NEED #-}
instance Data.Typeable.Typeable1 Ratio.Ratio;

{-# NEED #-}
instance Data.Typeable.Typeable1 NHC.Internal.IO;

{-# NEED #-}
instance (Data.Typeable.Typeable a) => Data.Typeable.Typeable (Ratio.Ratio a);

{-# NEED #-}
instance (Data.Typeable.Typeable a) => Data.Typeable.Typeable (NHC.Internal.IO a);

{-# NEED #-}
instance Testable Property;

{-# NEED #-}
instance Testable Result;

{-# NEED #-}
instance Testable Prelude.Bool;

{-# NEED #-}
instance Testable ();

{-# NEED #-}
instance (Arbitrary a,Prelude.Show a,Testable b) => Testable (a -> b);

{-# NEED #-}
instance (Arbitrary a,Arbitrary b,Arbitrary c) => Arbitrary (a,b,c);

{-# NEED #-}
instance (Arbitrary a,Arbitrary b,Arbitrary c,Arbitrary d) => Arbitrary (a,b,c,d);

{-# NEED #-}
instance (Arbitrary a) => Arbitrary (Prelude.Maybe a);

{-# NEED #-}
instance Arbitrary Prelude.Integer;

{-# NEED #-}
instance Arbitrary Prelude.Float;

{-# NEED #-}
instance Arbitrary Prelude.Bool;

{-# NEED #-}
instance Arbitrary Prelude.Double;

{-# NEED #-}
instance (Arbitrary a,Arbitrary b) => Arbitrary (Prelude.Either a b);

{-# NEED #-}
instance Arbitrary ();

{-# NEED #-}
instance Arbitrary Prelude.Int;

{-# NEED #-}
instance (Arbitrary a) => Arbitrary [a];

{-# NEED #-}
instance (Arbitrary a,Arbitrary b) => Arbitrary (a,b);

{-# NEED #-}
instance (Arbitrary a,Arbitrary b) => Arbitrary (a -> b);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Fractional (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.RealFrac (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Num (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Real (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Enum (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Ord (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Eq (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Read a,Prelude.Integral a) => Prelude.Read (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Read System.Random.StdGen;

{-# NEED #-}
instance Prelude.Functor Gen;

{-# NEED #-}
instance Prelude.Functor NHC.Internal.IO;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Show (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Show System.Random.StdGen;

{-# NEED #-}
instance (Prelude.Show a) => Prelude.Show (NHC.Internal.IO a);

{-# NEED #-}
instance System.Random.RandomGen System.Random.StdGen;

{-# NEED #-}
instance System.Random.Random Prelude.Char;

{-# NEED #-}
instance System.Random.Random Prelude.Integer;

{-# NEED #-}
instance System.Random.Random Prelude.Float;

{-# NEED #-}
instance System.Random.Random Prelude.Bool;

{-# NEED #-}
instance System.Random.Random Prelude.Double;

{-# NEED #-}
instance System.Random.Random Prelude.Int;

{-# NEED #-}
instance Prelude.Monad Gen;

{-# NEED #-}
instance Prelude.Monad NHC.Internal.IO;
interface Data.Typeable
{-# NEED #-}
class Typeable a;
interface Ratio
{-# NEED Ratio #-}
data (Prelude.Integral a) => Ratio a;
interface ! Test.QuickCheck
{-# NEED check #-}
check{-# 2 #-}::(Testable a) => (Config -> (a -> (NHC.Internal.IO ())));

{-# NEED verboseCheck #-}
verboseCheck{-# 0 #-}::(Testable a) => (a -> (NHC.Internal.IO ()));

{-# NEED quickCheck #-}
quickCheck{-# 0 #-}::(Testable a) => (a -> (NHC.Internal.IO ()));

{-# NEED test #-}
test{-# 0 #-}::(Testable a) => (a -> (NHC.Internal.IO ()));
interface NHC.Internal
{-# NEED IO #-}
newtype {-#  #-} IO a;

{-# NEED World #-}
data World;
interface ! Test.QuickCheck
{-# NEED defaultConfig #-}
defaultConfig{-# 0 #-}::Config;

{-# NEED {Config Config configMaxTest configMaxFail configSize configEvery} #-}
data Config
  = Config {configMaxTest :: Prelude.Int} {configMaxFail :: Prelude.Int} {configSize :: (Prelude.Int -> Prelude.Int)} {configEvery :: (Prelude.Int -> ([Prelude.String] -> Prelude.String))};

{-# NEED collect #-}
collect{-# 1 #-}::(Prelude.Show a,Testable b) => (a -> (b -> Property));

{-# NEED trivial #-}
trivial{-# 0 #-}::(Testable a) => (Prelude.Bool -> (a -> Property));

{-# NEED classify #-}
classify{-# 2 #-}::(Testable a) => (Prelude.Bool -> (Prelude.String -> (a -> Property)));

{-# NEED label #-}
label{-# 2 #-}::(Testable a) => (Prelude.String -> (a -> Property));

{-# NEED (==>) #-}
(==>){-# 2 #-}::(Testable a) => (Prelude.Bool -> (a -> Property));

{-# NEED forAll #-}
forAll{-# 2 #-}::(Prelude.Show a,Testable b) => ((Gen a) -> ((a -> b) -> Property));

{-# NEED evaluate #-}
evaluate{-# 1 #-}::(Testable a) => (a -> (Gen Result));

{-# NEED {Testable property} #-}
class Testable a where {
  property{-# 1 #-}::(a -> Property);
};

{-# NEED {Property} #-}
newtype {-#  #-} Property
  = Prop (Gen Result);

{-# NEED {Result Result ok stamp arguments} #-}
data Result
  = Result {ok :: (Prelude.Maybe Prelude.Bool)} {stamp :: [Prelude.String]} {arguments :: [Prelude.String]};

{-# NEED four #-}
four{-# 1 #-}::(Prelude.Monad a) => ((a b) -> (a (b,b,b,b)));

{-# NEED three #-}
three{-# 1 #-}::(Prelude.Monad a) => ((a b) -> (a (b,b,b)));

{-# NEED two #-}
two{-# 1 #-}::(Prelude.Monad a) => ((a b) -> (a (b,b)));

{-# NEED frequency #-}
frequency{-# 1 #-}::([(Prelude.Int,(Gen a))] -> (Gen a));

{-# NEED oneof #-}
oneof{-# 1 #-}::([(Gen a)] -> (Gen a));

{-# NEED vector #-}
vector{-# 1 #-}::(Arbitrary a) => (Prelude.Int -> (Gen [a]));

{-# NEED {Arbitrary arbitrary coarbitrary} #-}
class Arbitrary a where {
  arbitrary{-# 0 #-}::(Gen a);
  coarbitrary{-# 2 #-}::(a -> ((Gen b) -> (Gen b)));
};

{-# NEED elements #-}
elements{-# 1 #-}::([a] -> (Gen a));

{-# NEED choose #-}
choose{-# 1 #-}::(System.Random.Random a) => ((a,a) -> (Gen a));
interface System.Random
{-# NEED Random #-}
class Random a;
interface ! Test.QuickCheck
{-# NEED generate #-}
generate{-# 3 #-}::(Prelude.Int -> (System.Random.StdGen -> ((Gen a) -> a)));

{-# NEED variant #-}
variant{-# 2 #-}::(Prelude.Int -> ((Gen a) -> (Gen a)));

{-# NEED promote #-}
promote{-# 1 #-}::((a -> (Gen b)) -> (Gen (a -> b)));

{-# NEED rand #-}
rand{-# 0 #-}::(Gen System.Random.StdGen);

{-# NEED resize #-}
resize{-# 2 #-}::(Prelude.Int -> ((Gen a) -> (Gen a)));

{-# NEED sized #-}
sized{-# 1 #-}::((Prelude.Int -> (Gen a)) -> (Gen a));

{-# NEED {Gen} #-}
newtype {-#  #-} Gen a
  = Gen (Prelude.Int -> (System.Random.StdGen -> a));
interface System.Random
{-# NEED StdGen #-}
data StdGen;
}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.