testNaivePayToday

The simplest possible test case is the one where the Contract never changes: NavigationTest>>testNaivePayToday

| contract | contract := Contract pay: 1000. self assert: contract pay = 1000

⇒ testPayToday ⇒ testPayLastMonth