1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# -*-Perl-*-
## Bioperl Test Harness Script for Modules
##
# $Id: exception.t,v 1.5 2001/11/23 23:11:46 jason Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
use strict;
BEGIN {
# to handle systems with no installed Test module
# we include the t dir (where a copy of Test.pm is located)
# as a fallback
eval { require Test; };
if( $@ ) {
use lib 't';
}
use Test;
plan tests => 2 }
use Bio::Root::Root;
ok(1);
package MyObject;
use vars qw(@ISA);
@ISA = qw (Bio::Root::Root);
package main;
my $obj = MyObject->new();
eval {
$obj->throw('an exception');
};
ok ( $@ =~ /an exception/);
|
