projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't create test htpasswd on 4.x
[freeside.git]
/
bin
/
test-event
diff --git
a/bin/test-event
b/bin/test-event
old mode 100644
(file)
new mode 100755
(executable)
index
061e000
..
73c9d31
--- a/
bin/test-event
+++ b/
bin/test-event
@@
-26,13
+26,22
@@
my $object = qsearchs($table, { $pkey => $tablenum } )
my $cust_event = $part_event->new_cust_event($object);
my $cust_event = $part_event->new_cust_event($object);
+print "\n";
+
###
# specifics
###
my @conditions = $part_event->part_event_condition;
foreach my $condition ( @conditions ) {
###
# specifics
###
my @conditions = $part_event->part_event_condition;
foreach my $condition ( @conditions ) {
- my $sat = $condition->condition( $object, 'cust_event' => $cust_event );
+ my $sat = $condition->condition( $object,
+ 'cust_event' => $cust_event,
+ 'time' => time,
+ );
+
+ my $sql = $condition->condition_sql();
+
+
print $condition->conditionname. '.pm: '.
( $sat ? "satisfied\n" : "NOT SATISFIED\n" );
print $condition->conditionname. '.pm: '.
( $sat ? "satisfied\n" : "NOT SATISFIED\n" );
@@
-50,8
+59,6
@@
foreach my $condition ( @conditions ) {
# overall
###
# overall
###
-print "\n";
-
my $run = $cust_event->test_conditions;
print "\n". $part_event->eventpart.': '. $part_event->event.
my $run = $cust_event->test_conditions;
print "\n". $part_event->eventpart.': '. $part_event->event.