diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-02 13:10:35 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-02 13:10:35 +0000 |
| commit | 5a66423d2da34baf0896cf7781868989464b548f (patch) | |
| tree | 8eac9949b8a6fc1149af1d2d5103099812cf73bc /t/03checks.t | |
| parent | 0dcaef65a3809b25a0d40f9e8c1a4143767818da (diff) | |
| download | perl-MDV-Distribconf-5a66423d2da34baf0896cf7781868989464b548f.tar perl-MDV-Distribconf-5a66423d2da34baf0896cf7781868989464b548f.tar.gz perl-MDV-Distribconf-5a66423d2da34baf0896cf7781868989464b548f.tar.bz2 perl-MDV-Distribconf-5a66423d2da34baf0896cf7781868989464b548f.tar.xz perl-MDV-Distribconf-5a66423d2da34baf0896cf7781868989464b548f.zip | |
- resync lost file after svn crash
Diffstat (limited to 't/03checks.t')
| -rw-r--r-- | t/03checks.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/03checks.t b/t/03checks.t new file mode 100644 index 0000000..3beb2ac --- /dev/null +++ b/t/03checks.t @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +# $Id: 01-compile.t 38877 2006-07-12 12:16:51Z nanardon $ + +use strict; +use warnings; + +use Test::More tests => 4; + +use_ok('MDV::Distribconf::Checks'); + +MDV::Distribconf::Checks::_report_err( + sub { + my %err = @_; + is($err{errcode}, 'UNSYNC_HDLIST', 'get proper errcode'); + is($err{level}, 'E', 'get proper err level'); + ok($err{message}, 'get message'); + }, + 'UNSYNC_HDLIST', + 'test message', +); + |