Bug 11247: Add a simple unit test for TransformHtmlToXml

[koha.git] / t / SIP_Sip.t

diff --git a/t/SIP_Sip.t b/t/SIP_Sip.t
index 879c983..f670277 100755 (executable)
--- a/t/SIP_Sip.t
+++ b/t/SIP_Sip.t
@@ -1,27 +1,58 @@
 #!/usr/bin/perl
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
 #
-# This Koha test module is a stub!  
-# Add more tests here!!!
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
-use Test::More tests => 4;
+use Test::More tests => 9;
+use Test::Warn;
 
 BEGIN {
-        use FindBin;
-        use lib "$FindBin::Bin/../C4/SIP";
         use_ok('C4::SIP::Sip');
 }
 
-my $date_time = Sip::timestamp();
+my $date_time = C4::SIP::Sip::timestamp();
 like( $date_time, qr/^\d{8}    \d{6}$/, 'Timestamp format no param');
 
 my $t = time();
 
-$date_time = Sip::timestamp($t);
+$date_time = C4::SIP::Sip::timestamp($t);
 like( $date_time, qr/^\d{8}    \d{6}$/, 'Timestamp format secs');
 
-$date_time = Sip::timestamp('2011-01-12');
+$date_time = C4::SIP::Sip::timestamp('2011-01-12');
 ok( $date_time eq '20110112    235900', 'Timestamp iso date string');
 
+my $myChecksum = C4::SIP::Sip::Checksum::checksum("12345");
+my $checker = 65281;
+my $stringChecksum = C4::SIP::Sip::Checksum::checksum("teststring");
+my $stringChecker = 64425;
+
+is( $myChecksum, $checker, "Checksum: $myChecksum matches expected output");
+is( $stringChecksum, $stringChecker, "Checksum: $stringChecksum matches expected output");
+
+my $testdata = "abcdAZ";
+my $something = C4::SIP::Sip::Checksum::checksum($testdata);
+
+$something =  sprintf("%4X", $something);
+ok( C4::SIP::Sip::Checksum::verify_cksum($testdata.$something), "Checksum: $something is valid.");
+
+my $invalidTest;
+warning_is { $invalidTest = C4::SIP::Sip::Checksum::verify_cksum("1234567") }
+            'verify_cksum: no sum detected',
+            'verify_cksum prints the expected warning for an invalid checksum';
+is($invalidTest, 0, "Checksum: 1234567 is invalid as expected");
+
+1;