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
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);