Testing pascal