[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.8.8-223-g6731eb2

? sunnavy sunnavy at bestpractical.com
Thu Aug 5 22:47:22 EDT 2010


The branch, 3.9-trunk has been updated
       via  6731eb2567c978d985fe20dffd68f05519808d42 (commit)
       via  b54be3e1023282b6cc59d4a8ba83ee8624f56ee5 (commit)
      from  8a2725a1031352ee57b28e21b496ce329bb31f17 (commit)

Summary of changes:
 lib/RT/Date.pm |    2 +-
 t/api/date.t   |   15 ++++++++++++++-
 2 files changed, 15 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit b54be3e1023282b6cc59d4a8ba83ee8624f56ee5
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Aug 6 10:45:40 2010 +0800

    string without \S should be set to unix 0

diff --git a/lib/RT/Date.pm b/lib/RT/Date.pm
index ef619f7..2684e8f 100755
--- a/lib/RT/Date.pm
+++ b/lib/RT/Date.pm
@@ -164,7 +164,7 @@ sub Set {
         @_
     );
 
-    return $self->Unix(0) unless $args{'Value'};
+    return $self->Unix(0) unless $args{'Value'} && $args{'Value'} =~ /\S/;
 
     if ( $args{'Format'} =~ /^unix$/i ) {
         return $self->Unix( $args{'Value'} );

commit 6731eb2567c978d985fe20dffd68f05519808d42
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Aug 6 10:46:11 2010 +0800

    edge case test for Date::Set with Format unknown

diff --git a/t/api/date.t b/t/api/date.t
index bc1446f..f2b159a 100644
--- a/t/api/date.t
+++ b/t/api/date.t
@@ -7,7 +7,7 @@ my $tests;
 
 my $localized_datetime_tests;
 BEGIN {
-    $tests = 167;
+    $tests = 170;
     $localized_datetime_tests =
       eval { require DateTime; 1; } && eval { require DateTime::Locale; 1; } &&
       DateTime->can('format_cldr') && DateTime::Locale::root->can('date_format_full');
@@ -557,6 +557,19 @@ my $year = (localtime(time))[5] + 1900;
     is($date->GetMonth(-13),  '',    '-13 and lesser are invalid');
 }
 
+{
+    # set unknown format: edge cases
+    my $date = RT::Date->new($RT::SystemUser);
+    $date->Set( Value => 0, Format => 'unknown' );
+    is( $date->Unix(), 0, "unix is 0 with Value => 0, Format => 'unknown'" );
+
+    $date->Set( Value => '', Format => 'unknown' );
+    is( $date->Unix(), 0, "unix is 0 with Value => '', Format => 'unknown'" );
+
+    $date->Set( Value => ' ', Format => 'unknown' );
+    is( $date->Unix(), 0, "unix is 0 with Value => ' ', Format => 'unknown'" );
+}
+
 #TODO: AsString
 #TODO: RFC2822, W3CDTF with Timezones
 

-----------------------------------------------------------------------


More information about the Rt-commit mailing list