Start 2009-01-31T08:14:37 Going to read /export/home/fly1064/var/cpan/Metadata Database was generated on Sat, 31 Jan 2009 12:26:56 GMT Running make for C/CH/CHROMATIC/Mail-TempAddress-0.62.tar.gz Checksum for /net/nas/data/cpan/authors/id/C/CH/CHROMATIC/Mail-TempAddress-0.62.tar.gz ok 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 >>> /export/home/fly1064/bin/perl Build.PL Checking whether your kit is complete... Looks good Checking prerequisites... Looks good Creating new 'Build' script for 'Mail-TempAddress' version '0.62' >>> ./Build ./Build: blib/lib/Mail/TempAddress.pm: cannot resolve L in paragraph 58. Copying lib/Mail/TempAddress/Address.pm -> blib/lib/Mail/TempAddress/Address.pm Copying lib/Mail/TempAddress.pm -> blib/lib/Mail/TempAddress.pm Copying lib/Mail/TempAddress/Addresses.pm -> blib/lib/Mail/TempAddress/Addresses.pm Manifying blib/lib/Mail/TempAddress/Addresses.pm -> blib/libdoc/Mail::TempAddress::Addresses.3 Manifying blib/lib/Mail/TempAddress/Address.pm -> blib/libdoc/Mail::TempAddress::Address.3 Manifying blib/lib/Mail/TempAddress.pm -> blib/libdoc/Mail::TempAddress.3 HTMLifying blib/lib/Mail/TempAddress/Addresses.pm -> blib/libhtml/site/lib/Mail/TempAddress/Addresses.html HTMLifying blib/lib/Mail/TempAddress/Address.pm -> blib/libhtml/site/lib/Mail/TempAddress/Address.html HTMLifying blib/lib/Mail/TempAddress.pm -> blib/libhtml/site/lib/Mail/TempAddress.html CHROMATIC/Mail-TempAddress-0.62.tar.gz ./Build -- OK Running Build test >>> ./Build test verbose=1 t/address........ 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...... 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 t/customer....... 1..30 ok 1 - use Mail::TempAddress; # Create a new alias and subscribe another user 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 # Sending a message to a temp 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 # Replying to a keyed alias 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 # Replying to a keyed alias in a Cc 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 # Expiration dates should work 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 # Descriptions should work ok 25 - description header should be present in responses # Respect multi-part messages ok 26 - should maintain content type header ok 27 - ... not adding extra newlines # Not sending to other To or Cc addresses ok 28 - resent message should go to only one recipient ok 29 - ... not preserving literal Cc ok 30 - ... or literal To ok t/tempaddress.... 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.28 usr 0.03 sys + 2.22 cusr 0.29 csys = 2.82 CPU) Result: PASS CHROMATIC/Mail-TempAddress-0.62.tar.gz ./Build test verbose=1 -- OK chromatic <chromatic@wgz.org> module for managing simple, temporary mailing addresses >>> (cd /export/home/fly1064/var/cpan/build/Mail-TempAddress-0.62-tgYVXu && tar cvf - Mail-TempAddress-0.62.ppd blib) | gzip -c >/export/home/fly1064/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 /export/home/fly1064/var/cpan/build/Mail-TempAddress-0.62-tgYVXu/Mail-TempAddress-0.62.ppd /export/home/fly1064/var/REPO/C/CH/CHROMATIC Finished 2009-01-31T08:14:50