Build and test on OTP 22

rebar.config

@@ -1,5 +1,5 @@
 {erl_opts, [warnings_as_errors,
-	    {platform_define, "^2[0-1]{1}", fsm_deprecated},
+	    {platform_define, "^2[0-3]{1}", fsm_deprecated},
             {platform_define, "^1[7-8]{1}", old_rand},
             {platform_define, "^17", no_log2},
             {platform_define, "^R", no_sync},

src/leveled_inker.erl

@@ -1553,9 +1553,25 @@ handle_down_test() ->
     SnapOpts = #inker_options{start_snapshot=true,
                               bookies_pid = FakeBookie,
                               source_inker=Ink1},
-
     {ok, Snap1} = ink_snapstart(SnapOpts),
 
+    CheckSnapDiesFun =
+        fun(_X, IsDead) ->
+            case IsDead of
+                true ->
+                    true;
+                false ->
+                    case erlang:process_info(Snap1) of
+                        undefined ->
+                            true;
+                        _ ->
+                            timer:sleep(100),
+                            false
+                    end
+            end
+        end,
+    ?assertNot(lists:foldl(CheckSnapDiesFun, false, [1, 2])),
+
     FakeBookie ! stop,
 
     receive
@@ -1565,7 +1581,7 @@ handle_down_test() ->
             ok
     end,
 
-    ?assertEqual(undefined, erlang:process_info(Snap1)),
+    ?assert(lists:foldl(CheckSnapDiesFun, false, lists:seq(1, 10))),
 
     ink_close(Ink1),
     clean_testdir(RootPath).

src/leveled_penciller.erl

@@ -2388,6 +2388,23 @@ handle_down_test() ->
                 {ok, Snap, null}
         end,
     
+    CheckSnapDiesFun =
+        fun(_X, IsDead) ->
+            case IsDead of
+                true ->
+                    true;
+                false ->
+                    case erlang:process_info(PclSnap) of
+                        undefined ->
+                            true;
+                        _ ->
+                            timer:sleep(100),
+                            false
+                    end
+            end
+        end,
+    ?assertNot(lists:foldl(CheckSnapDiesFun, false, [1, 2])),
+
     FakeBookie ! stop,
 
     receive
@@ -2397,7 +2414,7 @@ handle_down_test() ->
             ok
     end,
 
-    ?assertEqual(undefined, erlang:process_info(PclSnap)),
+    ?assert(lists:foldl(CheckSnapDiesFun, false, lists:seq(1, 10))),
 
     pcl_close(PCLr),
     clean_testdir(RootPath).