source: branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/EXTERNAL/fcm/t/Fcm/Keyword/Formatter/Entry/Location.t @ 5445

Last change on this file since 5445 was 5445, checked in by davestorkey, 5 years ago

Clear SVN keywords from 2015/dev_r5021_UKMO1_CICE_coupling branch.

File size: 649 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Fcm::Keyword::Entry::Location;
7use Test::More qw{no_plan};
8
9main();
10
11sub main {
12    my $class = 'Fcm::Keyword::Formatter::Entry::Location';
13    use_ok($class);
14    test_normal($class);
15}
16
17################################################################################
18# Tests normal usage
19sub test_normal {
20    my ($class) = @_;
21    my $prefix = 'normal';
22    my $formatter = $class->new();
23    isa_ok($formatter, $class, $prefix);
24    my $entry = Fcm::Keyword::Entry::Location->new({key => 'k', value => 'v'});
25    like($formatter->format($entry), qr{k \s = \s v}xms, "$prefix: format");
26}
27
28__END__
Note: See TracBrowser for help on using the repository browser.