source: branches/2017/dev_merge_2017/NEMOGCM/EXTERNAL/fcm/t/Fcm/Keyword/Entry/Location.t @ 9141

Last change on this file since 9141 was 9141, checked in by nicolasmartin, 3 years ago

MIME type for Perl files under ./EXTERNAL/fcm/t

  • Property svn:keywords set to Id
  • Property svn:mime-type set to text/x-perl
File size: 752 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::Location';
12    use_ok($class);
13    test_constructor($class);
14}
15
16################################################################################
17# Tests constructor
18sub test_constructor {
19    my ($class) = @_;
20    my $prefix = 'constructor';
21    isa_ok($class->new(), $class, "$prefix: empty");
22    my $entry = $class->new({key => 'key', value => 'value'});
23    isa_ok($entry, $class, "$prefix: normal");
24    is($entry->get_key(), 'key', "$prefix: normal: get_key()");
25    is($entry->get_value(), 'value', "$prefix: normal: get_value()");
26    isa_ok($entry->get_revision_entries(), 'Fcm::Keyword::Entries');
27}
28
29__END__
Note: See TracBrowser for help on using the repository browser.