source:
branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/EXTERNAL/fcm/t/Fcm/Exception.t
@
7692
Last change on this file since 7692 was 7692, checked in by frrh, 7 years ago | |
---|---|
File size: 912 bytes |
Rev | Line | |
---|---|---|
[1980] | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More qw{no_plan}; | |
7 | ||
8 | main(); | |
9 | ||
10 | sub main { | |
11 | my $class = 'Fcm::Exception'; | |
12 | use_ok($class); | |
13 | test_constructor_empty($class); | |
14 | test_normal($class); | |
15 | } | |
16 | ||
17 | ################################################################################ | |
18 | # Tests empty constructor | |
19 | sub test_constructor_empty { | |
20 | my ($class) = @_; | |
21 | my $prefix = 'empty constructor'; | |
22 | my $e = $class->new(); | |
23 | isa_ok($e, $class, $prefix); | |
24 | isnt("$e", undef, "$prefix: as_string() not undef"); | |
25 | } | |
26 | ||
27 | ################################################################################ | |
28 | # Tests normal usage | |
29 | sub test_normal { | |
30 | my ($class) = @_; | |
31 | my $prefix = 'normal'; | |
32 | my $e = $class->new({message => 'message'}); | |
33 | isa_ok($e, $class, $prefix); | |
34 | is("$e", "$class: message\n", "$prefix: as_string()"); | |
35 | is($e->get_message(), 'message', "$prefix: get_message()"); | |
36 | } | |
37 | ||
38 | __END__ |
Note: See TracBrowser
for help on using the repository browser.