Checking if your kit is complete... Looks good Writing Makefile for Text::Modify 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 Manifying blib/man3/Text::Buffer.3 Manifying blib/man3/Text::Modify::Rule.3 Manifying blib/man3/Text::Modify.3 PERL_DL_NONLAZY=1 /home/cpanrun/pa-risc1.1/build/5.8.2/bin/perl "-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 (t/02-buffer.t at line 78) # got: undef # expected: '2' not ok 44 - Wildcard find next # TODO Wilcard options not implemented # Failed (TODO) test (t/02-buffer.t at 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(0x40023518) (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..0 # Skip Test::Pod 1.00 required for testing POD skipped all skipped: Test::Pod 1.00 required for testing POD All tests successful, 2 tests skipped. Files=5, Tests=84, 7 wallclock secs ( 6.11 cusr + 0.38 csys = 6.49 CPU) Installing /home/cpanrun/pa-risc1.1/build/5.8.2/lib/site_perl/5.8.2/Text/Buffer.pm Installing /home/cpanrun/pa-risc1.1/build/5.8.2/lib/site_perl/5.8.2/Text/Modify.pm Installing /home/cpanrun/pa-risc1.1/build/5.8.2/lib/site_perl/5.8.2/Text/Modify/Rule.pm Installing /home/cpanrun/pa-risc1.1/build/5.8.2/man/man3/Text::Buffer.3 Installing /home/cpanrun/pa-risc1.1/build/5.8.2/man/man3/Text::Modify::Rule.3 Installing /home/cpanrun/pa-risc1.1/build/5.8.2/man/man3/Text::Modify.3 Appending installation info to /home/cpanrun/pa-risc1.1/build/5.8.2/lib/5.8.2/PA-RISC1.1-thread-multi/perllocal.pod