PATH=C:\Program Files\Microsoft Platform SDK\Bin;C:\Program Files\Microsoft Platform SDK\Bin\WinNT;C:\Program Files\Microsoft Visual Studio\VC98\Bin;C:\Program Files\Microsoft Visual Studio\Common\MSDev98\Bin;C:\Perl-5.8\site\bin;C:\Perl-5.8\bin;C:\cygwin\bin;C:\Program Files\Perforce;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WindowsPowerShell\v1.0;C:\WINDOWS\system32\WindowsPowerShell\v1.0;C:\mysql\bin Start 2011-08-03T09:35:52 ActivePerl-825 CPAN-1.9402 LIB=C:\PROGRA~1\MICROS~3\VC98\Lib\PSDK;C:\PROGRA~1\MICROS~2\Lib;C:\PROGRA~1\MICROS~3\VC98\Lib;C:\PROGRA~1\MICROS~3\VC98\MFC\Lib INCLUDE=C:\PROGRA~1\MICROS~2\Include;C:\PROGRA~1\MICROS~3\VC98\ATL\Include;C:\PROGRA~1\MICROS~3\VC98\Include;C:\PROGRA~1\MICROS~3\VC98\MFC\Include PATH=C:/CPANFL~1.8/var/libs/bin;C:\PROGRA~1\MICROS~2\Bin;C:\PROGRA~1\MICROS~2\Bin\WinNT;C:\PROGRA~1\MICROS~3\VC98\Bin;C:\PROGRA~1\MICROS~3\Common\MSDev98\Bin;C:\Perl-5.8\site\bin;C:\Perl-5.8\bin;C:\cygwin\bin;C:\PROGRA~1\Perforce;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WINDOW~2\v1.0;C:\WINDOWS\system32\WINDOW~2\v1.0;C:\mysql\bin Going to read 'C:\cpanfly-5.8\var\cpan\Metadata' Database was generated on Tue, 02 Aug 2011 18:27:22 GMT Running make for C/CH/CHROMATIC/Mail-TempAddress-0.62.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/C/CH/CHROMATIC/Mail-TempAddress-0.62.tar.gz Checksum for C:\cpanfly-5.8\var\cpan\sources\authors\id\C\CH\CHROMATIC\Mail-TempAddress-0.62.tar.gz ok Will not use Archive::Tar, need 1.00 Mail-TempAddress-0.62/ Mail-TempAddress-0.62/lib/ Mail-TempAddress-0.62/lib/Mail/ Mail-TempAddress-0.62/lib/Mail/TempAddress/ Mail-TempAddress-0.62/lib/Mail/TempAddress/Address.pm Mail-TempAddress-0.62/lib/Mail/TempAddress/Addresses.pm Mail-TempAddress-0.62/lib/Mail/TempAddress.pm Mail-TempAddress-0.62/t/ Mail-TempAddress-0.62/t/lib/ Mail-TempAddress-0.62/t/lib/FakeMail.pm Mail-TempAddress-0.62/t/lib/FakeIn.pm Mail-TempAddress-0.62/t/customer.t Mail-TempAddress-0.62/t/addresses.t Mail-TempAddress-0.62/t/tempaddress.t Mail-TempAddress-0.62/t/address.t Mail-TempAddress-0.62/META.yml Mail-TempAddress-0.62/MANIFEST Mail-TempAddress-0.62/ChangeLog Mail-TempAddress-0.62/Build.PL Mail-TempAddress-0.62/README CPAN.pm: Going to build C/CH/CHROMATIC/Mail-TempAddress-0.62.tar.gz >>> C:\Perl-5.8\bin\perl.exe Build.PL Created MYMETA.yml and MYMETA.json Creating new 'Build' script for 'Mail-TempAddress' version '0.62' >>> C:\Perl-5.8\bin\perl.exe ./Build Building Mail-TempAddress CHROMATIC/Mail-TempAddress-0.62.tar.gz C:\Perl-5.8\bin\perl.exe ./Build -- OK Running Build test >>> C:\Perl-5.8\bin\perl.exe ./Build test verbose=1 t\address.t ...... 1..39 ok 1 - use Mail::TempAddress::Address; ok 2 - Mail::TempAddress::Address->can('new') ok 3 - The object isa Mail::TempAddress::Address ok 4 - new() should turn passed-in arguments into object attributes ok 5 - Mail::TempAddress::Address->can('name') ok 6 - name() should return name set in constructor ok 7 - ... or should set and return cleand new name ok 8 - Mail::TempAddress::Address->can('owner') ok 9 - owner() should return value from constructor ok 10 - Mail::TempAddress::Address->can('add_sender') ok 11 - add_sender() should add one sender ok 12 - ... containing the sender ok 13 - ... returning key ok 14 - ... only hex digits in key ok 15 - ... always same key for same sender ok 16 - ... never same key for different sender ok 17 - Mail::TempAddress::Address->can('get_key') ok 18 - Mail::TempAddress::Address->can('get_sender') ok 19 - get_sender() should return sender by key ok 20 - ... but only if key exists ok 21 - Mail::TempAddress::Address->can('process_time') ok 22 - process_time() should return raw seconds directly ok 23 - ... processing days correctly ok 24 - ... processing weeks correctly ok 25 - ... processing hours correctly ok 26 - ... processing minutes correctly ok 27 - ... processing months correctly ok 28 - ... even in a nice list ok 29 - Mail::TempAddress::Address->can('expires') ok 30 - expires() should report expiration time from constructor ok 31 - ... with a false default ok 32 - ... and should set expiration ok 33 - ... parsing days correctly ok 34 - Mail::TempAddress::Address->can('description') ok 35 - description() should return description set in constructor ok 36 - ... using blank description if none is provided ok 37 - ... or should set and return new description ok 38 - Mail::TempAddress::Address->can('attributes') ok 39 - attributes() should return hashref of allowed directives ok t\addresses.t .... 1..29 ok 1 - use Mail::TempAddress::Addresses; ok 2 - Mail::TempAddress::Addresses->can('new') ok 3 - The object isa Mail::TempAddress::Addresses ok 4 - Mail::TempAddress::Addresses->can('storage_dir') ok 5 - storage_dir() should return value set in constructor ok 6 - ... or default value, if none is set ok 7 - Mail::TempAddress::Addresses->can('stored_class') ok 8 - stored_class() should be M::TA::Addresses ok 9 - Mail::TempAddress::Addresses->can('storage_extension') ok 10 - storage_extension() should return "mta" ok 11 - Mail::TempAddress::Addresses->can('storage_file') ok 12 - storage_file() should add path and extension to filename ok 13 - Mail::TempAddress::Addresses->can('exists') ok 14 - exists() should return true if file exists ok 15 - ... and false if it does not ok 16 - Mail::TempAddress::Addresses->can('generate_address') ok 17 - generate_address() should return a new address given no arg ok 18 - ... with only alphanumerics ok 19 - ... using given address ok 20 - ... unless it already exists ok 21 - Mail::TempAddress::Addresses->can('create') ok 22 - create() should create new Address object ok 23 - ... passing from address ok 24 - ... returning result ok 25 - Mail::TempAddress::Addresses->can('save') ok 26 - save() should save file given name ok 27 - Mail::TempAddress::Addresses->can('fetch') ok 28 - fetch() should fetch file, given name ok 29 - ... restoring all keys plus name ok # Create a new alias and subscribe another user # Sending a message to a temp address # Replying to a keyed alias # Replying to a keyed alias in a Cc # Expiration dates should work # Descriptions should work # Respect multi-part messages # Not sending to other To or Cc addresses t\customer.t ..... 1..30 ok 1 - use Mail::TempAddress; ok 2 - *new* list should reply to sender ok 3 - ... from the alias ok 4 - ... with a good subject ok 5 - ... and a creation message ok 6 - ... providing the temporary address ok 7 - message sent to temp addy should be resent to creator ok 8 - ... with subject preserved ok 9 - ... setting Reply-To to keyed alias ok 10 - ... preserving message body ok 11 - ... preserving other headers ok 12 - replying to resent message should respond to its sender ok 13 - ... from temporary address ok 14 - ... with body ok 15 - ... preserving other headers ok 16 - replying to resent message should respond to its sender ok 17 - ... from temporary address ok 18 - ... with body ok 19 - ... preserving other headers ok 20 - ... except for Cc ok 21 - sending expiration directive should set expires flag to true ok 22 - mta should throw exception on expired address ok 23 - ... setting $! to 100 ok 24 - ... sending no messages ok 25 - description header should be present in responses ok 26 - should maintain content type header ok 27 - ... not adding extra newlines ok 28 - resent message should go to only one recipient ok 29 - ... not preserving literal Cc ok 30 - ... or literal To ok t\tempaddress.t .. 1..97 ok 1 - use Mail::TempAddress; ok 2 - Mail::TempAddress->can('new') ok 3 - new() should throw error without address parameter ok 4 - The object isa Mail::TempAddress ok 5 - ... using data from passed-in filehandle ok 6 - ... or standard input without a filehandle ok 7 - ... accepting different Address object, if given ok 8 - ... accepting different Request object, if given ok 9 - Mail::TempAddress->can('storage') ok 10 - addresses() should return object that isa Mail::TempAddress::Addresses ok 11 - Mail::TempAddress->can('request') ok 12 - request() should return something that isa Mail::Action::Request ok 13 - Mail::TempAddress->can('message') ok 14 - message() should return something that isa Email::MIME ok 15 - Mail::TempAddress->can('find_command') ok 16 - find_command() should return command sub name if it exists ok 17 - ... but not if command does not ok 18 - ... or if no command found ok 19 - Mail::TempAddress->can('fetch_address') ok 20 - fetch_address() should return fetched Address ok 21 - ... but only if address exists ok 22 - ... returning fetched Address ok 23 - ... and key, if key exists ok 24 - Mail::TempAddress->can('deliver') ok 25 - deliver() should throw no exception with no expiration date ok 26 - ... checking for expiration ok 27 - ... adding sender to address ok 28 - ... using the From address ok 29 - ... checking for description ok 30 - ... sending message ok 31 - ... preserving Subject ok 32 - ... retaining From address ok 33 - ... setting To address properly ok 34 - ... adding key in Reply-To header ok 35 - ... preserving other headers ok 36 - ... not adding header for blank description ok 37 - ... saving ok 38 - ... address ok 39 - ... by name ok 40 - ... throwing exception if address has expired ok 41 - ... but not with expiration date set in future ok 42 - ... sending message ok 43 - ... adding header for address description ok 44 - Mail::TempAddress->can('respond') ok 45 - respond() should get sender from Address ok 46 - ... by key ok 47 - ... opening a message ok 48 - ... responding to keyed sender ok 49 - ... setting From address correctly ok 50 - ... copying Subject header ok 51 - ... and adding body ok 52 - ... throwing an exception unless sender is found ok 53 - Mail::TempAddress->can('process') ok 54 - process() should look for command ok 55 - ... calling it if present ok 56 - ... returning results ok 57 - ... but not calling it if absent ok 58 - ... fetching address ok 59 - ... delivering message, if address exists ok 60 - ... passing address ok 61 - ... returning result ok 62 - ... rejecting unless address exists ok 63 - ... responding to sender if a key exists ok 64 - ... passing address ok 65 - ... and key ok 66 - ... calling reject() if responding fails ok 67 - ... with the error message ok 68 - ... calling reject() if delivering fails ok 69 - ... with the error message ok 70 - Mail::TempAddress->can('process_body') ok 71 - process_body() should set directives found in message body ok 72 - ... for all directives found in body ok 73 - ... but only if they are Address directives ok 74 - Mail::TempAddress->can('reply') ok 75 - reply() should create new Mail::Mailer ok 76 - ... opening a new message ok 77 - ... with passed headers ok 78 - ... and printing ok 79 - ... passed body lines ok 80 - ... and closing the message ok 81 - Mail::TempAddress->can('command_new') ok 82 - command_new() should create a new Address object ok 83 - ... passing from address ok 84 - ... generating a new address ok 85 - ... processing body ok 86 - ... sending new Address object ok 87 - ... saving ok 88 - ... Address object ok 89 - ... with address name ok 90 - ... sending a reply ok 91 - ... with the right headers ok 92 - ... and a message body ok 93 - ... and the generated address ok 94 - Mail::TempAddress->can('reject') ok 95 - reject() should throw invalid address error by default ok 96 - ... or using the provided error message ok 97 - ... setting $! properly ok All tests successful. Files=4, Tests=195, 2 wallclock secs ( 0.05 usr + 0.00 sys = 0.05 CPU) Result: PASS CHROMATIC/Mail-TempAddress-0.62.tar.gz C:\Perl-5.8\bin\perl.exe ./Build test verbose=1 -- OK chromatic <chromatic@wgz.org> module for managing simple, temporary mailing addresses >>> (cd C:\cpanfly-5.8\var\cpan\build\Mail-TempAddress-0.62-XopBeZ && tar cvf - Mail-TempAddress-0.62.ppd blib) | gzip -c >C:/cpanfly-5.8/var/REPO/C/CH/CHROMATIC/Mail-TempAddress-0.62.tar.gz Mail-TempAddress-0.62.ppd blib/ blib/lib/ blib/lib/Mail/ blib/lib/Mail/TempAddress/ blib/lib/Mail/TempAddress/Address.pm blib/lib/Mail/TempAddress/Addresses.pm blib/lib/Mail/TempAddress.pm >>> mv C:\cpanfly-5.8\var\cpan\build\Mail-TempAddress-0.62-XopBeZ/Mail-TempAddress-0.62.ppd C:/cpanfly-5.8/var/REPO/C/CH/CHROMATIC Finished 2011-08-03T09:35:59