add tests to pascal