source: XIOS/tools/FCM/t/Fcm/Interactive/InputGetter/CLI.pm @ 1385

Last change on this file since 1385 was 81, checked in by ymipsl, 12 years ago

ajout FCM 1.5

File size: 506 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::CLI';
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    isa_ok($input_getter, $class);
23}
24
25# TODO: tests the invoke method
26
27__END__
Note: See TracBrowser for help on using the repository browser.