TestBlocks から一部移植。