@@ -8,7 +8,6 @@ import gleam/int
88import gleam/list
99import gleam/option . { Some }
1010import gleam/set
11- import gleeunit/should
1211
1312@ external ( erlang , "gleam_erlang_ffi" , "identity" )
1413fn unsafe_coerce ( a : dynamic . Dynamic ) -> anything
@@ -84,8 +83,8 @@ pub fn receive_other_test() {
8483 process . spawn ( fn ( ) { process . send ( subject , process . new_subject ( ) ) } )
8584 let assert Ok ( subject ) = process . receive ( subject , 20 )
8685
87- assert_panic ( fn ( ) { process . receive ( subject , 0 ) } )
88- |> should . equal ( "Cannot receive with a subject owned by another process" )
86+ assert assert_panic ( fn() { process.receive(subject, 0) })
87+ == "Cannot receive with a subject owned by another process"
8988}
9089
9190pub fn receive_forever_test() {
@@ -153,20 +152,19 @@ pub fn selector_test() {
153152}
154153
155154pub fn monitor_normal_exit_test() {
156- monitor_process_exit ( fn ( ) { Nil } )
157- |> should . equal ( process . Normal )
155+ assert monitor_process_exit(fn() { Nil }) == process.Normal
158156}
159157
160158pub fn monitor_killed_test() {
161- monitor_process_exit ( fn ( ) { process . kill ( process . self ( ) ) } )
162- |> should . equal ( process . Killed )
159+ assert monitor_process_exit(fn() { process.kill(process.self()) })
160+ == process.Killed
163161}
164162
165163pub fn monitor_abnormal_exit_test() {
166- monitor_process_exit ( fn ( ) {
167- process . send_abnormal_exit ( process . self ( ) , "reason" )
168- } )
169- |> should . equal ( process . Abnormal ( dynamic . from ( "reason" ) ) )
164+ assert monitor_process_exit(fn() {
165+ process.send_abnormal_exit(process.self(), "reason")
166+ })
167+ == process.Abnormal(dynamic.string ("reason"))
170168}
171169
172170/// Spawns a child, monitors exits, runs `terminating_with` in the child,
@@ -563,20 +561,19 @@ pub fn merge_selector_test() {
563561}
564562
565563pub fn select_trapped_exits_kill_test() {
566- select_trapped_exits ( fn ( ) { process . kill ( process . self ( ) ) } )
567- |> should . equal ( process . Killed )
564+ assert select_trapped_exits(fn() { process.kill(process.self()) })
565+ == process.Killed
568566}
569567
570568pub fn select_trapped_exits_abnormal_test() {
571- select_trapped_exits ( fn ( ) {
572- process . send_abnormal_exit ( process . self ( ) , "reason" )
573- } )
574- |> should . equal ( process . Abnormal ( dynamic . from ( "reason" ) ) )
569+ assert select_trapped_exits(fn() {
570+ process.send_abnormal_exit(process.self(), "reason")
571+ })
572+ == process.Abnormal(dynamic.string ("reason"))
575573}
576574
577575pub fn select_trapped_exits_normal_test() {
578- select_trapped_exits ( fn ( ) { Nil } )
579- |> should . equal ( process . Normal )
576+ assert select_trapped_exits(fn() { Nil }) == process.Normal
580577}
581578
582579/// Traps exits, starts a linked child, runs `terminating_with` in the child,
@@ -606,8 +603,11 @@ pub fn flush_messages_test() {
606603 let assert Error(Nil) = process.receive(subject, 0)
607604}
608605
606+ @external(erlang, "gleam_erlang_ffi", "identity")
607+ fn atom_to_dynamic(atom: atom.Atom) -> dynamic.Dynamic
608+
609609pub fn register_name_taken_test() {
610- let taken_name = unsafe_coerce ( dynamic . from ( atom . create ( "code_server" ) ) )
610+ let taken_name = unsafe_coerce(atom_to_dynamic (atom.create("code_server")))
611611 let assert Ok(a) = process.named(taken_name)
612612 let assert Error(Nil) = process.register(process.self(), taken_name)
613613 let assert Ok(b) = process.named(taken_name)
@@ -641,18 +641,14 @@ pub fn deselect_test() {
641641 let selector1 = selector0 |> process.select(subject1)
642642 let selector2 = selector1 |> process.select(subject2)
643643
644- selector2
645- |> process . deselect ( subject2 )
646- |> should . equal ( selector1 )
644+ assert process.deselect(selector2, subject2) == selector1
647645
648- selector1
649- |> process . deselect ( subject1 )
650- |> should . equal ( selector0 )
646+ assert process.deselect(selector1, subject1) == selector0
651647
652- selector2
653- |> process . deselect ( subject1 )
654- |> process . deselect ( subject2 )
655- |> should . equal ( selector0 )
648+ assert selector2
649+ |> process.deselect(subject1)
650+ |> process.deselect(subject2)
651+ == selector0
656652}
657653
658654pub fn name_test() {
0 commit comments