revised
test for global.R tested