Changeset 34437

Show
Ignore:
Timestamp:
07/15/09 17:47:38 (4 years ago)
Author:
lopnor
Message:

pass tests

Location:
lang/perl/App-Hachero/trunk
Files:
14 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Fetch/Gunzip.pm

    r34436 r34437  
    2929 
    30301; 
     31__END__ 
     32 
     33=pod 
     34 
     35=head1 NAME 
     36 
     37App::Hachero::Plugin::Fetch::Gunzip - gunzips '*.gz' files in work_path 
     38 
     39=head1 SYNOPSIS 
     40 
     41  --- 
     42  global: 
     43    work_path: /path/to/your/work_path 
     44  plugins: 
     45    - module: Fetch::Gunzip 
     46 
     47=head1 DESCRIPTION 
     48 
     49Gunzips '*.gz' files in work_path. 
     50 
     51=head2 implemented hooks 
     52 
     53=over 4 
     54 
     55=item * fetch 
     56 
     57=back 
     58 
     59=head1 AUTHOR 
     60 
     61Nobuo Danjou <nobuo.danjou@gmail.com> 
     62 
     63=head1 SEE ALSO 
     64 
     65L<App::Hachero> 
     66 
     67L<Net::Amazon::S3> 
     68 
     69=cut 

  • lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Fetch/S3.pm

    r34436 r34437  
    3939 
    40401; 
     41__END__ 
     42 
     43=pod 
     44 
     45=head1 NAME 
     46 
     47App::Hachero::Plugin::Fetch::S3 - fetchs logs from S3 
     48 
     49=head1 SYNOPSIS 
     50 
     51  --- 
     52  global: 
     53    work_path: /path/to/your/work_path 
     54  plugins: 
     55    - module: Fetch::S3 
     56      config: 
     57        aws_access_key_id: my_aws_access_key_id 
     58        aws_secret_access_key: my_aws_secret_access_key 
     59        bucket: my_bucket 
     60        prefix: access_log 
     61 
     62=head1 DESCRIPTION 
     63 
     64fetchs logs from S3. 
     65 
     66=head2 implemented hooks 
     67 
     68=over 4 
     69 
     70=item * fetch 
     71 
     72=back 
     73 
     74=head1 AUTHOR 
     75 
     76Nobuo Danjou <nobuo.danjou@gmail.com> 
     77 
     78=head1 SEE ALSO 
     79 
     80L<App::Hachero> 
     81 
     82L<Net::Amazon::S3> 
     83 
     84=cut 

  • lang/perl/App-Hachero/trunk/t/plugin/analyze/03_useragent.t

    r31968 r34437  
    55 
    66BEGIN { 
    7     eval { require 'HTTP::DetectUserAgent' }; 
    8     if ($!) { 
     7    eval { require HTTP::DetectUserAgent }; 
     8    if ($@) { 
    99        plan skip_all => 'no HTTP::DetectUserAgent found'; 
    10     } else { 
    11         plan tests =>  (1 * blocks); 
    1210    } 
    1311} 
     12 
     13plan tests =>  (1 * blocks); 
    1414 
    1515my $config = { 
    … …  
    4949    my $value = (values %{$app->result->{UserAgent}->data})[0]; 
    5050    is_deeply $value, $block->expected; 
    51 } 
     51}; 
    5252 
    53 __END__ 
     53__DATA__ 
    5454=== test1 
    5555--- input 

  • lang/perl/App-Hachero/trunk/t/plugin/classify/03_useragent.t

    r31968 r34437  
    55 
    66BEGIN { 
    7     eval { require 'HTTP::DetectUserAgent' }; 
    8     if ($!) { 
     7    eval { require HTTP::DetectUserAgent }; 
     8    if ($@) { 
    99        plan skip_all => 'no HTTP::DetectUserAgent found'; 
    10     } else { 
    11         plan tests =>  (1 * blocks); 
    1210    } 
    1311} 
     12 
     13plan tests =>  (1 * blocks); 
    1414 
    1515my $config = { 

  • lang/perl/App-Hachero/trunk/t/plugin/fetch/01_ftp.t

    r34436 r34437  
    66 
    77BEGIN { 
    8     eval {require 'Net::FTP'}; 
    9     if ($!) { 
     8    eval {require Net::FTP}; 
     9    if ($@) { 
    1010        plan skip_all => 'no Net::FTP found'; 
    1111    } elsif ($ENV{HACHERO_TEST_FTP}) { 

  • lang/perl/App-Hachero/trunk/t/plugin/fetch/02_ftp_multi.t

    r31968 r34437  
    66 
    77BEGIN { 
    8     eval {require 'Net::FTP'}; 
    9     if ($!) { 
     8    eval {require Net::FTP}; 
     9    if ($@) { 
    1010        plan skip_all => 'no Net::FTP found'; 
    1111    } elsif ($ENV{HACHERO_TEST_FTP}) { 
    … …  
    1313        use_ok('App::Hachero::Plugin::Fetch::FTP'); 
    1414    } else { 
    15         plan skip_all => 'set "TEST_HACHERO_FTP" to run this test.'; 
     15        plan skip_all => 'set "HACHERO_TEST_FTP" to run this test.'; 
    1616    } 
    1717} 

  • lang/perl/App-Hachero/trunk/t/plugin/fetch/03_s3.t

    r34436 r34437  
    88 
    99BEGIN { 
    10     eval {require 'Net::Amazon::S3'}; 
     10    eval {require Net::Amazon::S3}; 
    1111    if ($@) { 
    1212        plan skip_all => 'no Net::Amazon::S3 found'; 

  • lang/perl/App-Hachero/trunk/t/plugin/input/02_ftp.t

    r31968 r34437  
    55 
    66BEGIN { 
    7     eval {require 'Net::FTP'}; 
    8     if ($!) { 
     7    eval {require Net::FTP}; 
     8    if ($@) { 
    99        plan skip_all => 'no Net::FTP found'; 
    1010    } elsif ($ENV{HACHERO_TEST_FTP}) { 

  • lang/perl/App-Hachero/trunk/t/plugin/input/03_file.t

    r31968 r34437  
    55 
    66BEGIN { 
    7     eval {require 'File::Find::Rule'; require 'File::Find::Rule::Age';}; 
     7    eval {require File::Find::Rule; require File::Find::Rule::Age;}; 
    88    if ($@) { 
    99        plan skip_all => 'File::Find::Rule or File::Find::Rule::Age not found'; 
    … …  
    4343my @result; 
    4444for (@expected) { 
    45     $app->run_hook('input'); 
     45    $app->set_currentline; 
    4646    push @result, $app->currentline; 
    4747} 

  • lang/perl/App-Hachero/trunk/t/plugin/input/04_file_rule.t

    r31968 r34437  
    66 
    77BEGIN { 
    8     eval {require 'File::Find::Rule'; require 'File::Find::Rule::Age';}; 
     8    eval {require File::Find::Rule; require File::Find::Rule::Age;}; 
    99    if ($@) { 
    1010        plan skip_all => 'File::Find::Rule or File::Find::Rule::Age not found'; 
    11     } else { 
    12         plan tests => 1 * blocks; 
    1311    } 
    1412} 
     13plan tests => 1 * blocks; 
    1514 
    1615filters { 

  • lang/perl/App-Hachero/trunk/t/plugin/output/01_dbic.t

    r31968 r34437  
    66 
    77BEGIN { 
    8     eval {require 'DBIx::Class::Schema::Loader'}; 
     8    eval {require DBIx::Class::Schema::Loader}; 
    99    if ($@) { 
    1010        plan skip_all => 'no DBIx::Class::Schema::Loader found'; 

  • lang/perl/App-Hachero/trunk/t/plugin/output/02_dbic_countup.t

    r31968 r34437  
    66 
    77BEGIN { 
    8     eval {require 'DBIx::Class::Schema::Loader'}; 
     8    eval {require DBIx::Class::Schema::Loader}; 
    99    if ($@) { 
    1010        plan skip_all => 'no DBIx::Class::Schema::Loader found'; 

  • lang/perl/App-Hachero/trunk/t/plugin/output/03_dbic_failure.t

    r31968 r34437  
    77 
    88BEGIN { 
    9     eval {require 'DBIx::Class::Schema::Loader'}; 
     9    eval {require DBIx::Class::Schema::Loader}; 
    1010    if ($@) { 
    1111        plan skip_all => 'no DBIx::Class::Schema::Loader found'; 

  • lang/perl/App-Hachero/trunk/t/plugin/output/04_tt.t

    r31968 r34437  
    77 
    88BEGIN { 
    9     eval {require 'Template'}; 
     9    eval {require Template}; 
    1010    if ($@) { 
    1111        plan skip_all => 'no Template found'; 
    12     } else { 
    13         plan tests => (1 * blocks) + 1; 
    14         use_ok 'App::Hachero::Plugin::Output::TT'; 
    1512    } 
    1613} 
     14 
     15plan tests => (1 * blocks) + 1; 
     16use_ok 'App::Hachero::Plugin::Output::TT'; 
    1717 
    1818filters {