untrustworthy_booleans.har

# untrustworthy_boolean.har

function make_untrustworthy!(obj) do
    if type(obj) != "boolean" then
        abort("not a bool")
    end
    override obj.get do
        trueval = obj.get!()
        if Harmony::Random.select(1, 5) == 1 then
            trueval = not trueval
        end
        return trueval
    end
end

mybool = true
make_untrustworthy!(mybool)

# mybool now has a 1/5th chance of lying about itself