Show
Ignore:
Timestamp:
06/03/08 16:45:23 (6 years ago)
Author:
tokuhirom
Message:

use modern autobox style.

Location:
lang/perl/autobox-DateTime-Duration/trunk/t
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/autobox-DateTime-Duration/trunk/t/01_duration.t

    r4659 r13120  
    1212run { 
    1313    my $block = shift; 
    14     my $duration = eval "use autobox; use autobox::DateTime::Duration;" . $block->input; 
     14    my $duration = eval "use autobox::DateTime::Duration;" . $block->input; 
    1515    die $@ if $@; 
    1616    is $base->clone->add_duration($duration)->iso8601, $block->expected, $block->input; 
  • lang/perl/autobox-DateTime-Duration/trunk/t/02_ago_from_now.t

    r4659 r13120  
    1212run { 
    1313    my $block = shift; 
    14     my $datetime = eval "use autobox; use autobox::DateTime::Duration;" . $block->input . "(\$base)"; 
     14    my $datetime = eval "use autobox::DateTime::Duration;" . $block->input . "(\$base)"; 
    1515    die $@ if $@; 
    1616    is $datetime->iso8601, $block->expected, $block->input;