(red) wip on offers

test/Chargen.Accept.fs

@@ -24,15 +24,16 @@ type OfferInput = {
     selected: Set<Key>
     }
     with static member fresh = { selected = Set.empty }
-type 't Offer = Offer of (OfferInput -> 't)
-type 't ListOffer = ('t list) Offer
-type 't OptionOffer = ('t option) Offer
-
 type OfferConfig = {
     key: Key option
     label: string option
     }
     with static member blank = { key = None; label = None }
+type 't Offer = { config: OfferConfig; func: (OfferConfig -> OfferInput -> 't) }
+    with member this.recur input = this.func this.config input
+type 't ListOffer = ('t list) Offer
+type 't OptionOffer = ('t option) Offer
+
 open type OfferConfig
 
 type 'reactElement RenderApi = {
@@ -155,6 +156,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