Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\cpanrun-5.8\build\5-8-0\bin\perl.exe Build --makefile_env_macros 1 install Installing C:\cpanrun-5.8\build\5-8-0\site\lib\DBIx\Path.pm Installing C:\cpanrun-5.8\build\5-8-0\html\site\lib\DBIx\Path.html Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\DBIx\Path\.packlist ok 7 - DBIx::Path->can('list') ok 8 - DBIx::Path->can('resolve') ok t\2-construct....1..3 ok 1 - use DBIx::Path; ok 2 - Constructor returned something ok 3 - isa DBIx::Path ok t\2-get..........1..32 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - get('usr') gives something ok 4 - isa DBIx::Path ok 5 - with the right name ok 6 - and the right ID ok 7 - get('var') gives something ok 8 - isa DBIx::Path ok 9 - with the right name ok 10 - and the right ID ok 11 - get('tmp') gives something ok 12 - isa DBIx::Path ok 13 - with the right name ok 14 - and the right ID ok 15 - get('home') gives something ok 16 - isa DBIx::Path ok 17 - with the right name ok 18 - and the right ID ok 19 - descending tests - get('usr') in root gives something ok 20 - isa DBIx::Path ok 21 - with the right name ok 22 - and the right parent ID ok 23 - descending tests - get('bin') in 'usr' gives something ok 24 - isa DBIx::Path ok 25 - with the right name ok 26 - and the right parent ID ok 27 - descending tests - get('perl') in 'bin' gives something ok 28 - isa DBIx::Path ok 29 - with the right name ok 30 - and the right parent ID ok 31 - get('lost+found') returns undef ok 32 - And sets $! to ENOENT ok t\2-list.........1..8 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - root->list() returns the right number of children ok 4 - with the right names ok 5 - usr->list() returns the right number of children ok 6 - with the right names ok 7 - tmp->list() returns the right number of children ok 8 - with the right names ok t\2-parents......1..9 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - root->get(usr)->get(bin) isa DBIx::Path ok 4 - bin->get(perl) isa DBIx::Path ok 5 - perl has one parent ok 6 - with bin's ID ok 7 - one name ok 8 - and it's 'perl' ok 9 - Root is an orphan ok t\2-resolve......1..32 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - resolve( qw( usr ) ) returned something ok 4 - isa DBIx::Path ok 5 - $node->id is '1' ok 6 - $node->pid is '0' ok 7 - $node->name is 'usr' ok 8 - resolve( qw( usr bin ) ) returned something ok 9 - isa DBIx::Path ok 10 - $node->id is '5' ok 11 - $node->pid is '1' ok 12 - $node->name is 'bin' ok 13 - resolve( qw( usr bin perl ) ) returned something ok 14 - isa DBIx::Path ok 15 - $node->id is '7' ok 16 - $node->pid is '5' ok 17 - $node->name is 'perl' ok 18 - resolve( qw( lost+found ) ) returned undef ok 19 - with $! set to ENOENT ok 20 - @RESOLVED = qw( ) ok 21 - @FAILED = qw( lost+found ) ok 22 - $PARENT->id = 0 ok 23 - resolve( qw( usr lost+found ) ) returned undef ok 24 - with $! set to ENOENT ok 25 - @RESOLVED = qw( usr ) ok 26 - @FAILED = qw( lost+found ) ok 27 - $PARENT->id = 1 ok 28 - resolve( qw( usr lost+found 1097763 ) ) returned undef ok 29 - with $! set to ENOENT ok 30 - @RESOLVED = qw( usr ) ok 31 - @FAILED = qw( lost+found 1097763 ) ok 32 - $PARENT->id = 1 ok t\2-reverse......1..14 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - resolve(usr) return isa DBIx::Path ok 4 - node->reverse returned 1 result ok 5 - an arrayref ok 6 - and it looks like what it should ok 7 - resolve(usr bin) return isa DBIx::Path ok 8 - node->reverse returned 1 result ok 9 - an arrayref ok 10 - and it looks like what it should ok 11 - resolve(usr bin perl) return isa DBIx::Path ok 12 - node->reverse returned 1 result ok 13 - an arrayref ok 14 - and it looks like what it should ok t\3-add..........1..12 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - add('lib', 10) returned something ok 4 - isa DBIx::Path ok 5 - get('lib') returned something ok 6 - isa DBIx::Path ok 7 - pids match ok 8 - ids match ok 9 - names match ok 10 - re-add('lib', 11) fails ok 11 - and sets $! to EEXIST ok 12 - get('lib') unaffected ok t\3-del..........1..9 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - Sanity check--all is right in the world isa DBIx::Path ok 4 - del('tmp') thinks it worked ok 5 - ...and it was right. ok 6 - Proper error return from get() ok 7 - Sanity check again ok 8 - del('lost+found') fails, as it should ok 9 - $! is ENOENT ok t\3-set..........1..12 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - set('lib', 10) returned something ok 4 - isa DBIx::Path ok 5 - get('lib') returned something ok 6 - isa DBIx::Path ok 7 - pids match ok 8 - ids match ok 9 - names match ok 10 - re-set('lib', 11) returned something ok 11 - isa DBIx::Path ok 12 - get('lib') registers change ok t\4-lock.........1..16 ok 1 - use DBIx::Path; ok 2 - Constructor return isa DBIx::Path ok 3 - Initialization: Locks and unlocks even ok 4 - Initialization: Took 0 lock(s) ok 5 - get: Locks and unlocks even ok 6 - get: Took 1 lock(s) ok 7 - list: Locks and unlocks even ok 8 - list: Took 1 lock(s) ok 9 - resolve: Locks and unlocks even ok 10 - resolve: Took 1 lock(s) ok 11 - add: Locks and unlocks even ok 12 - add: Took 1 lock(s) ok 13 - del: Locks and unlocks even ok 14 - del: Took 1 lock(s) ok 15 - set: Locks and unlocks even ok 16 - set: Took 1 lock(s) ok All tests successful. Files=11, Tests=155, 7 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)