################################################################################
# Testing Commands

# These won't match the values on the machine after a full restart But I chose
# not to force their intialisation as they are only important for testing

record(bo, "$(P):$(NAME):TESTGEN")
{
 field(DESC, "Turn on/off Testgen Signal")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) switchTestgenOnOff($(P):$(NAME):) $(ASYN_PORT)")
 field(VAL, 0)
 field(ZNAM, "OFF")
 field(ONAM, "ON")
}

record(longout, "$(P):$(NAME):TESTGEN-LOWRATE")
{
 field(DESC, "Set Minimum Testgen Rate")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) setTestSignal($(P):$(NAME):) $(ASYN_PORT)")
 field(VAL, 1000)
}

record(longout, "$(P):$(NAME):TESTGEN-HIGHRATE")
{
 field(DESC, "Set Maximum Testgen Rate")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) setTestSignal($(P):$(NAME):) $(ASYN_PORT)")
 field(VAL, 1000)
}