Improved scale() test