#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 6;

use_ok('MDV::Distribconf::MediaCFG');
is(MDV::Distribconf::MediaCFG::_valid_param('foo', 'name', 'toto'), 0,
    "Valid value return no error");

is(MDV::Distribconf::MediaCFG::_valid_param('foo', 'size', '1'), 0,
    "valide size value");
is(MDV::Distribconf::MediaCFG::_valid_param('foo', 'size', '1k'), 0,
    "valide size value");
is(MDV::Distribconf::MediaCFG::_valid_param('foo', 'size', '1d'),  1,
    "non valide size value");
is(MDV::Distribconf::MediaCFG::_valid_param('foo', 'size', 'coin'), 1,
    "non valide size value");