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