Checking if your kit is complete... Looks good Writing Makefile for Text::Starfish cp Starfish.pm blib/lib/Text/Starfish.pm cp starfish blib/script/starfish /Users/cpanrun/build/5.10.0/bin/perl "-MExtUtils::MY" -e "MY->fixin(shift)" blib/script/starfish Manifying blib/man3/Text::Starfish.3 PERL_DL_NONLAZY=1 /Users/cpanrun/build/5.10.0/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl 1..5 # Running under perl version 5.010000 for darwin # Current time local: Sun Dec 16 08:06:53 2007 # Current time GMT: Sun Dec 16 16:06:53 2007 # Using Test.pm version 1.25 ok 1 not ok 2 # Test 2 got: "\nTesting Hook adding:\n\n#\n\n# some normal text\n\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSD}(\\w*)>/g) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDii}(\\w*)>/ig) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDi}(\\w*)>/ig) { NEW \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcat}(\\w*)>/g) { and so on \"d$1\";}\n\nTest finished.\n\n\n\n# This is a comment\n\n # This is not a comment\n" (test.pl at line 154) # Expected: "\nTesting Hook adding:\n\n#\n\n# some normal text\n\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSD}(\\w*)>/g) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDii}(\\w*)>/ig) { and so on \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcatSDi}(\\w*)>/ig) { NEW \"d$1\";}\nwhile (/\\b$Qrel\\b[ ,\\w]*<${wQcat}(\\w*)>/g) { and so on \"d$1\";}\n\nTest finished.\n\n\n\n\n\n # This is not a comment\n" # (Install the Algorithm::Diff module to have differences in multiline # output explained. You might also set the PERL_TEST_DIFF environment # variable to run a diff program on the output.) # test.pl line 154 is: if (! ok(getfile($f2), getfile($f1)) ) Files: ../testfiles/01.out and 01.out not ok 3 # Test 3 got: "\n
\n