Test::Unit::Assertion::Exception

    require Test::Unit::Assertion::Exception;
    my $assert_raised =
      Test::Unit::Assertion::Exception->new('MyException');
    # This should succeed
    $assert_eq->do_assertion(sub { MyException->throw() });
    # This should fail
    $assert_eq->do_assertion(sub { });

Although the SYNOPSIS shows how you'd use Test::Unit::Assertion::Exception directly, it is more sensibly used indirectly via Test::Unit::Test::assert_raises(), which instantiates a "Test::Unit::Assertion::Exception".

Copyright (c) 2001 Piers Cawley <pdcawley@iterative-software.com>.

All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

• Test::Unit::TestCase
• Test::Unit::Assertion