ipアドレスが正しいかどうかを判定するには？ (ID:29195)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

そういうときには、テストファーストですな。

//KHE000221さんのisSafeIPに必要なのは
//このPosEx関数かな？
function PosEx(Substr: string; S: string; P: Integer): Integer;
begin
  if P <= 0 then Result := 0
  else Result := Pos(Substr, Copy(S, P, Length(S)));
  if Result <> 0 then Result := Result + P - 1;
end;

//これがチェックコード
procedure Check(A, B: Boolean);
begin
  if not(A = B) then
  begin
    Assert(False,
      'エラーです:A=' + BoolToStr(A) + ':B=' + BoolToStr(B));
  end;
end;

//ここでテストをおこなって
//テストを通過するようにisSafeIPを実装できていればよい。
procedure TForm1.Button1Click(Sender: TObject);
begin
  Check(True, isSafeIP('0.0.0.0'));
  Check(True, isSafeIP('255.255.255.0'));
  Check(True, isSafeIP('255.255.0.0'));
  Check(True, isSafeIP('0.0.0.255'));
  Check(True, isSafeIP('192.168.0.1'));
  Check(True, isSafeIP('192.168.0.01'));

Check(False, isSafeIP('192.168.0.-1'));

// 数字の桁が３桁より多い
  Check(False, isSafeIP('0192.168.0.1'));
  Check(False, isSafeIP('192.168.0000.1'));
  Check(False, isSafeIP('192.168.0.0001'));
  Check(False, isSafeIP('0001.0012.0123.000255'));

//桁が余分
  Check(True, isSafeIP('192.02.03.04'));
  Check(False, isSafeIP('0192.02.03.04'));
  Check(True, isSafeIP('01.02.03.04'));

// 数字の数が４個より多い
  Check(False, isSafeIP('12.34.56.78.90'));
  Check(False, isSafeIP('12.34.56.78.90.123'));

// 末尾に余計なドット
  Check(False, isSafeIP('124.083.147.202..'));
  Check(False, isSafeIP('124.083.147.202...'));

//先頭に余計なドット
  Check(False, isSafeIP('.124.083.147.202'));

//数値がない部分がある
  Check(False, isSafeIP('.0.0.1'));
  Check(False, isSafeIP('0.0..1'));

//数値が範囲外
  Check(False, isSafeIP('256.255.255.0'));
  Check(False, isSafeIP('255.255.0.256'));

//数値じゃない値が入っている
  Check(False, isSafeIP('0.0F.0.255'));
  Check(False, isSafeIP('0.0x0F.0.255'));
  Check(False, isSafeIP('0.$0F.0.255'));
end;

このテストを通過していることが、
isSafeIPの関数仕様を現しているので
どういう文字がisSafeIPで許容されるか否かがすぐわかるし
isSafeIPをリファクタリングして内部実装が変更になっても
このテストが通れば、仕様をみたしている関数ということになります。

上のisSafeIPではエラーが起きるし
下のisSafeIPでは正しく動作していることを確認しました。

「桁が余分」の所の微妙な仕様なんかは
人間としてはどっちでもいい気もするけど
厳密さはテストでチェックしておかないと、わからないな。

←解決時は質問者本人がここをチェックしてください。

戻る