diff options
Diffstat (limited to 'gen/test/atom_test.erl')
| -rw-r--r-- | gen/test/atom_test.erl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gen/test/atom_test.erl b/gen/test/atom_test.erl new file mode 100644 index 0000000..ae9f76b --- /dev/null +++ b/gen/test/atom_test.erl @@ -0,0 +1,23 @@ +-module(atom_test). +-compile(no_auto_import). + +-export([from_string_test/0, create_from_string_test/0, to_string_test/0]). + +from_string_test() -> + expect:is_ok(atom:from_string(<<"ok">>)), + expect:is_ok(atom:from_string(<<"expect">>)), + expect:is_error(atom:from_string(<<"this is not an atom we have seen before">>)). + +create_from_string_test() -> + expect:equal({ok, atom:create_from_string(<<"ok">>)}, + atom:from_string(<<"ok">>)), + expect:equal({ok, atom:create_from_string(<<"expect">>)}, + atom:from_string(<<"expect">>)), + expect:equal({ok, + atom:create_from_string(<<"this is another atom we have not seen before">>)}, + atom:from_string(<<"this is another atom we have not seen before">>)). + +to_string_test() -> + expect:equal(atom:to_string(atom:create_from_string(<<"ok">>)), <<"ok">>), + expect:equal(atom:to_string(atom:create_from_string(<<"expect">>)), + <<"expect">>). |