[freeside-commits] branch master updated. cf5cc61b84cfde1d1c2bd96bd8e1b69c9b15306e

[Ivan]

The branch, master has been updated
       via  cf5cc61b84cfde1d1c2bd96bd8e1b69c9b15306e (commit)
      from  65573c262573834104caa1bad0d2867150b8a12e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit cf5cc61b84cfde1d1c2bd96bd8e1b69c9b15306e
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Thu Mar 31 14:29:00 2016 -0700

    test scripts for yip, RT#41267

diff --git a/bin/past_due-event b/bin/past_due-event
new file mode 100644
index 0000000..a0866f7
--- /dev/null
+++ b/bin/past_due-event
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+use strict;
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearchs );
+use FS::cust_bill;
+use FS::part_event;
+
+adminsuidsetup shift or die &usage;
+
+my $cust_bill = qsearchs('cust_bill', { 'invnum' => shift } )
+  or die "Unknown invnum\n";
+
+my $days = shift;
+
+my %days2eventpart = ( #dev server
+  1 => 2,
+  3 => 9,
+  5 => 10,
+  7 => 11,
+ 10 => 12,
+);
+
+#based on event name :/ good enough for this test
+my $part_event = qsearchs('part_event', { 'eventpart' => $days2eventpart{$days} } )
+  or die "unknown event for $days days\n";
+
+my $cust_event = $part_event->new_cust_event($cust_bill);
+
+my $error = $cust_event->do_event();
+if ( $error ) {
+  warn "$error\n";
+} else {
+  warn $part_event->event. " event run\n";
+}
+
+sub usage {
+  "Usage:\n\npast_due-event employee_username custnum days\n";
+}
+
+1;
diff --git a/bin/payment_received-event b/bin/payment_received-event
new file mode 100644
index 0000000..9e809a5
--- /dev/null
+++ b/bin/payment_received-event
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict;
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearchs );
+use FS::cust_pay;
+use FS::part_event;
+
+my $eventpart = 3; #dev server
+
+adminsuidsetup shift or die &usage;
+
+my $cust_pay = qsearchs('cust_pay', { 'paynum' => shift } )
+  or die "Unknown paynum\n";
+
+my $part_event = qsearchs('part_event', { 'eventpart' => $eventpart } )
+  or die "unknown eventnum $eventpart\n";
+
+my $cust_event = $part_event->new_cust_event($cust_pay);
+
+my $error = $cust_event->do_event();
+if ( $error ) {
+  warn "$error\n";
+} else {
+  warn $part_event->event. " event run\n";
+}
+
+sub usage {
+  "Usage:\n\npayment_received-event employee_username paynum\n";
+}
+
+1;

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

Summary of changes:
 bin/past_due-event         |   41 +++++++++++++++++++++++++++++++++++++++++
 bin/payment_received-event |   32 ++++++++++++++++++++++++++++++++
 2 files changed, 73 insertions(+)
 create mode 100644 bin/past_due-event
 create mode 100644 bin/payment_received-event