pwhash_str_verify

eqc_test/enacl_eqc.erl

@@ -470,32 +470,31 @@ pwhash(Passwd, Salt) ->
     error:badarg -> badarg
   end.
 
-% pwhash
+pwhash_str(Passwd) ->
-% pwhash_str
+  try
-% pwhash_str_verify
+    enacl:pwhash_str(Passwd)
-% prop_pwhash() ->
+  catch
-%     ?FORALL({Passwd, Salt},
+    error:badarg -> badarg
-%             {?FAULT_RATE(1, 40, g_iodata()),
+  end.
-%              ?FAULT_RATE(1, 40, g_binary(16))},
-%       begin
-%         case v_iodata(Passwd) andalso v_binary(16, Salt) of
-%           true ->
-%             {ok, PasswdHash} = enacl:pwhash(Passwd, Salt),
-%             equals();
 
-%       end).
+pwhash_str_verify(PasswdHash, Passwd) ->
+  try
+    enacl:pwhash_str_verify(PasswdHash, Passwd)
+  catch
+    error:badarg -> badarg
+  end.
 
 prop_pwhash_str_verify() ->
-    ?FORALL({PasswdHash, Passwd},
+    ?FORALL({Passwd},
-            {?FAULT_RATE(1, 40, g_binary(32)),
+            {?FAULT_RATE(1, 40, g_iodata())},
-             ?FAULT_RATE(1, 40, g_iodata())},
       begin
-        case v_binary(32, PasswdHash) andalso v_iodata(Passwd) of
+        case v_iodata(Passwd) of
           true ->
-            Verify = enacl:pwhash_str_verify(PasswdHash, Passwd),
+            {K, P} = enacl:pwhash_str(Passwd),
-            equals(true, Verify);
+            S = enacl:pwhash_str_verify(P, Passwd),
+            equals(S, true);
           false ->
-            badargs(fun() -> enacl:pwhash_str_verify(PasswdHash, Passwd) end)
+            badargs(fun() -> enacl:pwhash_str_verify(Passwd) end)
         end
       end).