@@ -134,25 +134,22 @@ t_float_to_string(Config) when is_list(Config) ->
134134 test_fts (" 1.00000000000000000000e+00" ,1.0 , []),
135135 test_fts (" -1.00000000000000000000e+00" ,- 1.0 , []),
136136 test_fts (" -1.00000000000000000000" ,- 1.0 , [{decimals , 20 }]),
137- % % FIXME: Cleanup.
138- {'EXIT' , {badarg , _ }} = (catch float_to_list (1.0 , [{decimals , - 1 }])),
139- {'EXIT' , {badarg , _ }} = (catch float_to_list (1.0 , [{decimals , 254 }])),
140- {'EXIT' , {badarg , _ }} = (catch float_to_list (1.0 , [{scientific , 250 }])),
141- {'EXIT' , {badarg , _ }} = (catch float_to_list (1.0e+300 , [{decimals , 1 }])),
142- {'EXIT' , {badarg , _ }} = (catch float_to_binary (1.0 , [{decimals , - 1 }])),
143- {'EXIT' , {badarg , _ }} = (catch float_to_binary (1.0 , [{decimals , 254 }])),
144- {'EXIT' , {badarg , _ }} = (catch float_to_binary (1.0 , [{scientific , 250 }])),
145- {'EXIT' , {badarg , _ }} = (catch float_to_binary (1.0e+300 , [{decimals , 1 }])),
137+ ? assertError (badarg , float_to_list (1.0 , [{decimals , - 1 }])),
138+ ? assertError (badarg , float_to_list (1.0 , [{decimals , 254 }])),
139+ ? assertError (badarg , float_to_list (1.0 , [{scientific , 250 }])),
140+ ? assertError (badarg , float_to_list (1.0e+300 , [{decimals , 1 }])),
141+ ? assertError (badarg , float_to_binary (1.0 , [{decimals , - 1 }])),
142+ ? assertError (badarg , float_to_binary (1.0 , [{decimals , 254 }])),
143+ ? assertError (badarg , float_to_binary (1.0 , [{scientific , 250 }])),
144+ ? assertError (badarg , float_to_binary (1.0e+300 , [{decimals , 1 }])),
146145 test_fts (" 1.0e+300" ,1.0e+300 , [{scientific , 1 }]),
147146 test_fts (" 1.0" ,1.0 , [{decimals , 249 }, compact ]),
148147 test_fts (" 1" ,1.0 ,[{decimals ,0 }]),
149148 test_fts (" 2" ,1.9 ,[{decimals ,0 }]),
150149 test_fts (" 123456789012345680.0" ,123456789012345678.0 ,
151150 [{decimals , 236 }, compact ]),
152- {'EXIT' , {badarg , _ }} = (catch float_to_list (
153- 123456789012345678.0 , [{decimals , 237 }])),
154- {'EXIT' , {badarg , _ }} = (catch float_to_binary (
155- 123456789012345678.0 , [{decimals , 237 }])),
151+ ? assertError (badarg , float_to_list (123456789012345678.0 , [{decimals , 237 }])),
152+ ? assertError (badarg , float_to_binary (123456789012345678.0 , [{decimals , 237 }])),
156153 test_fts (" 1." ++ lists :duplicate (249 , $0 ) ++ " e+00" ,
157154 1.0 , [{scientific , 249 }, compact ]),
158155
@@ -552,14 +549,14 @@ t_string_to_float_safe(Config) when is_list(Config) ->
552549 test_stf (127.5 ," 127.5" ),
553550 test_stf (- 199.5 ," -199.5" ),
554551
555- { 'EXIT' ,{ badarg ,_ }} = ( catch list_to_float (id (" 0" ))),
556- { 'EXIT' ,{ badarg ,_ }} = ( catch list_to_float (id (" 0..0" ))),
557- { 'EXIT' ,{ badarg ,_ }} = ( catch list_to_float (id (" 0e12" ))),
558- { 'EXIT' ,{ badarg ,_ }} = ( catch list_to_float (id (" --0.0" ))),
559- { 'EXIT' ,{ badarg ,_ }} = ( catch binary_to_float (id (<<" 0" >>))),
560- { 'EXIT' ,{ badarg ,_ }} = ( catch binary_to_float (id (<<" 0..0" >>))),
561- { 'EXIT' ,{ badarg ,_ }} = ( catch binary_to_float (id (<<" 0e12" >>))),
562- { 'EXIT' ,{ badarg ,_ }} = ( catch binary_to_float (id (<<" --0.0" >>))),
552+ ? assertError ( badarg , list_to_float (id (" 0" ))),
553+ ? assertError ( badarg , list_to_float (id (" 0..0" ))),
554+ ? assertError ( badarg , list_to_float (id (" 0e12" ))),
555+ ? assertError ( badarg , list_to_float (id (" --0.0" ))),
556+ ? assertError ( badarg , binary_to_float (id (<<" 0" >>))),
557+ ? assertError ( badarg , binary_to_float (id (<<" 0..0" >>))),
558+ ? assertError ( badarg , binary_to_float (id (<<" 0e12" >>))),
559+ ? assertError ( badarg , binary_to_float (id (<<" --0.0" >>))),
563560
564561 UBin = <<0 :3 ,(id (<<" 0.0" >>))/binary ,0 :5 >>,
565562 <<_ :3 ,UnAlignedBin :3 /binary ,0 :5 >> = id (UBin ),
@@ -577,10 +574,10 @@ t_string_to_float_safe(Config) when is_list(Config) ->
577574t_string_to_float_risky (Config ) when is_list (Config ) ->
578575 Many_Ones = lists :duplicate (25000 , id ($1 )),
579576 id (list_to_float (" 2." ++ Many_Ones )),
580- { 'EXIT' , { badarg , _ }} = ( catch list_to_float (" 2" ++ Many_Ones )),
577+ ? assertError ( badarg , list_to_float (" 2" ++ Many_Ones )),
581578
582579 id (binary_to_float (list_to_binary (" 2." ++ Many_Ones ))),
583- { 'EXIT' , { badarg , _ }} = ( catch binary_to_float (
580+ ? assertError ( badarg , binary_to_float (
584581 list_to_binary (" 2" ++ Many_Ones ))),
585582 ok .
586583
@@ -750,10 +747,8 @@ t_integer_to_string(Config) when is_list(Config) ->
750747
751748 % % Invalid types
752749 lists :foreach (fun (Value ) ->
753- {'EXIT' , {badarg , _ }} =
754- (catch erlang :integer_to_binary (Value )),
755- {'EXIT' , {badarg , _ }} =
756- (catch erlang :integer_to_list (Value ))
750+ ? assertError (badarg , erlang :integer_to_binary (Value )),
751+ ? assertError (badarg , erlang :integer_to_list (Value ))
757752 end ,[atom ,1.2 ,0.0 ,[$1 ,[$2 ]]]),
758753
759754 % % Base-2 integers
@@ -772,10 +767,8 @@ t_integer_to_string(Config) when is_list(Config) ->
772767 16 ),
773768
774769 lists :foreach (fun (Value ) ->
775- {'EXIT' , {badarg , _ }} =
776- (catch erlang :integer_to_binary (Value , 8 )),
777- {'EXIT' , {badarg , _ }} =
778- (catch erlang :integer_to_list (Value , 8 ))
770+ ? assertError (badarg , erlang :integer_to_binary (Value , 8 )),
771+ ? assertError (badarg , erlang :integer_to_list (Value , 8 ))
779772 end ,[atom ,1.2 ,0.0 ,[$1 ,[$2 ]]]),
780773
781774 ok .
@@ -829,26 +822,20 @@ t_string_to_integer(Config) when is_list(Config) ->
829822
830823 % % Invalid types
831824 lists :foreach (fun (Value ) ->
832- {'EXIT' , {badarg , _ }} =
833- (catch bin_to_int (Value )),
834- {'EXIT' , {badarg , _ }} =
835- (catch list_to_integer (Value ))
825+ ? assertError (badarg , bin_to_int (Value )),
826+ ? assertError (badarg , list_to_integer (Value ))
836827 end ,[atom ,1.2 ,0.0 ,[$1 ,[$2 ]]]),
837828
838829 % % Default base error cases
839830 lists :foreach (fun (Value ) ->
840- {'EXIT' , {badarg , _ }} =
841- (catch bin_to_int (list_to_binary (Value ))),
842- {'EXIT' , {badarg , _ }} =
843- (catch list_to_integer (Value ))
831+ ? assertError (badarg , bin_to_int (list_to_binary (Value ))),
832+ ? assertError (badarg , list_to_integer (Value ))
844833 end ,[" 1.0" ," 1" ," -1" ," " ," +" ]),
845834
846835 % % Custom base error cases
847836 lists :foreach (fun ({Value ,Base }) ->
848- {'EXIT' , {badarg , _ }} =
849- (catch binary_to_integer (list_to_binary (Value ), Base )),
850- {'EXIT' , {badarg , _ }} =
851- (catch list_to_integer (Value , Base ))
837+ ? assertError (badarg , binary_to_integer (list_to_binary (Value ), Base )),
838+ ? assertError (badarg , list_to_integer (Value , Base ))
852839 end ,
853840 [{" 1" ,1 },{" 1" ,37 },{" 2" ,2 },{" B" ,11 },{" b" ,11 },{" :" , 16 },
854841 {" 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111z" ,16 },
@@ -865,9 +852,9 @@ t_string_to_integer(Config) when is_list(Config) ->
865852
866853 % % System limit
867854 Digits = lists :duplicate (3_000_000 , $9 ),
868- { 'EXIT' ,{ system_limit ,_ }} = catch list_to_integer (Digits ),
855+ ? assertError ( system_limit , list_to_integer (Digits ) ),
869856 _ = erlang :garbage_collect (),
870- { 'EXIT' ,{ system_limit ,_ }} = catch list_to_integer (Digits , 16 ),
857+ ? assertError ( system_limit , list_to_integer (Digits , 16 ) ),
871858 _ = erlang :garbage_collect (),
872859 {error ,system_limit } = string :to_integer (Digits ),
873860 _ = erlang :garbage_collect (),
0 commit comments