2828-include_lib (" riakc/include/riakc.hrl" ).
2929
3030-define (FMT (S , Args ), lists :flatten (io_lib :format (S , Args ))).
31+ -define (TYPE1 , <<" extractors_in_paradise" >>).
32+ -define (TYPE2 , <<" extractors_in_paradiso" >>).
3133-define (INDEX1 , <<" test_idx1" >>).
32- -define (BUCKET1 , <<" test_bkt1" >>).
34+ -define (BUCKET1 , { ? TYPE1 , <<" test_bkt1" >>} ).
3335-define (INDEX2 , <<" test_idx2" >>).
34- -define (BUCKET2 , <<" test_bkt2" >>).
36+ -define (BUCKET2 , { ? TYPE2 , <<" test_bkt2" >>} ).
3537-define (SCHEMANAME , <<" test" >>).
3638-define (TEST_SCHEMA ,
3739<<" <schema name=\" test\" version=\" 1.5\" >
@@ -278,9 +280,9 @@ get_map(Node) ->
278280verify_extractor (Node , PacketData , Mod ) ->
279281 rpc :call (Node , yz_extractor , run , [PacketData , Mod ]).
280282
281- bucket_url ({Host ,Port }, BName , Key ) ->
282- ? FMT (" http://~s :~B /buckets/~s /keys/~s " ,
283- [Host , Port , BName , Key ]).
283+ bucket_url ({Host ,Port }, { BType , BName } , Key ) ->
284+ ? FMT (" http://~s :~B /types/ ~s / buckets/~s /keys/~s " ,
285+ [Host , Port , BType , BName , Key ]).
284286
285287test_extractor_works (Cluster , Packet ) ->
286288 [rt_intercept :add (ANode , {yz_noop_extractor ,
@@ -304,7 +306,7 @@ test_extractor_with_aae_expire(Cluster, Index, Bucket, Packet) ->
304306 {Host , Port } = rt :select_random (yokozuna_rt :host_entries (
305307 rt :connection_info (
306308 Cluster ))),
307- URL = bucket_url ({Host , Port }, mochiweb_util : quote_plus ( Bucket ) ,
309+ URL = bucket_url ({Host , Port }, Bucket ,
308310 mochiweb_util :quote_plus (Key )),
309311
310312 CT = ? EXTRACTOR_CT ,
@@ -326,8 +328,13 @@ test_extractor_with_aae_expire(Cluster, Index, Bucket, Packet) ->
326328 yokozuna_rt :override_schema (APid , Cluster , Index , ? SCHEMANAME ,
327329 ? TEST_SCHEMA_UPGRADE ),
328330
331+ {ok , " 200" , RHeaders , _ } = ibrowse :send_req (URL , [{" Content-Type" , CT }], get ,
332+ [], []),
333+ VC = proplists :get_value (" X-Riak-Vclock" , RHeaders ),
334+
329335 {ok , " 204" , _ , _ } = ibrowse :send_req (
330- URL , [{" Content-Type" , CT }], put , Packet ),
336+ URL , [{" Content-Type" , CT }, {" X-Riak-Vclock" , VC }],
337+ put , Packet ),
331338 yokozuna_rt :commit (Cluster , Index ),
332339
333340 yokozuna_rt :search_expect ({Host , Port }, Index , <<" method" >>,
0 commit comments