Checking if your kit is complete... Looks good Writing Makefile for Text::Modify Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. cp lib/Text/Buffer.pm blib\lib\Text\Buffer.pm cp lib/Text/Modify/Rule.pm blib\lib\Text\Modify\Rule.pm cp lib/Text/Modify.pm blib\lib\Text\Modify.pm Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/01-compile.........1..3 ok 1 - use Text::Buffer; ok 2 - use Text::Modify; ok 3 - use Text::Modify::Rule; ok t/02-buffer..........1..63 ok 1 - create empty buffer ok 2 - empty line count ok 3 - line pos is 1 (even on empty buffer) ok 4 - empty buffer is always EOF ok 5 - empty buffer is emtpy ok 6 - inserting bar ok 7 - correct line count after insert ok 8 - correct get after insert ok 9 - set current line ok 10 - get after set ok 11 - correct line pos after insert ok 12 - appending bar ok 13 - correct line pos after append ok 14 - correct line count after insert ok 15 - correct current line content after append ok 16 - appending 3 lines ok 17 - count after array append ok 18 - goto line 3 ok 19 - get content of line 3 ok 20 - goto line 1 by -2 ok 21 - get content of current line ok 22 - goto line 4 by +3 ok 23 - get content of current line ok 24 - get next ok 25 - get previous 2 ok 26 - goto top ok 27 - goto top ok 28 - goto top ok 29 - goto top ok 30 - goto top ok 31 - goto top ok 32 - goto invalid pos ok 33 - correct error ok 34 - error should be cleared after first get ok 35 - goto invalid pos ok 36 - correct error ok 37 - goto invalid pos ok 38 - correct error ok 39 - find no match ok 40 - find bar ok 41 - find next bar ok 42 - find next bar not ok 43 - Wildcard find # TODO Wilcard options not implemented # Failed (TODO) test 'Wildcard find' # at t/02-buffer.t line 78. # got: undef # expected: '2' not ok 44 - Wildcard find next # TODO Wilcard options not implemented # Failed (TODO) test 'Wildcard find next' # at t/02-buffer.t line 79. # got: undef # expected: '5' ok 45 - Create string for replace ok 46 - replace foo with bar ok 47 - replaced string also ok ok 48 - replace regex (ip) replacecount ok 49 - replace regex result ok 50 - replace plain string replacecount ok 51 - replace plain string result ok 52 - replace wildcard replacecount ok 53 - replace wildcard result ok 54 - replace wildcard 2 replacecount ok 55 - replace wildcard 2 result ok 56 - set autonewline to unix ok 57 - autonewline is unix ok 58 - save buffer ok 59 - saved and loaded equal ok 60 - remove tmpfile [DEBUG1] escape string: '*bar(foo)' ignoring: '' regex: '\/()[]{}+.*?' [DEBUG1] escape: '\\\/\(\)\[\]\{\}\+\.\*\?', string: '\*bar\(foo\)' ok 61 - escapeRegex class method [DEBUG1] escape string: 'a(b)c[d]+5.7\=fun' ignoring: '' regex: '\/()[]{}+.*?' [DEBUG1] escape: '\\\/\(\)\[\]\{\}\+\.\*\?', string: 'a\(b\)c\[d\]\+5\.7\\=fun' ok 62 - escapeRegex class method [DEBUG1] convert wildcard 'bar*foo' [DEBUG1] escape string: 'bar*foo' ignoring: '?*' regex: '\/()[]{}+.*?' [DEBUG1] escape: '\\\/\(\)\[\]\{\}\+\.', string: 'bar*foo' [DEBUG1] converted to regex: bar.*foo ok 63 - convertWildcard class method ok t/03-modify..........1..18 ok 1 - use Text::Modify; Using file: t\03-modify.in t\03-modify.out t\03-modify.tmp ok 2 - Instantiate Text::Modify object isa Text::Modify ok 3 - add rule (simple) ok 4 - add rule (string multi) ok 5 - add rule (regex simple) ok 6 - delete line rule ok 7 - add rule (regex with vars) ok 8 - add rule (regex + insert if missing) ok 9 ok 10 - Comparing t\03-modify.tmp with expected output t\03-modify.out [DEBUG] Setting option: file = t\03-modify.tmp.in.tmp [DEBUG] Setting option: writeto = t\03-modify.tmp [DEBUG] Setting option: dryrun = 0 [DEBUG] Setting option: backup = 0 [DEBUG] Created object Text::Modify as Text::Modify=HASH(0x1db929c) (Text::Modify) ok 11 - Instantiation of second test [DEBUG] Adding wildcard replace rule: 'more*' with 'nothing' [DEBUG] Defining rule 'rule0': replace,more*,type,wildcard,with,nothing,wildcard,more* [DEBUG1] convert wildcard 'more*' [DEBUG1] escape string: 'more*' ignoring: '?*' regex: '\/()[]{}+.*?' [DEBUG1] escape: '\\\/\(\)\[\]\{\}\+\.', string: 'more*' [DEBUG1] converted to regex: more.* [DEBUG] after escape: type=wildcard regex='more.*' with='nothing' (orig='more*') ok 12 - replace wildcard rule [DEBUG] Adding string replace rule: '*' with 'star' [DEBUG] Defining rule 'rule1': replace,*,string,*,type,string,with,star [DEBUG1] escape string: '*' ignoring: '' regex: '\/()[]{}+.*?' [DEBUG1] escape: '\\\/\(\)\[\]\{\}\+\.\*\?', string: '\*' [DEBUG] after escape: type=string regex='\*' with='star' (orig='*') ok 13 - replace string rule [DEBUG] Adding string replace rule: '.!' with 'dot,' [DEBUG] Defining rule 'rule2': replace,.!,string,.!,type,string,with,dot, [DEBUG1] escape string: '.!' ignoring: '' regex: '\/()[]{}+.*?' [DEBUG1] escape: '\\\/\(\)\[\]\{\}\+\.\*\?', string: '\.!' [DEBUG] after escape: type=string regex='\.!' with='dot,' (orig='.!') ok 14 - replace string rule [DEBUG] Adding regex replace rule: '\s+foo\s+' with ' bar ' [DEBUG] Defining rule 'rule3': replace,\s+foo\s+,regex,\s+foo\s+,type,regex,with, bar [DEBUG] after escape: type=regex regex='\s+foo\s+' with=' bar ' (orig='\s+foo\s+') ok 15 - replace regex rule [DEBUG] Adding regex replace rule: '^Little' with 'Big' [DEBUG] Defining rule 'rule4': replace,^Little,regex,^Little,type,regex,with,Big [DEBUG] after escape: type=regex regex='^Little' with='Big' (orig='^Little') ok 16 - replace regex rule [DEBUG] Read 6 from t\03-modify.tmp.in.tmp [DEBUG] Starting processing of data undef (error=0) [DEBUG] Returning ordered rules: rule0, rule1, rule2, rule3, rule4 [DEBUG] Processing rule rule0 [DEBUG] processing rule of type replace, regex is more.*, with is nothing [DEBUG] Eval: $found = ('This is a first line without foo and bar ' =~ /more.*/i) = [DEBUG] Eval: $found = ('Little foobar was here hitting foo with a bar ' =~ /more.*/i) = [DEBUG] Eval: $found = ('/dev/null need more beer ' =~ /more.*/i) = 1 [DEBUG] Found match on line 3 (rel 0): /dev/null need more beer [DEBUG] replacing with nothing [DEBUG] Eval: $found = ('a * is born without a .! Really? ' =~ /more.*/i) = [DEBUG] Eval: $found = ('goto /pub/; more beer ' =~ /more.*/i) = 1 [DEBUG] Found match on line 5 (rel 0): goto /pub/; more beer [DEBUG] replacing with nothing [DEBUG] Eval: $found = (' ' =~ /more.*/i) = [DEBUG] Processing ifmissing: ifmissing=unset matches=2 [DEBUG] === OUT === This is a first line without foo and bar Little foobar was here hitting foo with a bar /dev/null need nothing a * is born without a .! Really? goto /pub/; nothing === EOF === [DEBUG] Stats rule rule0 (change/match/repl/add/del): 0/2/2/0/0 [DEBUG] Processing rule rule1 [DEBUG] processing rule of type replace, regex is \*, with is star [DEBUG] Eval: $found = ('This is a first line without foo and bar ' =~ /\*/i) = [DEBUG] Eval: $found = ('Little foobar was here hitting foo with a bar ' =~ /\*/i) = [DEBUG] Eval: $found = ('/dev/null need nothing ' =~ /\*/i) = [DEBUG] Eval: $found = ('a * is born without a .! Really? ' =~ /\*/i) = 1 [DEBUG] Found match on line 4 (rel 0): a * is born without a .! Really? [DEBUG] replacing with star [DEBUG] Eval: $found = ('goto /pub/; nothing ' =~ /\*/i) = [DEBUG] Eval: $found = (' ' =~ /\*/i) = [DEBUG] Processing ifmissing: ifmissing=unset matches=1 [DEBUG] === OUT === This is a first line without foo and bar Little foobar was here hitting foo with a bar /dev/null need nothing a star is born without a .! Really? goto /pub/; nothing === EOF === [DEBUG] Stats rule rule1 (change/match/repl/add/del): 0/1/1/0/0 [DEBUG] Processing rule rule2 [DEBUG] processing rule of type replace, regex is \.!, with is dot, [DEBUG] Eval: $found = ('This is a first line without foo and bar ' =~ /\.!/i) = [DEBUG] Eval: $found = ('Little foobar was here hitting foo with a bar ' =~ /\.!/i) = [DEBUG] Eval: $found = ('/dev/null need nothing ' =~ /\.!/i) = [DEBUG] Eval: $found = ('a star is born without a .! Really? ' =~ /\.!/i) = 1 [DEBUG] Found match on line 4 (rel 0): a star is born without a .! Really? [DEBUG] replacing with dot, [DEBUG] Eval: $found = ('goto /pub/; nothing ' =~ /\.!/i) = [DEBUG] Eval: $found = (' ' =~ /\.!/i) = [DEBUG] Processing ifmissing: ifmissing=unset matches=1 [DEBUG] === OUT === This is a first line without foo and bar Little foobar was here hitting foo with a bar /dev/null need nothing a star is born without a dot, Really? goto /pub/; nothing === EOF === [DEBUG] Stats rule rule2 (change/match/repl/add/del): 0/1/1/0/0 [DEBUG] Processing rule rule3 [DEBUG] processing rule of type replace, regex is \s+foo\s+, with is bar [DEBUG] Eval: $found = ('This is a first line without foo and bar ' =~ /\s+foo\s+/i) = 1 [DEBUG] Found match on line 1 (rel 0): This is a first line without foo and bar [DEBUG] replacing with bar [DEBUG] Eval: $found = ('Little foobar was here hitting foo with a bar ' =~ /\s+foo\s+/i) = 1 [DEBUG] Found match on line 2 (rel 0): Little foobar was here hitting foo with a bar [DEBUG] replacing with bar [DEBUG] Eval: $found = ('/dev/null need nothing ' =~ /\s+foo\s+/i) = [DEBUG] Eval: $found = ('a star is born without a dot, Really? ' =~ /\s+foo\s+/i) = [DEBUG] Eval: $found = ('goto /pub/; nothing ' =~ /\s+foo\s+/i) = [DEBUG] Eval: $found = (' ' =~ /\s+foo\s+/i) = [DEBUG] Processing ifmissing: ifmissing=unset matches=2 [DEBUG] === OUT === This is a first line without bar and bar Little foobar was here hitting bar with a bar /dev/null need nothing a star is born without a dot, Really? goto /pub/; nothing === EOF === [DEBUG] Stats rule rule3 (change/match/repl/add/del): 0/2/2/0/0 [DEBUG] Processing rule rule4 [DEBUG] processing rule of type replace, regex is ^Little, with is Big [DEBUG] Eval: $found = ('This is a first line without bar and bar ' =~ /^Little/i) = [DEBUG] Eval: $found = ('Little foobar was here hitting bar with a bar ' =~ /^Little/i) = 1 [DEBUG] Found match on line 2 (rel 0): Little foobar was here hitting bar with a bar [DEBUG] replacing with Big [DEBUG] Eval: $found = ('/dev/null need nothing ' =~ /^Little/i) = [DEBUG] Eval: $found = ('a star is born without a dot, Really? ' =~ /^Little/i) = [DEBUG] Eval: $found = ('goto /pub/; nothing ' =~ /^Little/i) = [DEBUG] Eval: $found = (' ' =~ /^Little/i) = [DEBUG] Processing ifmissing: ifmissing=unset matches=1 [DEBUG] === OUT === This is a first line without bar and bar Big foobar was here hitting bar with a bar /dev/null need nothing a star is born without a dot, Really? goto /pub/; nothing === EOF === [DEBUG] Stats rule rule4 (change/match/repl/add/del): 0/1/1/0/0 [DEBUG] Statistics: Lines read: 6 Lines changed: 0 Lines matched: 7 Lines replaced: 7 Lines added: 0 Lines deleted: 0 ok 17 - Processing of rules ok 18 - Comparing t\03-modify.tmp with expected output t\03-modify.out ok t/99-pod-coverage....1..0 # Skip Test::Pod::Coverage 1.00 required for testing POD coverage skipped all skipped: Test::Pod::Coverage 1.00 required for testing POD coverage t/99-pod.............1..3 ok 1 - blib\lib\Text\Buffer.pm ok 2 - blib\lib\Text\Modify.pm ok 3 - blib\lib\Text\Modify\Rule.pm ok All tests successful, 1 test skipped. Files=5, Tests=87, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. Installing C:\cpanrun\build\5-10-0\html\site\lib\Text\Buffer.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Text\Modify.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Text\Modify\Rule.html Installing C:\cpanrun\build\5-10-0\site\lib\Text\Buffer.pm Installing C:\cpanrun\build\5-10-0\site\lib\Text\Modify.pm Installing C:\cpanrun\build\5-10-0\site\lib\Text\Modify\Rule.pm Appending installation info to C:\cpanrun\build\5-10-0\lib/perllocal.pod