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.
InputGetter.t in branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/EXTERNAL/fcm/t/Fcm/Interactive – NEMO

source: branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/EXTERNAL/fcm/t/Fcm/Interactive/InputGetter.t @ 6757

Last change on this file since 6757 was 6757, checked in by kingr, 8 years ago

Cleared SVN keywords.

File size: 913 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::Interactive::InputGetter';
12    use_ok($class);
13    test_constructor($class);
14}
15
16################################################################################
17# Tests usage of constructor
18sub test_constructor {
19    my ($class) = @_;
20    my $prefix = 'constructor';
21    my $input_getter = $class->new({
22        title   => 'title-value',
23        message => 'message-value',
24        type    => 'type-value',
25        default => 'default-value',
26    });
27    isa_ok($input_getter, $class);
28    is($input_getter->get_title(), 'title-value', "$prefix: get title");
29    is($input_getter->get_message(), 'message-value', "$prefix: get message");
30    is($input_getter->get_type(), 'type-value', "$prefix: get type");
31    is($input_getter->get_default(), 'default-value', "$prefix: get default");
32}
33
34__END__
Note: See TracBrowser for help on using the repository browser.