anchor.diff:                          ok
                   end
               },
  -            {"test logging works from a begin/end block inside a list comprehension",
  +            {"logging works from a begin/end block inside a list comprehension",
                   fun() ->
                           ?assertEqual(0, count()),
                           [ begin lager:warning("test message") end || N <- lists:seq(1, 10)],
  
positive.code:                         ok
                  end
              },
              {"test logging works from a nested list comprehension",
                  fun() ->
                          ?assertEqual(0, count()),
                          [ [lager:warning("test message") || N <- lists:seq(1, 10)] ||
  
negative.code:                         lager:debug("this message should be ignored"),
                          ?assertEqual(0, count()),
                          ?assertEqual(1, count_ignored()),
                          lager:set_loglevel(?MODULE, debug),
                          lager:debug("this message should be logged"),
                          ?assertEqual(1, count()),
                          ?assertEqual(1, count_ignored()),
                          ?assertEqual(debug, lager:get_loglevel(?MODULE)),
                          ok
                  end
              }
  