use Test::More tests => 8;
BEGIN {
use_ok( 'Slackware::Slackget::Media' );
}
my $media = Slackware::Slackget::Media->new('slackware',
'description'=>'The official Slackware web site',
'web-link' => 'http://www.slackware.com/',
'update-repository' => {faster => 'http://ftp.belnet.be/packages/slackware/slackware-12.0/'},
'files' => {
'filelist' => 'FILELIST.TXT',
'checksums' => 'CHECKSUMS.md5',
'packages' => 'PACKAGES.TXT.gz'
}
);
ok( $media );
ok( $media->getValue('description') eq 'The official Slackware web site' );
ok($media->setValue('description','This is only a test') eq 'This is only a test' );
ok( $media->getValue('description') eq 'This is only a test' );
ok( $media->url eq 'http://www.slackware.com/' );
ok( $media->shortname eq 'slackware' );
ok( $media->host eq 'http://ftp.belnet.be/packages/slackware/slackware-12.0/' );