minor refactoring in "example"; add one test to PascalSuite