-*-pa-*- added test function