New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Exception.t in branches/UKMO/antarctic_partial_slip/NEMOGCM/EXTERNAL/fcm/t/Fcm/CLI – NEMO

source: branches/UKMO/antarctic_partial_slip/NEMOGCM/EXTERNAL/fcm/t/Fcm/CLI/Exception.t @ 5958

Last change on this file since 5958 was 5958, checked in by davestorkey, 8 years ago

UKMO/antarctica_partial_slip branch: remove SVN keywords.

File size: 565 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More qw{no_plan};
7
8main();
9
10sub main {
11    my $class = 'Fcm::CLI::Exception';
12    use_ok($class);
13    test_normal($class);
14}
15
16################################################################################
17# Tests normal usage
18sub test_normal {
19    my ($class) = @_;
20    my $prefix = 'normal';
21    my $e = $class->new({message => 'message'});
22    isa_ok($e, $class, $prefix);
23    is("$e", "$class: message\n", "$prefix: as_string()");
24    is($e->get_message(), 'message', "$prefix: get_message()");
25}
26
27__END__
Note: See TracBrowser for help on using the repository browser.