transcendental-lisp/fitnesse/FitNesseRoot/TranscendentalLisp/StaticVariable.wiki

---
Test
---
Shows the usage of a static variable.
''"Let Over Lambda Over Let Over Lambda"''

| script | lisp interpreter fixture |
| show   | evaluate text | (load "lisp/object/static.lisp")  |
| show   | evaluate text | (setq my-counter (counter-class)) |
| check  | evaluate text | (funcall my-counter)              | 1 |
| check  | evaluate text | (funcall my-counter)              | 2 |
| check  | evaluate text | (funcall my-counter)              | 3 |
| show   | evaluate text | (toggle-counter-direction)        |
| check  | evaluate text | (funcall my-counter)              | 2 |
| check  | evaluate text | (funcall my-counter)              | 1 |
| check  | evaluate text | (funcall my-counter)              | 0 |
| show   | evaluate text | (toggle-counter-direction)        |
| check  | evaluate text | (funcall my-counter)              | 1 |
| check  | evaluate text | (funcall my-counter)              | 2 |
| check  | evaluate text | (funcall my-counter)              | 3 |