# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Ham-Resources-Propagation.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use strict;
use warnings;
use Test::More tests => 6;
BEGIN { use_ok('Ham::Resources::Propagation') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
diag( "Testing Ham::Resources::Propagation $Ham::Resources::Propagation::VERSION, Perl $], $^X" );
my $propagation = Ham::Resources::Propagation->new; # create a new object
ok ( defined $propagation , 'new() creation' );
ok ( $propagation->isa('Ham::Resources::Propagation') , 'Right class returned' );
ok ( $propagation->get('*') , 'get()' );
ok ( $propagation->all_item_names , 'all_item_names' );
like ( $propagation->get('updated'), qr/\d+/ , 'Received datas' );