Test feature flags; to remove

Author: dumbbell

deps/rabbit/src/rabbit_core_ff.erl

@@ -7,6 +7,28 @@
 
 -module(rabbit_core_ff).
 
+-export([fail/1]).
+
+-rabbit_feature_flag(
+   {a_stable_ff,
+    #{desc => "Stable feature flag",
+      stability => stable,
+      callbacks => #{enable => {?MODULE, fail}}}}).
+
+-rabbit_feature_flag(
+   {exp_sup_ff,
+    #{desc => "Supported experimental feature flag",
+      stability => experimental,
+      experiment_level => supported,
+      callbacks => #{enable => {?MODULE, fail}}}}).
+
+-rabbit_feature_flag(
+   {exp_unsup_ff,
+    #{desc => "Unsupported experimental feature flag",
+      stability => experimental,
+      experiment_level => unsupported,
+      callbacks => #{enable => {?MODULE, fail}}}}).
+
 -rabbit_feature_flag(
    {classic_mirrored_queue_version,
     #{desc          => "Support setting version for classic mirrored queues",
@@ -205,3 +227,7 @@
       stability     => stable,
       depends_on    => [message_containers]
      }}).
+
+fail(Args) ->
+    timer:sleep(2000),
+    throw({pouet, Args}).