Jonathan Druart
f1f9c6dc74
.pm must not have -x .t must have -x .pl must have -x Test plan: Apply only the first patch, run the tests and confirm that the failures make sense Apply this patch and confirm that the test now returns green Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
28 lines
729 B
Perl
Executable file
28 lines
729 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# sc_status: test basic connection, login, and response
|
|
# to the SC Status message, which has to be sent before
|
|
# anything else
|
|
|
|
use strict;
|
|
use warnings;
|
|
use FindBin qw($Bin);
|
|
use lib "$Bin";
|
|
|
|
use SIPtest qw($datepat $username $password $login_test $sc_status_test);
|
|
|
|
my $invalid_uname = { id => 'Invalid username',
|
|
msg => "9300CNinvalid$username|CO$password|CPThe floor|",
|
|
pat => qr/^940/,
|
|
fields => [], };
|
|
|
|
my $invalid_pwd = { id => 'Invalid password',
|
|
msg => "9300CN$username|COinvalid$password|CPThe floor|",
|
|
pat => qr/^940/,
|
|
fields => [], };
|
|
|
|
my @tests = ( $invalid_uname, $invalid_pwd, $login_test, $sc_status_test );
|
|
|
|
SIPtest::run_sip_tests(@tests);
|
|
|
|
1;
|