test1 :: Test
test1 = TestCase (do
                   assertEqual "Basic test case 1" (Just [A,B,A]) (findArbitrage basicExchangeData)
                   assertBool "Makes money" (runOpportunity basicExchangeData [A,B,A] > 1.0))
test1 :: Test
test1 = TestCase (do
                   assertEqual "Basic test case 1" (Just [A,B,A]) (findArbitrage basicExchangeData)
                   assertBool "Makes money" (runOpportunity basicExchangeData [A,B,A] > 1.0))
test1 = TestCase (do
                   assertEqual "Basic test case 1" (Just [A,B,A]) (findArbitrage basicExchangeData)
                   assertBool "Makes money" (runOpportunity basicExchangeData [A,B,A] > 1.0))