class TestCase::Module::CommandInfo {
  our $MOVE_BLOCK_PROGRAM_NAME_ZERO : ro string;
  our $MOVE_BLOCK_ARGV_ZERO : ro string[];
  our $MOVE_BLOCK_BASE_TIME_ZERO : ro long;
  
  INIT {
    $MOVE_BLOCK_PROGRAM_NAME_ZERO = CommandInfo->PROGRAM_NAME;
    $MOVE_BLOCK_ARGV_ZERO = CommandInfo->ARGV;
    $MOVE_BLOCK_BASE_TIME_ZERO = CommandInfo->BASE_TIME;
  }
}