(red) wip on offers

MaxWilson · Jan 5, 2024 · 41cc054 · 41cc054
1 parent 3878da5
commit 41cc054
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/Chargen.Accept.fs b/test/Chargen.Accept.fs
@@ -155,6 +155,10 @@ let pseudoReactApi = {
     combine = Fragment
     }
 
+[<Tests>]
+let unit1 = testCase "Unit.Chargen.smoke1" <| fun () ->
+    test <@ [either(trait' "Fight", trait' "Hide")] |> evaluate OfferInput.fresh = Either(None, [false, Leaf "Fight"; false, Leaf "Hide"]) @>
+
 let proto1 = testCase "proto1" <| fun () ->
     let actual = swash() |> evaluate OfferInput.fresh // shouldn't actually use OfferInput.fresh here. Need to pick the options we want to show up in pseudoActual.s
     let pseudoActual = // pseudo-actual because actual will be created from templates + OfferInput (i.e. selected keys), not hardwired as Menus, but that's still TODO