vcs.maemo.org Git - pkg-perl/blob - deb-src/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/die.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5 use Test::More;
   6
   7 BEGIN {
   8     eval 'use Test::Exception';
   9     plan skip_all => 'Test::Exception required to test die' if $@;
  10     plan tests => 5;
  11 }
  12
  13 BEGIN {
  14     use_ok( 'WWW::Mechanize' );
  15 }
  16
  17
  18 CHECK_DEATH: {
  19     my $m = WWW::Mechanize->new;
  20     isa_ok( $m, 'WWW::Mechanize' );
  21
  22     dies_ok {
  23         $m->die( 'OH NO!  ERROR!' );
  24     } 'Expecting to die';
  25 }
  26
  27 CHECK_LIVING: {
  28     my $m = WWW::Mechanize->new( onerror => undef );
  29     isa_ok( $m, 'WWW::Mechanize' );
  30
  31     lives_ok {
  32         $m->die( 'OH NO!  ERROR!' );
  33     } 'Expecting to die';
  34 }