aboutsummaryrefslogtreecommitdiff
path: root/gen/test/gleam@dynamic_test.erl
diff options
context:
space:
mode:
authorPeter Saxton <peterhsaxton@gmail.com>2020-05-19 17:23:11 +0100
committerGitHub <noreply@github.com>2020-05-19 17:23:11 +0100
commita805e1fcdc2393aa789ef2dfb15a00669e3e079b (patch)
treecbad9cee5c94fcbbbf797869ed05d80107349c68 /gen/test/gleam@dynamic_test.erl
parent88ab320ab452d3151f4f4b391dafd57af07e863c (diff)
downloadgleam_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.erl199
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
- )
- ).