add tests

rvirding · Nov 30, 2024 · ddb42d8 · ddb42d8
1 parent 989d67b
commit ddb42d8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/luerl.erl b/src/luerl.erl
@@ -510,6 +510,10 @@ externalize(S) ->
 internalize(S) ->
     luerl_lib_math:internalize(S).
 
+%% put_private(Key, Value, State) ->
+%%   State.
+%% get_private(Key, State) ->
+%%   Value.
 put_private(Key, Value, S) ->
     Private = maps:put(Key, Value, S#luerl.private),
     S#luerl{private=Private}.

diff --git a/test/luerl_tests.erl b/test/luerl_tests.erl
@@ -42,3 +42,9 @@ invalid_value_test() ->
     State = luerl:init(),
     ?assertException(error, {badarg, {invalid, value}},
 		     luerl:encode({invalid, value}, State)).
+
+private_test() ->
+    State1 = luerl:init(),
+    State2 = luerl:put_private(secret, <<"mysecret">>, State1),
+    ?assertMatch(<<"mysecret">>, luerl:get_private(secret, State2)),
+    ?assertException(error, {badkey, missing}, luerl:get_private(missing, State2)).