Hello,

I wish to test if a method has raised an exception for a value (something that should make the test pass) or not.

For example:

function TestNum(ch : Char) : Byte;
begin
  if UpCase(ch) in ['A'..'F', '0'..'9'] then
    ...
  else
    raise Exception.Create('Invalid char was given.');
end;

I want to test the code with Char like 'y' for example, to make sure that it does raises the exception.

Does AssertException is the proper method for such test ?

Thanks,
Ido

Yes.

Michael.

So how do I do it ?

TRunMethod = procedure of object;

If I pass it a function, it don't really like it:

AssertException(ExceptionWasNotRaisd, EMsgPackWrongType, @MsgPackType.AsByte);

convert_testcase.pas(592,60) Error: Incompatible type for arg no. 3: Got "<procedure variable type of function:Byte of object;Register>", expected "<procedure variable type of procedure of object;Register>"

You must create a method in your testcase that calls the funtion, and pass that method to AssertException.

The alternative is to do everything yourself:

Procedure TMyTestClass.MyTest;
Var
   B : Byte;
begin
   try
     B:=MsgPackType.AsByte;
     Fail(ExceptionWasNotRaisd);
   except
     On E : Exception do
      if (E is not EMsgPackWrongType) then
        Fail(ExceptionWasNotRaisd);
   end;
end;

Michael.

ik wrote

So how do I do it ?

Create a method of the test class, and pass that to AssertException.

Alternatively, do it manually as follows:

  try
    si.SetSlideName('001~z~1~a~4~d~1.1.2.swf');
    si.SlideTypeDB;
  except
    on E: exception do
    begin
      CheckEquals(EUnknownSlideType.ClassName, E.ClassName, 'Failing on 2');
    end;
  end;

Regards,
- Graeme -

This will not detect if no exception is raised, only if the right exception is raised in case one is raised.

Michael.

Michael Van Canneyt wrote

This will not detect if no exception is raised, only if the right exception is raised in case one is raised.

You are correct. An extra test is needed just before the except block. As your example shows, simply calling Fail(...) if no exception was raised.

Regards,
- Graeme -

That's what I'ved done

Thanks :)