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.
Entry.t in branches/UKMO/r5936_INGV1_WAVE-coupling/NEMOGCM/EXTERNAL/fcm/t/Fcm/Keyword – NEMO

source: branches/UKMO/r5936_INGV1_WAVE-coupling/NEMOGCM/EXTERNAL/fcm/t/Fcm/Keyword/Entry.t @ 7166

Last change on this file since 7166 was 7166, checked in by jcastill, 7 years ago

Remove svn keys

File size: 559 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::Keyword::Entry';
12    use_ok($class);
13    test_normal($class);
14}
15
16################################################################################
17# Tests normal usage
18sub test_normal {
19    my ($class) = 'Fcm::Keyword::Entry';
20    my $entry = $class->new({key => 'key', value => 'value'});
21    isa_ok($entry, $class);
22    is($entry->get_key(), 'key', "normal: get_key()");
23    is($entry->get_value(), 'value', "normal: get_value()");
24}
25
26__END__
Note: See TracBrowser for help on using the repository browser.