TestBlocks より一部を移植。