$ /sw/bin/perl5.8.1 "-MExtUtils::Command::MM" "-e" "test_harness(1, 'inc', 'blib/lib', 'blib/arch')" t/05svm.t
t/05svm....1..29
ok 1 - mirror //m file:///tmp/svk-21410-1/A
ok 2 - mirror file:///tmp/svk-21410-1/A //m
ok 3 - add - help
ok 4 - mirror --upgrade
ok 5 - mirror --upgrade //m
not ok 6 - sync // # TODO better message
# Failed (TODO) test (t/05svm.t at line 35)
# Structures begin differing at:
# $got->[0] = 'no source found on / at /sw/lib/perl5/5.8.1/SVN/Mirror.pm line 102.'
# $expected->[0] = '// is not a mirrored path.'
not ok 7 - sync //what # TODO better message
# Failed (TODO) test (t/05svm.t at line 37)
# Structures begin differing at:
# $got->[0] = 'no source specificed at /sw/lib/perl5/5.8.1/SVN/Mirror.pm line 52.'
# $expected->[0] = '// is not a mirrored path.'
ok 8 - sync /what/
ok 9
ok 10 - commit -m "commit to mirrored path" t/checkout/svm
ok 11 - commit -m "commit to deep mirrored path" t/checkout/svm
ok 12
not ok 13 - update --sync --merge t/checkout/svm2
# Failed test (t/05svm.t at line 101)
# Structures begin differing at:
# $got->[3] = 'Can't find merge base for /m-99 and /m-99-copy'
# $expected->[3] = 'Auto-merging (10, 13) /m-99 to /m-99-copy (base /m-99:10).'
not ok 14 - smerge -m --from t/checkout/svm2
# Failed test (t/05svm.t at line 124)
# Structures begin differing at:
# $got->[0] = 'Can't find merge base for /m-99-copy and /m-99'
# $expected->[0] = 'Auto-merging (0, 14) /m-99-copy to /m-99 (base /m-99:13).'
not ok 15 - update --sync --merge --incremental t/checkout/svm2/T
# Failed test (t/05svm.t at line 137)
# Structures begin differing at:
# $got->[1] = 'Can't find merge base for /m-99 and /m-99-copy'
# $expected->[1] = 'Auto-merging (13, 16) /m-99 to /m-99-copy (base /m-99:13).'
ok 16 - mirror --list
ok 17 - repeated mirror failed
ok 18 - --detach on non-mirrored path
ok 19 - --detach inside a mirrored path
not ok 20 - --detach on mirrored path
# Failed test (t/05svm.t at line 165)
# Structures begin differing at:
# $got->[0] = 'Committed revision 16.'
# $expected->[0] = 'Committed revision 19.'
ok 21 - --detach on non-mirrored path
ok 22 - mirror //m file:///tmp/svk-21410-1/A
not ok 23 - update --sync --merge t/checkout/svm4
# Failed test (t/05svm.t at line 180)
# Structures begin differing at:
# $got->[1] = 'Auto-merging (10, 15) /m-99 to /m-99-copy-twice (base /m-99:10).'
# $expected->[1] = 'Auto-merging (16, 16) /m-99 to /m-99-copy-twice (base /m-99:16).'
not ok 24 - smerge -m --sync --from t/checkout/svm4
# Failed test (t/05svm.t at line 187)
# Structures begin differing at:
# $got->[0] = 'Auto-merging (0, 18) /m-99-copy-twice to /m-99 (base /m-99:15).'
# $expected->[0] = 'Auto-merging (0, 20) /m-99-copy-twice to /m-99 (base /m-99:16).'
not ok 25 - delete -m die! //m-99
# Failed test (t/05svm.t at line 193)
# Structures begin differing at:
# $got->[0] = 'Committed revision 19.'
# $expected->[0] = 'Committed revision 21.'
not ok 26 - mirror --recover //m
# Failed test (t/05svm.t at line 197)
# Structures begin differing at:
# $got->[0] = 'Analyzing revision 16...'
# $expected->[0] = 'Analyzing revision 19...'
not ok 27 - mirror --recover //m
# Failed test (t/05svm.t at line 215)
# Structures begin differing at:
# $got->[0] = 'Analyzing revision 22...'
# $expected->[0] = 'Analyzing revision 24...'
ok 28
not ok 29 - ps foo bar -m "ps on mirror" //m/Q-moved
# Failed test (t/05svm.t at line 224)
# Structures begin differing at:
# $got->[4] = 'Committed revision 25 from revision 32.'
# $expected->[4] = 'Committed revision 27 from revision 32.'
# Looks like you failed 10 tests of 29.
dubious
Test returned status 10 (wstat 2560, 0xa00)
DIED. FAILED tests 13-15, 20, 23-27, 29
Failed 10/29 tests, 65.52% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/05svm.t 10 2560 29 10 34.48% 13-15 20 23-27 29
Failed 1/1 test scripts, 0.00% okay. 10/29 subtests failed, 65.52% okay.