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.
Entries.t in branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/fcm/t/Fcm/Keyword/Formatter – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/fcm/t/Fcm/Keyword/Formatter/Entries.t @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 13 years ago

set proper svn properties to all files...

  • Property svn:keywords set to Id
File size: 701 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Fcm::Keyword::Entries;
7use Test::More qw{no_plan};
8
9main();
10
11sub main {
12    my $class = 'Fcm::Keyword::Formatter::Entries';
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 $entries = Fcm::Keyword::Entries->new();
25    $entries->add_entry('foo', 'food');
26    $entries->add_entry('bar', 'barley');
27    is($formatter->format($entries), "BAR = barley\nFOO = food\n",
28        "$prefix: format");
29}
30
31__END__
Note: See TracBrowser for help on using the repository browser.