Changeset 13120 for lang/perl/autobox-DateTime-Duration/trunk/t

Timestamp:

06/03/08 16:45:23 (5 years ago)

Author:

tokuhirom

Message:

use modern autobox style.

Location:

lang/perl/autobox-DateTime-Duration/trunk/t

Files:

• 01_duration.t (modified) (1 diff)
• 02_ago_from_now.t (modified) (1 diff)

lang/perl/autobox-DateTime-Duration/trunk/t/01_duration.t

@@ -12 +12 @@
 run {
     my $block = shift;
-    my $duration = eval "use autobox; use autobox::DateTime::Duration;" . $block->input;
+    my $duration = eval "use autobox::DateTime::Duration;" . $block->input;
     die $@ if $@;
     is $base->clone->add_duration($duration)->iso8601, $block->expected, $block->input;

lang/perl/autobox-DateTime-Duration/trunk/t/02_ago_from_now.t

@@ -12 +12 @@
 run {
     my $block = shift;
-    my $datetime = eval "use autobox; use autobox::DateTime::Duration;" . $block->input . "(\$base)";
+    my $datetime = eval "use autobox::DateTime::Duration;" . $block->input . "(\$base)";
     die $@ if $@;
     is $datetime->iso8601, $block->expected, $block->input;