You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
411 B
19 lines
411 B
|
9 years ago
|
{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances #-}
|
||
|
|
{-# LANGUAGE MultiWayIf #-}
|
||
|
|
|
||
|
|
module TestBrokerProtocol (
|
||
|
|
properties
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Test.Tasty
|
||
|
|
import Test.Tasty.SmallCheck as SC
|
||
|
|
import Test.Tasty.QuickCheck as QC
|
||
|
|
import Test.Tasty.HUnit
|
||
|
|
import Test.QuickCheck.Instances hiding (Text)
|
||
|
|
|
||
|
|
import ATrade.Types
|
||
|
|
import ATrade.Broker.Protocol
|
||
|
|
|
||
|
|
properties = testGroup "Broker.Protocol" []
|
||
|
|
|