diff options
author | Peter Saxton <peterhsaxton@gmail.com> | 2020-05-19 17:23:11 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-05-19 17:23:11 +0100 |
commit | a805e1fcdc2393aa789ef2dfb15a00669e3e079b (patch) | |
tree | cbad9cee5c94fcbbbf797869ed05d80107349c68 /gen/test/gleam@dynamic_test.erl | |
parent | 88ab320ab452d3151f4f4b391dafd57af07e863c (diff) | |
download | gleam_stdlib-a805e1fcdc2393aa789ef2dfb15a00669e3e079b.tar.gz gleam_stdlib-a805e1fcdc2393aa789ef2dfb15a00669e3e079b.zip |
Add gen to ignored files in git (#47)
Diffstat (limited to 'gen/test/gleam@dynamic_test.erl')
-rw-r--r-- | gen/test/gleam@dynamic_test.erl | 199 |
1 files changed, 0 insertions, 199 deletions
diff --git a/gen/test/gleam@dynamic_test.erl b/gen/test/gleam@dynamic_test.erl deleted file mode 100644 index 785af15..0000000 --- a/gen/test/gleam@dynamic_test.erl +++ /dev/null @@ -1,199 +0,0 @@ --module(gleam@dynamic_test). --compile(no_auto_import). - --export([string_test/0, int_test/0, float_test/0, thunk_test/0, bool_test/0, atom_test/0, list_test/0, field_test/0, element_test/0]). - -string_test() -> - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from(<<""/utf8>>)), - {ok, <<""/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from(<<"Hello"/utf8>>)), - {ok, <<"Hello"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from(1)), - {error, <<"Expected a string, got an int"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from([])), - {error, <<"Expected a string, got a list"/utf8>>} - ). - -int_test() -> - gleam@should:equal(gleam@dynamic:int(gleam@dynamic:from(1)), {ok, 1}), - gleam@should:equal(gleam@dynamic:int(gleam@dynamic:from(2)), {ok, 2}), - gleam@should:equal( - gleam@dynamic:int(gleam@dynamic:from(1.0)), - {error, <<"Expected an int, got a float"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:int(gleam@dynamic:from([])), - {error, <<"Expected an int, got a list"/utf8>>} - ). - -float_test() -> - gleam@should:equal(gleam@dynamic:float(gleam@dynamic:from(1.0)), {ok, 1.0}), - gleam@should:equal(gleam@dynamic:float(gleam@dynamic:from(2.2)), {ok, 2.2}), - gleam@should:equal( - gleam@dynamic:float(gleam@dynamic:from(1)), - {error, <<"Expected a float, got an int"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:float(gleam@dynamic:from([])), - {error, <<"Expected a float, got a list"/utf8>>} - ). - -thunk_test() -> - gleam@should:be_ok(gleam@dynamic:thunk(gleam@dynamic:from(fun() -> 1 end))), - gleam@should:equal( - gleam@result:map( - gleam@dynamic:thunk(gleam@dynamic:from(fun() -> 1 end)), - fun(F) -> F() end - ), - {ok, gleam@dynamic:from(1)} - ), - gleam@should:be_error( - gleam@dynamic:thunk(gleam@dynamic:from(fun(X) -> X end)) - ), - gleam@should:be_error(gleam@dynamic:thunk(gleam@dynamic:from(1))), - gleam@should:be_error(gleam@dynamic:thunk(gleam@dynamic:from([]))). - -bool_test() -> - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from(true)), - {ok, true} - ), - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from(false)), - {ok, false} - ), - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from(1)), - {error, <<"Expected a bool, got an int"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from([])), - {error, <<"Expected a bool, got a list"/utf8>>} - ). - -atom_test() -> - gleam@should:equal( - gleam@dynamic:atom( - gleam@dynamic:from(gleam@atom:create_from_string(<<""/utf8>>)) - ), - {ok, gleam@atom:create_from_string(<<""/utf8>>)} - ), - gleam@should:equal( - gleam@dynamic:atom( - gleam@dynamic:from(gleam@atom:create_from_string(<<"ok"/utf8>>)) - ), - {ok, gleam@atom:create_from_string(<<"ok"/utf8>>)} - ), - gleam@should:be_error(gleam@dynamic:atom(gleam@dynamic:from(1))), - gleam@should:be_error(gleam@dynamic:atom(gleam@dynamic:from([]))). - -list_test() -> - gleam@should:equal( - gleam@dynamic:list(gleam@dynamic:from([]), fun gleam@dynamic:string/1), - {ok, []} - ), - gleam@should:equal( - gleam@dynamic:list(gleam@dynamic:from([]), fun gleam@dynamic:int/1), - {ok, []} - ), - gleam@should:equal( - gleam@dynamic:list( - gleam@dynamic:from([1, 2, 3]), - fun gleam@dynamic:int/1 - ), - {ok, [1, 2, 3]} - ), - gleam@should:equal( - gleam@dynamic:list( - gleam@dynamic:from([[1], [2], [3]]), - fun(GleamCaptureVariable) -> - gleam@dynamic:list( - GleamCaptureVariable, - fun gleam@dynamic:int/1 - ) - end - ), - {ok, [[1], [2], [3]]} - ), - gleam@should:be_error( - gleam@dynamic:list(gleam@dynamic:from(1), fun gleam@dynamic:string/1) - ), - gleam@should:be_error( - gleam@dynamic:list(gleam@dynamic:from(1.0), fun gleam@dynamic:int/1) - ), - gleam@should:be_error( - gleam@dynamic:list( - gleam@dynamic:from([<<""/utf8>>]), - fun gleam@dynamic:int/1 - ) - ), - gleam@should:be_error( - gleam@dynamic:list( - gleam@dynamic:from( - [gleam@dynamic:from(1), - gleam@dynamic:from(<<"not an int"/utf8>>)] - ), - fun gleam@dynamic:int/1 - ) - ). - -field_test() -> - {ok, OkAtom} = gleam@atom:from_string(<<"ok"/utf8>>), - {ok, ErrorAtom} = gleam@atom:from_string(<<"error"/utf8>>), - gleam@should:equal( - gleam@dynamic:field( - gleam@dynamic:from(gleam@map:insert(gleam@map:new(), OkAtom, 1)), - OkAtom - ), - {ok, gleam@dynamic:from(1)} - ), - gleam@should:equal( - gleam@dynamic:field( - gleam@dynamic:from( - gleam@map:insert( - gleam@map:insert(gleam@map:new(), OkAtom, 3), - ErrorAtom, - 1 - ) - ), - OkAtom - ), - {ok, gleam@dynamic:from(3)} - ), - gleam@should:be_error( - gleam@dynamic:field(gleam@dynamic:from(gleam@map:new()), OkAtom) - ), - gleam@should:be_error(gleam@dynamic:field(gleam@dynamic:from(1), OkAtom)), - gleam@should:be_error(gleam@dynamic:field(gleam@dynamic:from([]), [])). - -element_test() -> - {ok, OkAtom} = gleam@atom:from_string(<<"ok"/utf8>>), - OkOneTuple = {OkAtom, 1}, - gleam@should:equal( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), 0), - {ok, gleam@dynamic:from(OkAtom)} - ), - gleam@should:equal( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), 1), - {ok, gleam@dynamic:from(1)} - ), - gleam@should:be_error( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), 2) - ), - gleam@should:be_error( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), -1) - ), - gleam@should:be_error(gleam@dynamic:element(gleam@dynamic:from(1), 0)), - gleam@should:be_error( - gleam@dynamic:element( - gleam@dynamic:from(gleam@map:insert(gleam@map:new(), 1, OkAtom)), - 0 - ) - ). |