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

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