end session at the end of these tests, as the next test is supposed to be outside...
authorJason Etheridge <jason@EquinoxOLI.org>
Mon, 28 Nov 2022 02:46:39 +0000 (21:46 -0500)
committerJason Etheridge <jason@EquinoxOLI.org>
Mon, 28 Nov 2022 02:46:39 +0000 (21:46 -0500)
t/13fee_paid.t

index 0e0a010..fca1349 100755 (executable)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use SIPtest qw($instid $user_barcode $user_with_fees_barcode);
+use SIPtest qw($instid $user_barcode $user_pin $user_with_fees_barcode);
 
 # fee type = unknown, payment type = cash
 
@@ -16,7 +16,12 @@ my $fee_paid_but_no_fees = { id => 'Fee Paid against user without fees',
               pat => qr/^38N/,
               fields => [], };
 
-my @tests = ( $SIPtest::login_test, $SIPtest::sc_status_test, $fee_paid_against_fees, $fee_paid_but_no_fees );
+my $end_session = { id => 'End Session',
+              msg => "3520060101    084237AO$instid|AA$user_barcode|AC|AD$user_pin|",
+              pat => qr/^36Y/,
+              fields => [], };
+
+my @tests = ( $SIPtest::login_test, $SIPtest::sc_status_test, $fee_paid_against_fees, $fee_paid_but_no_fees, $end_session );
 
 SIPtest::run_sip_tests(@tests);