fixup file perms; tests for crypto_sign and crypto_sign_detached

mgregoro · Oct 1, 2015 · f733f76 · f733f76
1 parent 835fa30
commit f733f76
Show file tree

Hide file tree

Showing 11 changed files with 12 additions and 2 deletions.
diff --git a/Changes b/Changes
diff --git a/MANIFEST b/MANIFEST
diff --git a/META.json b/META.json
diff --git a/META.yml b/META.yml
diff --git a/Makefile.PL b/Makefile.PL
diff --git a/README b/README
diff --git a/README.md b/README.md
diff --git a/Sodium.xs b/Sodium.xs
diff --git a/lib/Crypt/Sodium.pm b/lib/Crypt/Sodium.pm
diff --git a/ppport.h b/ppport.h
diff --git a/t/Crypt-Sodium.t b/t/Crypt-Sodium.t
@@ -38,7 +38,7 @@ is(crypto_box_open($enciphered, $n, $pk1, $sk2), $message, "Testing roundtrip of
 is(crypto_hash($message), crypto_hash($message), "Testing hash comparison");
 is(length(randombytes_buf(24)), 24, "Testing random bytes output");
 
-# test new password hashing functionality
+# test password hashing functionality
 my $cleartext = "abc123";
 my $salt = crypto_pwhash_salt;
 my $key = crypto_pwhash_scrypt($cleartext, $salt);
@@ -48,4 +48,14 @@ my $hp = crypto_pwhash_scrypt_str($cleartext, $salt);
 is(crypto_pwhash_scrypt_str_verify($hp, $cleartext), 1, "test crypto_pwhash_scrypt_str_verify positive");
 is(crypto_pwhash_scrypt_str_verify($hp, $cleartext . "not"), undef, "test crypto_pwhash_scrypt_str_verify negative");
 
-done_testing();
+my ($spk, $ssk) = sign_keypair();
+# test sigs
+my $signed = crypto_sign($cleartext, $ssk);
+is(crypto_sign_open($signed, $spk), $cleartext, "verifying crypto_sign signed message");
+
+# test detached sigs
+my $sig = crypto_sign_detached($cleartext, $ssk);
+is(crypto_sign_verify_detached($sig, $cleartext, $spk), 1, "verifying crypto_sign_detached signature");
+
+done_testing();
+