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