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