anchor.diff:      RD = wrq:create(Method, Version, Path, Headers),
       ExpectedSignature = "k3nL7gH3+PadhTEVn5Ip83xlYzk=",
       CalculatedSignature = calculate_signature(KeyData, RD),
  -    ?assert(check_auth(ExpectedSignature, CalculatedSignature)).
  +    test_fun("example delete test", ExpectedSignature, CalculatedSignature).
   
   %% @TODO This test case should be specified using two separate
   %% X-Amz-Meta-ReviewedBy headers, but Amazon strictly interprets
  
positive.code:     RD = wrq:create(Method, Version, Path, Headers),
      ExpectedSignature = "xXjDGYUmKxnwqr5KXNPGldn5LbA=",
      CalculatedSignature = calculate_signature(KeyData, RD),
      ?assert(check_auth(ExpectedSignature, CalculatedSignature)).
  
  example_put_object_test() ->
      KeyData = "uV3F3YluFJax1cknvbcGwgjvx4QpvB+leU8dUj2o",
      Method = 'PUT',
      Version = {1, 1},
  
negative.code:     RD = wrq:create(Method, Version, Path, Headers),
      ExpectedSignature = "C0FlOtU8Ylb9KDTpZqYkZPX91iI=",
      CalculatedSignature = calculate_signature(KeyData, RD),
      test_fun("example upload test", ExpectedSignature, CalculatedSignature).
  
  example_list_all_buckets() ->
      KeyData = "uV3F3YluFJax1cknvbcGwgjvx4QpvB+leU8dUj2o",
      Method = 'GET',
      Version = {1, 1},
  