Issue 261 Investigation Test

Issue261.fs

module IssueInvestiations

open Xunit
open Enticify.Promotions

[<Fact>]
let ``Issue 261 - item and shipping discount interaction`` () =

    let (basket, orderForm) =
        createBasket
            [ Spid("AW475-14", 1m);(* Scout pride cook kit.  In discount. *)
              Vpid("AW190-11", "16", 1m);(* Tent, not in discount.*)  ]

    let result = 
        basket
        |> (setAllowedDiscounts ["500261"; "5002612"])
        |> (addCoupon "sp123")
        |> runPipeline

    Assert.Equal(0m, orderForm.ShippingTotal)
    Assert.Equal<string>("Item", (orderForm.LineItems.[0].ItemLevelDiscountsApplied.[0].["discount_target"].ToString()))
    ()