| Lines 6-12
          
      
      
        Link Here | 
        
          | 6 | use strict; | 6 | use strict; | 
        
          | 7 | use warnings; | 7 | use warnings; | 
        
          | 8 |  | 8 |  | 
          
            
              | 9 | use Test::More tests => 4; | 9 | use Test::More tests => 8; | 
        
          | 10 |  | 10 |  | 
        
          | 11 | BEGIN { | 11 | BEGIN { | 
        
          | 12 |         use FindBin; | 12 |         use FindBin; | 
  
    | Lines 25-27
          like( $date_time, qr/^\d{8}    \d{6}$/, 'Timestamp format secs');
      
      
        Link Here | 
        
          | 25 | $date_time = Sip::timestamp('2011-01-12'); | 25 | $date_time = Sip::timestamp('2011-01-12'); | 
        
          | 26 | ok( $date_time eq '20110112    235900', 'Timestamp iso date string'); | 26 | ok( $date_time eq '20110112    235900', 'Timestamp iso date string'); | 
        
          | 27 |  | 27 |  | 
          
            
              | 28 | -  | 28 | my $myChecksum = Sip::Checksum::checksum("12345"); | 
            
              |  |  | 29 | my $checker = 65281; | 
            
              | 30 | my $stringChecksum = Sip::Checksum::checksum("teststring"); | 
            
              | 31 | my $stringChecker = 64425; | 
            
              | 32 |  | 
            
              | 33 | is( $myChecksum, $checker, "Checksum: $myChecksum matches expected output"); | 
            
              | 34 | is( $stringChecksum, $stringChecker, "Checksum: $stringChecksum matches expected output"); | 
            
              | 35 |  | 
            
              | 36 | my $testdata = "abcdAZ"; | 
            
              | 37 | my $something = Sip::Checksum::checksum($testdata); | 
            
              | 38 |  | 
            
              | 39 | $something =  sprintf("%4X", $something); | 
            
              | 40 | ok( Sip::Checksum::verify_cksum($testdata.$something), "Checksum: $something is valid."); | 
            
              | 41 |  | 
            
              | 42 | my $invalidTest = Sip::Checksum::verify_cksum("1234567"); | 
            
              | 43 | is($invalidTest, 0, "Checksum: 1234567 is invalid as expected"); |