module PizzaPricingTests open FsUnit.Xunit open Xunit open Exercism.Tests open PizzaPricing [] [] let ``Price for pizza margherita``() = pizzaPrice Margherita |> should equal 7 [] [] let ``Price for pizza formaggio``() = pizzaPrice Formaggio |> should equal 10 [] [] let ``Price for pizza caprese``() = pizzaPrice Caprese |> should equal 9 [] [] let ``Price for pizza margherita with extra sauce``() = pizzaPrice (ExtraSauce Margherita) |> should equal 8 [] [] let ``Price for pizza caprese with extra toppings``() = pizzaPrice (ExtraToppings Caprese) |> should equal 11 [] [] let ``Price for pizza formaggio with extra sauce and toppings``() = pizzaPrice (ExtraSauce(ExtraToppings Caprese)) |> should equal 12 [] [] let ``Price for pizza caprese with extra sauce and toppings``() = pizzaPrice (ExtraToppings(ExtraSauce Formaggio)) |> should equal 13 [] [] let ``Order price for no pizzas``() = orderPrice [] |> should equal 0 [] [] let ``Order price for single pizza caprese``() = orderPrice [ Caprese ] |> should equal 12 [] [] let ``Order price for single pizza formaggio with extra sauce``() = orderPrice [ ExtraSauce Formaggio ] |> should equal 14 [] [] let ``Order price for one pizza margherita and one pizza caprese with extra toppings``() = orderPrice [ Margherita ExtraToppings Caprese ] |> should equal 20 [] [] let ``Order price for very large order``() = orderPrice [ Margherita ExtraSauce Margherita Caprese ExtraToppings Caprese Formaggio ExtraSauce Formaggio ExtraToppings(ExtraSauce Formaggio) ExtraToppings(ExtraSauce Formaggio) ] |> should equal 82 [] [] let ``Order price for gigantic order``() = orderPrice (List.replicate 100_000 Margherita) |> should equal 700_000