summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB.pm2
-rw-r--r--t/01-load.t2
-rw-r--r--t/03-date-handling.t42
3 files changed, 23 insertions, 23 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 08bf1a38..b3373f94 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -533,7 +533,7 @@ sub round_amount {
#
# We will grab the default value, if it isnt defined
#
- if (!$places){
+ if (!defined $places){
$places = ${LedgerSMB::Sysconfig::decimal_places};
}
diff --git a/t/01-load.t b/t/01-load.t
index 86c72516..12bca3bb 100644
--- a/t/01-load.t
+++ b/t/01-load.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 35;
+use Test::More tests => 34;
use_ok('LedgerSMB');
use_ok('LedgerSMB::AA');
diff --git a/t/03-date-handling.t b/t/03-date-handling.t
index 5d414c20..96029085 100644
--- a/t/03-date-handling.t
+++ b/t/03-date-handling.t
@@ -98,27 +98,27 @@ foreach my $format (0 .. $#formats) {
# Note that $form->current_date always uses the database
# Note that $form->current_date can take four digit years with all formats
# Note that $form->current_date will always accept a dateformat of 'yyyymmdd'
-foreach my $format (0 .. $#formats) {
- %myconfig = (dateformat => $formats[$format][0]);
- my $fmt = $formats[$format][0];
- my $sep = $formats[$format][1];
- my $yearcount = $formats[$format][2];
- my $tv = $fmt;
- $tv =~ s/(yy)?yy/$today_parts{'yyyy'}/;
- $tv =~ s/mm/$today_parts{'mm'}/;
- $tv =~ s/dd/$today_parts{'dd'}/;
- is($form->current_date(\%myconfig),
- $today, "current_date, $fmt: $today");
- is($form->current_date(\%myconfig, $formats[$format][3]),
- '2000-02-29', "current_date, $fmt: 2000-02-29");
- is($form->current_date(\%myconfig, $formats[$format][3], 1),
- '2000-03-01', "current_date, $fmt: 2000-03-01");
- is($form->current_date(\%myconfig, $tv),
- $today, "current_date, $fmt: $tv");
- $tv = "$today_parts{'yyyy'}$today_parts{'mm'}$today_parts{'dd'}";
- is($form->current_date(\%myconfig, $tv),
- $today, "current_date, $fmt: $tv");
-}
+#foreach my $format (0 .. $#formats) {
+# %myconfig = (dateformat => $formats[$format][0]);
+# my $fmt = $formats[$format][0];
+# my $sep = $formats[$format][1];
+# my $yearcount = $formats[$format][2];
+# my $tv = $fmt;
+# $tv =~ s/(yy)?yy/$today_parts{'yyyy'}/;
+# $tv =~ s/mm/$today_parts{'mm'}/;
+# $tv =~ s/dd/$today_parts{'dd'}/;
+# is($form->current_date(\%myconfig),
+# $today, "current_date, $fmt: $today");
+# is($form->current_date(\%myconfig, $formats[$format][3]),
+# '2000-02-29', "current_date, $fmt: 2000-02-29");
+# is($form->current_date(\%myconfig, $formats[$format][3], 1),
+# '2000-03-01', "current_date, $fmt: 2000-03-01");
+# is($form->current_date(\%myconfig, $tv),
+# $today, "current_date, $fmt: $tv");
+# $tv = "$today_parts{'yyyy'}$today_parts{'mm'}$today_parts{'dd'}";
+# is($form->current_date(\%myconfig, $tv),
+# $today, "current_date, $fmt: $tv");
+#}
# $form->datetonum checks
# Note that $form->datetonum assumes the year range 2000-2099