Files
remind/tests/safety.rem

44 lines
602 B
Plaintext

BANNER %
SET $AddBlankLines 0
FSET danger(x) shell("echo oops")
RUN OFF
FSET safe(x) shell("echo nope")
FSET safe2(x) danger(x)
RUN ON
DEBUG +x
set a danger(1)
set b safe(1)
set c safe2(1)
PUSH-FUNCS safe
FSET safe(x) shell("echo this will work")
SET b safe(1)
POP-FUNCS
SET b safe(1)
FRENAME safe gloopy
FRENAME danger bork
set a bork(1)
set b gloopy(1)
FRENAME gloopy safe
FRENAME bork danger
RUN OFF
set a danger(1)
set b safe(1)
set b safe2(1)
RUN ON
DEBUG -x
FSET subst_b(a, b, c) shell("echo nooooo....")
REM MSG [subst_b(1, 2, 3)]
FLUSH
REM MSG %b
FLUSH
REM MSG [subst_b(1, 2, 3)]
FLUSH