Show
Ignore:
Timestamp:
09/25/08 13:47:21 (5 years ago)
Author:
lopnor
Message:

lang/perl/App-Hachero: update accesscount test to follow current interface

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-Hachero/trunk/t/plugin/analyze/02_accesscount.t

    r19768 r19897  
    33use Test::Base; 
    44use App::Hachero; 
     5use App::Hachero::Result; 
    56 
    67plan tests => (1 * blocks); 
    … …  
    3334    $app->run_hook('parse'); 
    3435    $app->run_hook('analyze'); 
    35     my $value = (values %{$app->result->{AccessCount}->data})[0]; 
     36    my $value = ($app->result->{AccessCount}->values)[0]; 
    3637    is_deeply $value, $block->expected; 
    3738}