add -t flag to bulk void for payment type, RT#73413

[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);
 
+print "\n";
+
 ###
 # 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" );
 
@@ -50,8 +59,6 @@ foreach my $condition ( @conditions ) {
 # overall
 ###
 
-print "\n";
-
 my $run = $cust_event->test_conditions;
 
 print "\n". $part_event->eventpart.': '. $part_event->event.