sub bit_test {
  my ($value, $bit) = shift;

  return $value & (1 << $bit);
}