X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FSIP_Sip.t;h=f6702779d7a6e90a3e4a7f25c0db6ed382f931f2;hb=ab531790e394d5e89c031143029ee9f3b66e12dc;hp=50d1229964aaeee1b63ed4119c1f484997358fdd;hpb=84d7a0e3ef830a0b55ca2685ea163a068f2d5979;p=koha.git

diff --git a/t/SIP_Sip.t b/t/SIP_Sip.t
index 50d1229964..f6702779d7 100755
--- a/t/SIP_Sip.t
+++ b/t/SIP_Sip.t
@@ -1,16 +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.
+#
+# 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.
 #
-# This Koha test module is a stub!  
-# Add more tests here!!!
+# 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 => 1;
+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 = C4::SIP::Sip::timestamp();
+like( $date_time, qr/^\d{8}    \d{6}$/, 'Timestamp format no param');
+
+my $t = time();
+
+$date_time = C4::SIP::Sip::timestamp($t);
+like( $date_time, qr/^\d{8}    \d{6}$/, 'Timestamp format secs');
+
+$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;