Fix version bounds on some new tests

Author: josefs

test/should_fail/strict_generators_fail.erl

@@ -1,7 +1,7 @@
 -module(strict_generators_fail).
 
 -ifdef(OTP_RELEASE).
--if(?OTP_RELEASE >= 27).
+-if(?OTP_RELEASE >= 28).
 
 %% Each exported function should produce exactly one type error.
 
@@ -17,5 +17,5 @@ strict_gen_not_list(N) ->
 strict_gen_wrong_type() ->
     [X || X <:- [1, 2, 3]].
 
--endif. %% OTP >= 27
+-endif. %% OTP >= 28
 -endif. %% OTP_RELEASE

test/should_fail/zip_generators_fail.erl

@@ -1,5 +1,8 @@
 -module(zip_generators_fail).
 
+-ifdef(OTP_RELEASE).
+-if(?OTP_RELEASE >= 28).
+
 %% Each exported function should produce exactly one type error.
 
 -export([zip_not_list/1, zip_wrong_return/0]).
@@ -13,3 +16,6 @@ zip_not_list(N) ->
 -spec zip_wrong_return() -> integer().
 zip_wrong_return() ->
     [{X, Y} || X <- [1, 2] && Y <- [a, b]].
+
+-endif. %% OTP >= 28
+-endif. %% OTP_RELEASE

test/should_pass/map_comprehension_pass.erl

@@ -45,16 +45,6 @@ mc_from_binary() ->
 bc_from_map(M) ->
     << <<V>> || _K := V <- M >>.
 
-%% Strict map generator
--spec strict_mc(#{atom() => integer()}) -> #{atom() => integer()}.
-strict_mc(M) ->
-    #{K => V + 1 || K := V <:- M}.
-
-%% Strict map generator in list comprehension
--spec strict_map_gen_lc(#{atom() => integer()}) -> [integer()].
-strict_map_gen_lc(M) ->
-    [V || _K := V <:- M].
-
 %% Map comprehension with any() map
 -spec mc_any_map() -> map().
 mc_any_map() ->

test/should_pass/strict_generators_pass.erl

@@ -1,7 +1,7 @@
 -module(strict_generators_pass).
 
 -ifdef(OTP_RELEASE).
--if(?OTP_RELEASE >= 27).
+-if(?OTP_RELEASE >= 28).
 
 -compile([export_all, nowarn_export_all]).
 
@@ -50,5 +50,5 @@ strict_any_list() ->
 strict_union_list() ->
     [X || X <:- [apa, bepa]].
 
--endif. %% OTP >= 27
+-endif. %% OTP >= 28
 -endif. %% OTP_RELEASE

test/should_pass/strict_map_comprehension_pass.erl

@@ -0,0 +1,19 @@
+-module(strict_map_comprehension_pass).
+
+-ifdef(OTP_RELEASE).
+-if(?OTP_RELEASE >= 28).
+
+-compile([export_all, nowarn_export_all]).
+
+%% Strict map generator
+-spec strict_mc(#{atom() => integer()}) -> #{atom() => integer()}.
+strict_mc(M) ->
+    #{K => V + 1 || K := V <:- M}.
+
+%% Strict map generator in list comprehension
+-spec strict_map_gen_lc(#{atom() => integer()}) -> [integer()].
+strict_map_gen_lc(M) ->
+    [V || _K := V <:- M].
+
+-endif. %% OTP >= 28
+-endif. %% OTP_RELEASE

test/should_pass/zip_generators_pass.erl

@@ -1,5 +1,8 @@
 -module(zip_generators_pass).
 
+-ifdef(OTP_RELEASE).
+-if(?OTP_RELEASE >= 28).
+
 -compile([export_all, nowarn_export_all]).
 
 %% Basic zip generator - two list generators in lockstep
@@ -63,3 +66,6 @@ zip_outer_scope_in_arms(N) ->
 -spec zip_body_sees_rebound(atom()) -> [integer()].
 zip_body_sees_rebound(X) ->
     [X || X <- [1, 2, 3] && _Y <- [a, b, c]].
+
+-endif. %% OTP >= 28
+-endif. %% OTP_RELEASE