1# ============================================================================== 2# $Id: 03-get.t 17 2006-09-18 20:29:37Z HVRTWall $ 3# Copyright (c) 2005-2006 Thomas Walloschke (thw@cpan.org). All rights reserved. 4# Module Extended Test of Module::Versions 5# ============================================================================== 6 7 # Before `make install' is performed this script should be runnable with 8 # `make test'. After `make install' it should work as `perl Module-Versions.t' 9 10######################### 11 12 # -- Module Extended Test 'get' 13 # Module::Versions 14 15 #use Test::More 'no_plan'; 16 use Test::More tests => 30; 17 BEGIN { use_ok('Module::Versions') } 18 19######################### 20 21 # -- No parameter, default 22 ok( ref get Module::Versions, 'get Module::Versions' ); 23 ok( ref Module::Versions->get, 'Module::Versions->get' ); 24 25 # -- Parameter, single 26 ok( ref get Module::Versions 'oldver', 'get Module::Versions \'oldver\'' ); 27 ok( ref Module::Versions->get('oldver'), 28 'Module::Versions->get(\'oldver\')' 29 ); 30 ok( ref get Module::Versions 'notme', 'get Module::Versions \'notme\'' ); 31 ok( ref Module::Versions->get('notme'), 32 'Module::Versions->get(\'notme\')' ); 33 ok( ref get Module::Versions 'all', 'get Module::Versions \'all\'' ); 34 ok( ref Module::Versions->get('all'), 'Module::Versions->get(\'all\')' ); 35 ok( ref get Module::Versions 'version', 36 'get Module::Versions \'version\'' ); 37 ok( ref Module::Versions->get('version'), 38 'Module::Versions->get(\'version\')' 39 ); 40 41 ok( ref get Module::Versions ['oldver'], 42 'get Module::Versions [\'oldver\']' 43 ); 44 ok( ref Module::Versions->get( ['oldver'] ), 45 'Module::Versions->get([\'oldver\'])' 46 ); 47 ok( ref get Module::Versions ['notme'], 48 'get Module::Versions [\'notme\']' ); 49 ok( ref Module::Versions->get( ['notme'] ), 50 'Module::Versions->get([\'notme\'])' 51 ); 52 ok( ref get Module::Versions ['all'], 'get Module::Versions [\'all\']' ); 53 ok( ref Module::Versions->get( ['all'] ), 54 'Module::Versions->get([\'all\'])' 55 ); 56 ok( ref get Module::Versions ['version'], 57 'get Module::Versions [\'version\']' 58 ); 59 ok( ref Module::Versions->get( ['version'] ), 60 'Module::Versions->get([\'version\'])' 61 ); 62 63 # -- Parameter, mixed 64 ok( ref get Module::Versions [ 'oldver', 'notme' ], 65 'get Module::Versions [\'oldver\',\'notme\']' 66 ); 67 ok( ref get Module::Versions [ 'oldver', 'all' ], 68 'get Module::Versions [\'oldver\',\'all\']' 69 ); 70 ok( ref get Module::Versions [ 'oldver', 'version' ], 71 'get Module::Versions [\'oldver\',\'version\']' 72 ); 73 ok( ref Module::Versions::new( [ 'notme', 'all' ] ), 74 'Module::Versions::new([\'notme\',\'all\'])' 75 ); 76 ok( ref Module::Versions::new( [ 'notme', 'version' ] ), 77 'Module::Versions::new([\'notme\',\'version\'])' 78 ); 79 ok( ref Module::Versions->new( [ 'all', 'version' ] ), 80 'Module::Versions->new([\'all\',\'version\'])' 81 ); 82 83 ok( ref Module::Versions->new( [ 'oldver', 'notme', 'all' ] ), 84 'Module::Versions->new([\'oldver\',\'version\',\'all\'])' 85 ); 86 ok( ref Module::Versions->new( [ 'oldver', 'all', 'version' ] ), 87 'Module::Versions->new([\'oldver\',\'all\',\'version\'])' 88 ); 89 ok( ref Module::Versions->new( [ 'oldver', 'notme', 'version' ] ), 90 'Module::Versions->new([\'oldver\',\'notme\',\'version\'])' 91 ); 92 ok( ref Module::Versions->new( [ 'notme', 'all', 'version' ] ), 93 'Module::Versions->new([\'notme\',\'all\',\'version\'])' 94 ); 95 96 ok( ref new Module::Versions( [ 'oldver', 'notme', 'all', 'version' ] ), 97 'new Module::Versions ( [\'oldver\', \'notme\', \'all\'], \'version\' )' 98 ); 99 100######################### 101