source: XMLIO_V2/tools/FCM/t/Fcm/CLI/Exception.t @ 81

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

ajout FCM 1.5

File size: 565 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::CLI::Exception';
12    use_ok($class);
13    test_normal($class);
14}
15
16################################################################################
17# Tests normal usage
18sub test_normal {
19    my ($class) = @_;
20    my $prefix = 'normal';
21    my $e = $class->new({message => 'message'});
22    isa_ok($e, $class, $prefix);
23    is("$e", "$class: message\n", "$prefix: as_string()");
24    is($e->get_message(), 'message', "$prefix: get_message()");
25}
26
27__END__
Note: See TracBrowser for help on using the repository browser.